【VBA】VBScriptファイルを同期実行する

VBScriptのコード

ここでは例として、
　・「VBScriptからのメッセージ出力です！」というメッセージを出力する
　・「test.vbs」を作成
します。

MsgBox("VBScriptからのメッセージ出力です！")

VBAのコード

ここでは例として、
　・上記で作成したVBScriptのファイル「test.vbs」を
　・同期実行
します。
※ここでは作成したVBScriptのファイル「test.vbs」をデスクトップ配下に配置しています。

'変数の宣言を必須
Option Explicit

Sub execBatch()

    Dim vbsFile As String
    Dim wsh As Object
    Dim result As Integer
    
    'VBScriptファイルのパスを指定
    vbsFile = "C:\Users\user\Desktop\test.vbs"
    
    Set wsh = CreateObject("WScript.Shell")
    
    'VBScriptファイルを同期実行
    result = wsh.Run(command:=vbsFile, WaitOnReturn:=True)
    
    If (result = 0) Then
        MsgBox ("VBScriptファイルは正常終了しました。")
    Else
        MsgBox ("VBScriptファイルは異常終了しました。")
    End If
    
    '後片付け
    Set wsh = Nothing
    
End Sub

実行結果

VBScriptファイルを同期実行できました。

参考①

VBAでバッチファイルを実行することもできます。

詳細は以下の記事をご確認ください。

参考②

VBAでコマンドプロンプトのコマンドを実行することもできます。

詳細は以下の記事をご確認ください。

参考③

VBAでPowerShellファイルを実行することもできます。

詳細は以下の記事をご確認ください。

参考④

逆に、VBScriptからVBAを実行することもできます。

詳細は以下の記事をご確認ください。