2017年9月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
無料ブログはココログ

« VBAのSendKeysは日本語を通す? | トップページ | スクリプトからExcel DDEとAdobe ReaderでPDFファイルを印刷する。 »

2007年11月25日 (日)

スクリプトからExcel VBAステートメントを実行する。

スクリプトからExcelのSendKeysステートメントを使って「メモ帳」に"日本語"を送ります。

Set Application=CreateObject("Excel.Application")
Set Book=Application.Workbooks.Add
Set Module=Book.VBProject.VBComponents.Add(1)
Code="Sub xSendKeys(Text):SendKeys Text,True:End Sub"
Module.CodeModule.AddFromString Code
CreateObject("WScript.Shell").AppActivate "メモ帳"
WScript.Sleep 1000
Application.Run "xSendKeys","日本語"
Set Module=Nothing
Book.Saved=True
Application.Quit

Excelのオプションで、
[Visual Basic プロジェクトへのアクセスを信頼する]
がチェックされてる必要があります。

« VBAのSendKeysは日本語を通す? | トップページ | スクリプトからExcel DDEとAdobe ReaderでPDFファイルを印刷する。 »