Option Explicit Sub TestPs() Dim sPath As String Dim dPath As String Dim psCmd As String Dim hoge As Variant sPath = "C:\work\hoge.txt" dPath = Replace(sPath, "hoge", "huga") psCmd = "Copy-Item " & sPath & " " & dPath hoge = runPshell(psCmd, 0, True) End Sub コメント 参照設定をユーザに操作させたくなかったのでCreateObject("WScript.Shell")を使っています。 変数intVsblでPowerShell画面の表示(1)/非表示(0)を選択できます。 変数waitFlgでPowerShell実行完了を待つ(True)