今回はVBScriptを使ってExcelを開かずにVBAを実行する方法をご紹介します。
うめ
VBAを実行するためのボタンやブックを閉じる処理を割愛できるので便利です。
サンプルコード
ほぼコピペで使えるようにしていますが、一部修正が必要です。
まずは下記のコードをメモ帳などに貼り付けてください。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Dim objExcel 'Excelのオブジェクトを作成 Set objExcel = CreateObject("Excel.Application") 'Excelは非表示 objExcel.Application.Visible = false '実行するVBAを指定 objExcel.Workbooks.Open ("C:\sample.xlsm") '実行するプロシージャ名を指定 objExcel.Application.Run "sample" '終了時に保存を確認しない objExcel.DisplayAlerts = False '終了処理 objExcel.Quit Set objExcel = Nothing |
“C:\sample.xlsm“の部分に動かしたいマクロの格納先を設定。
|
1 |
objExcel.Workbooks.Open ("C:\sample.xlsm") |
うめ
サンプルはC直下に置いています。
“sample“の部分に実行するプロシージャ名を設定してください。
|
1 |
objExcel.Application.Run "sample" |
VBAを実行すると「VBScriptファイルから実行しました。」とメッセージが表示されます。
|
1 2 3 4 5 |
Sub sample() MsgBox "VBScriptファイルから実行しました。" End Sub |
マクロの格納先、プロシージャ名修正したら名前をつけて保存。
最後に拡張子を「vbs」に変更します。
準備はこれだけです！
注意点
サンプルコード通りしたのに動かないという場合は、マクロの格納先、プロシージャ名に間違いがないか確認してください。
下記のエラーは意図的にプロシージャ名を違う名称に変更してから実行した結果です。
何行目がエラーになっているか教えてくれるので、VBSのコードを修正してください。
実行結果
作成した「Sample.vbs」を実行するとsampleプロシージャが動き、設定しておいたメッセージが表示されます。
