|
皆様こんばんわ。
セルの値をノートパッドに保存したいと思います。
下記コード
Cells(1, 1).Select
Selection.Copy
a = Shell("c:\winnt\notepad.exe", 3)
SendKeys "^v" 'クリップボードから貼り付け
SendKeys "%fa" '名前を付けて保存ダイアログを開く
SendKeys "ggg.txt" 'ファイル名をggg.txtにする
SendKeys "%s" '保存
SendKeys "%{f4}" '閉じる
は正常動作するのですが、下記コードにすると正常動作しません。
For i = 1 To 3
Cells(1, 1).Value = i & i & i
Cells(1, 1).Select
Selection.Copy
a = Shell("c:\winnt\notepad.exe", 3)
SendKeys "^v" 'クリップボードから貼り付け
SendKeys "%fa" '名前を付けて保存ダイアログを開く
SendKeys i & ".txt" 'ファイル名をi.txtにする
SendKeys "%s" '保存
SendKeys "%{f4}" '閉じる
Next
以上お願いします。
|
|