Excel VBAからバッチファイルを呼び出す

1.イントロダクション

Windowsなどで、バッチファイルをVBAから呼び出したいときもあるかもしれない。
今回はVBAからtest.batを実行するサンプルを紹介する。

2.サンプル

test.batを用意する。

timeout 3 && echo ※※※VBAから呼び出しました※※※
timeout 2

上のtest.batを実行するサンプルがこちら。

Option Explicit
Sub バッチを実行する()
Dim shellObject As Object
Dim batchFile As String
batchFile = "C:\tmp\test.bat"
Set shellObject = CreateObject("WScript.Shell")
shellObject.Run batchFile, 1, True
End Sub

3.デモ

以下のようにバッチを実行できる。
f:id:sho322:20140115201652j:plain

4.補足

「ツール」→「参照設定」で以下のようなチェックが入ってないと実行できないかも。
f:id:sho322:20140115201712j:plain

5.参考

できる逆引き Excel VBAを極める 勝ちワザ700 2010/2007/2003/2002対応 (「できる逆引き」シリーズ)

できる逆引き Excel VBAを極める 勝ちワザ700 2010/2007/2003/2002対応 (「できる逆引き」シリーズ)