|
Hallo, habe folgendes problem,
will mit der shell das program modbus_csv_V2 ausführen
Das funktuioniert auch.
Jetzt will ich: D:\FinalPython durch: den aktuellen Pfad ersetzen wo auch das excel liegt:
pyscript = Application.ActiveWorkbook.Path & "\" & modbus_csv_V2 & ".py"
--> das macht er aber nicht..weiss einer warum? oder wie es ausshen sollte?
Private Sub CommandButton1_Click()
Dim pyPrgm As String, pyScript As String
Dim args As String
pyPrgm = "C:\Python27\python.exe "
pyScript = "D:\FinalPython\modbus_csv_V2.py"
args = "D:\FinalPython\Typ4.csv"
Call Shell(pyPrgm & pyScript & " " & args, vbMaximizedFocus)
End Sub
|