如何通过VBA向Python脚本传递参数"1"使其正常执行对应操作？

• VBA命令拼接存在格式错误：可执行文件路径与脚本路径拼接时未添加空格分隔，且包含空格的脚本路径未用双引号包裹，会被命令行识别为无效路径，直接导致脚本无法正常启动、参数传递失效。另外原VBA变量声明未显式指定PythonExe的类型，会被默认识别为Variant类型，存在隐式类型转换风险。
• Python脚本未正确处理传入参数：当前代码硬编码写入字符'1'，没有读取sys.argv中传递的参数做逻辑判断；且sys.argv首个元素为脚本自身存储路径，业务参数需要从索引1的位置读取，全局初始化串口的写法也容易出现端口占用、数据未发送完成就关闭连接的问题。

VBA端代码 #

Sub Prozess1()
    Dim objShell As Object
    Dim PythonExe As String, PythonScript As String, runCmd As String
    
    Set objShell = VBA.CreateObject("Wscript.Shell")
    ' 双引号包裹路径，兼容路径中的空格
    PythonExe = """C:\Users\sralb\anaconda3\python.exe"""
    ' 脚本路径同样用双引号包裹，后面拼接要传递的参数
    PythonScript = """C:\Users\sralb\OneDrive - Hochschule Furtwangen\Desktop\1.py"" 1"
    ' exe路径和脚本路径之间补空格，拼接为完整命令
    runCmd = PythonExe & " " & PythonScript
    
    ' 调试阶段可放开下面注释，弹窗检查拼接的命令是否正确
    ' MsgBox runCmd
    objShell.Run runCmd
End Sub

Python端代码 #

import serial
import time
import sys

def write(arduino_conn, send_data):
    arduino_conn.write(bytes(send_data, 'utf-8'))
    # 替换原sleep(0)，留极短延时保证串口数据发送完成
    time.sleep(0.05)

if __name__ == "__main__":
    # 打印所有传入参数，方便排查问题
    for arg_index, arg_value in enumerate(sys.argv):
        print(f"参数序号{arg_index}：{arg_value}")
    
    # 校验参数数量，避免索引越界报错
    if len(sys.argv) < 2:
        print("未接收到有效传入参数")
        sys.exit(1)
    
    # 读取传入的业务参数，sys.argv[0]为脚本自身路径
    target_cmd = sys.argv[1].strip()
    # 放到main逻辑中初始化串口，避免全局加载占用端口
    arduino = serial.Serial(port='COM6', baudrate=9600, timeout=1)
    # 等待串口初始化就绪
    time.sleep(2)

    # 根据传入参数执行对应操作
    if target_cmd == "1":
        write(arduino, '1')
    # 可在此处扩展其他参数对应的执行逻辑

    arduino.close()

• 先手动打开命令提示符，粘贴拼接完成的完整运行命令执行，确认Python脚本能正常启动、正确识别传入参数、控制Arduino完成对应动作。
• VBA调试阶段先放开MsgBox注释，确认弹窗显示的命令和手动在命令行执行的命令完全一致后，再关闭弹窗执行宏即可。

内容的提问来源于stack exchange，提问作者LarsB