Python调用带参数VBA函数的路径参数传递问题

我来帮你理清楚这个参数传递的问题，你其实已经找到正确的解决办法了，我再拆解下关键的要点和踩过的坑：

问题核心 #

你想要在Python的Btn_Archive_Click函数里，把路径变量传递给同名的VBA宏函数Btn_Archive_Click(filepath As String)，最初的调用方式没搞对Excel VBA宏的调用规则。

错误的初始写法 #

你一开始直接把Python函数对象传给了excel.Application.Run，这完全不符合要求：

def Btn_Archive_Click():
    # 打开指定路径的Excel工作簿
    workbook = excel.Workbooks.Open(Filename=os.path.join(folderpath,filename))
    # 向Excel中插入宏代码
    excelModule = workbook.VBProject.VBComponents.Add(1)
    excelModule.CodeModule.AddFromString(macro)
    
    path = filepath
    # ❌ 错误：直接传Python函数对象，没指定VBA宏名称，也没传参数
    excel.Application.Run(Btn_Archive_Click)

正确的修改方案 #

你调整后的写法就完全正确了，关键做了两个核心修改：

1. 给Run方法传入VBA宏的完整名称（格式为模块名.宏函数名，这里是Module6.Btn_Archive_Click）
2. 在宏名称后面跟上要传递的路径参数path

修改后的Python代码：

def Btn_Archive_Click():
    # 打开指定路径的Excel工作簿
    workbook = excel.Workbooks.Open(Filename=os.path.join(folderpath,filename))
    # 向Excel中插入宏代码
    excelModule = workbook.VBProject.VBComponents.Add(1)
    excelModule.CodeModule.AddFromString(macro)
    
    path = filepath
    # ✅ 正确：指定VBA宏的完整名称，同时传递路径参数
    excel.Application.Run("Module6.Btn_Archive_Click", path)

对应的VBA宏代码（确保参数类型匹配，这里是字符串类型）：

Sub Btn_Archive_Click(filepath As String)
    Dim wb As Workbook
    Set wb = Workbooks.Open(filepath)
    ' 这里可以添加后续的宏逻辑
End Sub

额外注意事项 #

• 要确认你插入宏的模块名称确实是Module6，如果是动态添加的模块，也可以通过excelModule.Name来获取模块名，避免硬编码
• 确保Excel的信任中心设置允许访问VBProject，否则插入宏的操作会报错
• 传递的参数类型要和VBA宏定义的参数类型一致，这里路径是字符串，完全匹配

备注：内容来源于stack exchange，提问作者Prime coder