Ошибка 5 Excel VBA, когда я вызываю код Python ⇐ Python

[Anonymous]

Я создаю этот макрос ниже для запуска кода Python, и он работает. Но когда я изменил путь для запуска на других ПК в переменной caminhoScript, он больше не работает. Мне отображается ошибка: введите описание изображения здесь и возникает в части ниже

Код: Выделить всё

caminhoPython = "C:\Anaconda3\python.exe" ' Substitua pelo caminho correto do Python

' Caminho do script Python
caminhoScript = "C:\Users\" & UserName & "\Endress+Hauser\Marketing & Sales - E+H FL BR - Forecast Supply Chain - beta\Python\python.py" ' Substitua pelo caminho correto do seu script
Debug.Print caminhoScript
' Comando completo para rodar o script Python diretamente
comando = Chr(34) & caminhoPython & Chr(34) & " " & Chr(34) & caminhoScript & Chr(34)

' Executando o script Python
shell comando, vbNormalFocus

Ниже приведен весь мой код

Код: Выделить всё

Sub RodarScriptPythonSemShell()
Dim caminhoPython As String
Dim caminhoScript As String
Dim comando As String

Dim objNetworkUser As Object
Set objNetworkUser = CreateObject("WScript.Network")
UserName = objNetworkUser.UserName

' Habilita o recálculo automático (se estiver no modo manual)
Application.Calculation = xlCalculationManual
' Desabilita os alertas para evitar mensagens de cálculo incompleto
Application.DisplayAlerts = False

' Garantir que a planilha seja recalculada antes de rodar o script
Application.Calculate

' Caminho do executável Python
caminhoPython = "C:\Anaconda3\python.exe" ' Substitua pelo caminho correto do Python

' Caminho do script Python
caminhoScript = "C:\Users\" & UserName & "\Endress+Hauser\Marketing & Sales - E+H FL BR - Forecast Supply Chain - beta\Python\python.py" ' Substitua pelo caminho correto do seu script
Debug.Print caminhoScript
' Comando completo para rodar o script Python diretamente
comando = Chr(34) & caminhoPython & Chr(34) & " " & Chr(34) & caminhoScript & Chr(34)

' Executando o script Python
shell comando, vbNormalFocus

' Reabilita os alertas após o script rodar (opcional)
Application.DisplayAlerts = True

Application.Calculation = xlCalculationAutomatic
End Sub

Я надеюсь устранить эту ошибку на


Подробнее здесь: https://stackoverflow.com/questions/793 ... ython-code