2017年11月
      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ファイルを印刷する。 »