【VBA】指定場所にあるPowerShellスクリプトを実行する

Public Sub RunScript()
    Dim ws As Worksheet
    Dim scriptPath As String
    Dim targetPath As String
    Dim shellCommand As String

    ' 末尾のバックスラッシュを調整
    Dim basePath As String
    basePath = ThisWorkbook.Path
    If Right(basePath, 1) <> "¥" Then basePath = basePath & "¥"
    scriptPath = basePath & "list.ps1"

    ' ターゲットパスの選択
    #If USE_TEST_PATH Then
        targetPath = Left(TEST_PATH_OUTPUT, Len(TEST_PATH_OUTPUT) - 1)
    #Else
        targetPath = "（指定のパス）"
    #End If

    ' PowerShellコマンドを構築
    shellCommand = "powershell.exe -ExecutionPolicy Bypass -File """ & scriptPath & _
                   """ -Path """ & targetPath & """"

    ' 完了まで待機して実行
    CreateObject("WScript.Shell").Run shellCommand, 1, True
End Sub