Ｐａｇｅ 712 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼クリップボードデータをテキストファイル... ^L^ 03/2/6(木) 14:16 ┗Re:クリップボードデータをテキストファイル... Jaka 03/2/6(木) 15:30 ┗Re:クリップボードデータをテキストファイル... ^L^ 03/2/6(木) 16:30 ┗Re:クリップボードデータをテキストファイル... Jaka 03/2/6(木) 17:00 ┗Re:クリップボードデータをテキストファイル... ^L^ 03/2/10(月) 10:47 ─────────────────────────────────────── ■題名 ： クリップボードデータをテキストファイル... ■名前 ： ^L^ <photograph_of_us@hotmail.com> ■日付 ： 03/2/6(木) 14:16 -------------------------------------------------------------------------
| いつも参考にさせてもらっています。m（_ _）m ホント、詳しい方ばかりで圧倒されぱなしでございます。。。汗 ワタクシが悩んでいる内容は題名の通りなのですが、 詳細は下記に記させてもりました。 お時間がありましたら是非ご教授下さい！宜しくお願いします！ 1：下記、ロジックにてエクセルのデータをクリップボードへ送り、 メモ帳を起動し貼付けます。 'メモ帳起動 A& = Shell("notepad.exe", 1) 'セルA100〜セルA110をクリップボードへコピー Sheets("IMSCTL【y-suzuki】").Range("A100:A110").Copy 'メモ帳アクティブ AppActivate "無題 - メモ帳" 'クリップボード（セルA100〜セルA110）からメモ帳へ貼付 SendKeys "^V" 2：この後、任意の名前でメモ帳を保存したいのですが、可能でしょうか？ 本当にお手数掛けますが、何卒宜しくお願いします。 |
| こんにちは。 こう言うのじゃダメ？ Sub GS400() Dim File_OUT As String File_OUT = "C:\Windows\ﾃﾞｽｸﾄｯﾌﾟ\作ったテキスト.txt" Open File_OUT For Output As #1 For i = 100 To 110 Print #1, Trim(Range("A" & i).Value) Next Close #1 End Sub |
| Jakaさん、こんにちわ。 どうもお世話になります。m(_ _)m Jakaさんはいつもいろいろな方々の回答をしていて、 本当に詳しい方ですねぇ〜・・・恐れいります。。。 Jakaさんのロジックを読ませてもらいました。 恐縮ですが、Jakaさんのロジックですと、 既に存在しているファイルに対して保存をかける。 という内容になると思うのですが（間違っていたらすみません汗） 下記のロジック（私のやりたい事）ですと、 全く新規のファイルに対して保存をかけたいのです・・・。 無理な要件なんでしょうか？ 知っていましたらで結構なんでよかったら教えて下さい。 恐縮ですが、宜しくお願いします。m(_ _)m ------------------------------------------- 'メモ帳起動 A& = Shell("notepad.exe", 1) 'セルA100〜セルA106をクリップボードへコピー Sheets("IMSCTL").Range("A100:A106").Copy 'メモ帳アクティブ AppActivate "無題 - メモ帳" 'クリップボード（セルA100〜セルA106）からメモ帳へ貼付 SendKeys "^V" 'メモ帳に"IMSCTL"という名前をつけて保存 ■■■ココのロジックが知りたいのです。■■■ ------------------------------------------- ▼Jaka さん： >こんにちは。 >こう言うのじゃダメ？ > >Sub GS400() > Dim File_OUT As String > File_OUT = "C:\Windows\ﾃﾞｽｸﾄｯﾌﾟ\作ったテキスト.txt" > Open File_OUT For Output As #1 > For i = 100 To 110 > Print #1, Trim(Range("A" & i).Value) > Next > Close #1 >End Sub |
| 取りあえず試してみました？ あれば丸っきりの上書き、無ければ新規作成となりますけど。97では。 2000もかわらない思うけど．．．。 |
| 体調不良で寝込んでいました。 jakaさん、返信遅くなってすみませんでしたm(_ _)m 下記件、解決しました。本当にありがとうございます！ ▼Jaka さん： >取りあえず試してみました？ > >あれば丸っきりの上書き、無ければ新規作成となりますけど。97では。 >2000もかわらない思うけど．．．。 |