バッチファイルをダブルクリックで実行という流れをExcelVBAコードで教えてほしい。

バッチファイルについて、ダブルクリックだと実行できるのですが、以下のコードを参考にして、バッチファイルを実行すると「このシステムではスクリプトの実行が～～」となり、実行できません。


'変数の宣言を必須
Option Explicit

Sub batExeSample()

Dim bookPath As String
Dim batchPath As String
Dim wsh As Object

'実行中のExcelファイルのパスを取得
bookPath = ThisWorkbook.Path
'実行するバッチファイルのパスを取得
batchPath = bookPath + "\test.bat"
'バッチファイルを同期実行(処理完了後に制御が返ってくる)
Set wsh = CreateObject("WScript.Shell")
Call wsh.Run(batchPath, WaitOnReturn:=True)
'後片付け
Set wsh = Nothing

End Sub


管理者権限でなくてよいのでバッチファイルの実行を教えていただけないでしょうか。

No.1 ベストアンサー 回答者： artoo 回答日時： 2020/11/16 20:04

プログラムに間違いは無いので、環境面ですかね。

正確なエラーメッセージが不明なので、これ以上アドバイスできません。

エラーメッセージで検索しましたか？

この回答へのお礼

回答ありがとうございます。powershell管理者権限で開いて、64bit版と32bit版両方の権限をRemoteSignedにしたら実行できました。片方だけRemoteSignedにしていたのがよくなかったみたいです。

お礼日時：2020/11/18 08:42