我正在嘗試從 Access VBA 運行 Jupyter notebook：Sub import_hawk()Dim objShell As ObjectDim PythonExe, PythonScript As String Set objShell = VBA.CreateObject("Wscript.Shell") PythonExe = """C:\Users\Philip\.conda\envs\latest\python.exe""" PythonScript = "C:\Users\Philip\OneDrive\Betting\Capra\Tennis\polgara\polgara.ipynb" objShell.run PythonExe & PythonScriptEnd Sub當我運行它時，一個框會短暫出現然后消失。我已經手動運行筆記本并且工作正常。最令人沮喪的是，它工作了大約 5 分鐘，但現在不...
1 回答
POPMUISE
TA貢獻1765條經驗 獲得超5個贊
弄清楚了。我在其他人需要放置其特定信息的地方放置了方括號：
Sub execute_notebook()
Dim objShell As Object
Dim new_cmd_window As String
Dim full_script As String
Dim activate_env As String
Dim change_dir_script As String
Dim convert_and_run_nb As String
Set objShell = VBA.CreateObject("Wscript.Shell")
new_cmd_window = "cmd /c"
activate_env = "cd /d [path to Anaconda\Scripts folder which on my machine is C:\ProgramData\Anaconda3\Scripts] & activate [environment_name] &"
change_dir_notebook = "cd /d [path to folder where notebook is] &"
convert_and_run_nb = "jupyter nbconvert --to notebook --execute [notebook name].ipynb"
full_script = new_cmd_window & " " & Chr(34) & activate_env & " " & change_dir_script & " " & convert_and_run_nb & Chr(34)
objShell.run full_script
End Sub
關于我的發現的幾點說明：
沒有工作
new_cmd_window出于某種原因，簡單地使用
activate [environment name]VBA 是行不通的。當我將它輸入 cmd 行時很好。最后我不得不手動更改目錄并以這種方式運行它。
添加回答
舉報
0/150
提交
取消