python执行vba处理excel_通过Excel/VBA运行Python脚本

Dim objShell

Dim command as String 'use this declaration type for VBA (Access/Excel)

'Dim command 'use this declaration type for VBS (Script), instead of the direct declaration like as "As String"

command = Chr(34) & "C:\Users\John Doe\python.exe" & Chr(34) & " " & Chr(34) & "C:\Users\John Doe\" & "\roto.py" & Chr(34)

Set objShell = CreateObject("WScript.Shell")

objShell.Run command, 1, True

'Settings for WindowStyle:

' 0 Hide the window (and activate another window.)

' 1 Activate and display the window. (restore size and position) Specify this flag when displaying a window for the first time.

' 2 Activate & minimize.

' 3 Activate & maximize.

' 4 Restore. The active window remains active.

' 5 Activate & Restore.

' 6 Minimize & activate the next top-level window in the Z order.

' *** 7 Minimize. The active window remains active.

' 8 Display the window in its current state. The active window remains active.

' 9 Restore & Activate. Specify this flag when restoring a minimized window.

' 10 Sets the show-state based on the state of the program that started the application.

顺便说一句，您可以简单地使用2个引号将引号插入字符串变量，就像我在以前的源代码中使用的那样。例如，StrVariable=""""给出结果"。那么命令行的字符串是：

command = """%USERPROFILE%\python.exe"" ""%USERPROFILE%\roto.py"""

结果是：

"C:\Users\John Doe\python.exe" "C:\Users\John Doe\roto.py"