« 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ファイルを印刷する。 »