VBA Shell命令未運行（Python腳本）

Question

我編寫了PYthon腳本，該腳本在從正常命令提示符運行時可以工作，但是在通過VBA代碼運行時，該命令不起作用。

我檢查了waitOnReturn是否可以幫助我，但是即使使用waitReturn，我的python腳本似乎也無法在VBA上運行，也沒有錯誤彈出窗口。

Sub Exec()
Dim objShell As Object
Dim PythonExec, PythonScript As String
Dim waitOnReturn As Boolean: waitOnReturn = True
Dim windowStyle As Integer: windowStyle = 1

Set objShell = VBA.CreateObject("Wscript.Shell")

PythonExec = """C:\Users\123\AppData\Local\Programs\Python\Python37-32\python.exe"""
PythonScript = "C:\Users\123\Run.py"

 objShell.Run PythonExec & " " & PythonScript, windowStyle, True

End Sub

你們能幫我解決這個問題嗎？ 我不知道我缺少什么。

Answer 1

一開始它對我也不起作用，一個窗口彈出並立即消失。

對我來說解決的辦法是在所有路徑之間使用“”。

像這樣：

PythonExec = """C:\Users\123\AppData\Local\Programs\Python\Python37-32\python.exe"""

PythonScript = """C:\Users\123\Run.py"""

最后，如果使用cmd運行腳本，您將看到錯誤消息，如下所示：

objShell.Run "cmd /k" & " " & PythonExec & " " & PythonScript

即使腳本無法運行，您也將獲得有關其失敗原因的信息