自分用メモ


自分用メモです。間違っていたら指摘下さい
VBAで.ps1を同期実行する方法

Sub RunBatWshShell()

    Dim obj As New IWshRuntimeLibrary.WshShell
    Dim ret As Long

'    ret = obj.Run("%windir%\System32\notepad.exe ""C:\web\testfile.txt""", 1, True)
'    変数=クラス設定("PowerShell指定"".ps1ファイル""",Windows構文指定,起動アプリケーションの終了確認")
     ret = obj.Run("%SystemRoot%\system32\WindowsPowerShell\v1.0\powershell.exe ""C:\Users\ユーザー名\myfile\babys\20200827_messagebox_powershell\messagebox.ps1""", 1, True)

    MsgBox "111"

End Sub

参考:https://vbabeginner.net/vba%E3%81%A7%E4%BB%96%E3%81%AE%E3%82%A2%E3%83%97%E3%83%AA%E3%82%B1%E3%83%BC%E3%82%B7%E3%83%A7%E3%83%B3%E3%82%92%E5%90%8C%E6%9C%9F%E8%B5%B7%E5%8B%95%E3%81%99%E3%82%8B%EF%BC%88wshshell%EF%BC%89/