从 python 调用 vba 宏，其中 arguments 数量未知

Question

The goal is to have a reusable python function which calls using win32.com a macro from VBA Excel, and do so using **kwargs , or other method that can pass unknown number of arguments.

没有使用**kwargs和显式 win32.com 的具体问题，尽管发现了一些类似的问题，但没有一个问题被接受，即使不完全相似。
以下是一些相似但不相似的问题：

• 将未知数量的 arguments 传递到 VBA 中的 ParamArray
• VBA：将变量设置为“空”或“缺失”？ 处理多个可选 arguments？

使用 python

def run_vba_macro(str_path, str_modulename, str_macroname, **kwargs):
    if os.path.exists(str_path):
        xl=win32com.client.DispatchEx("Excel.Application")
        wb=xl.Workbooks.Open(str_path, ReadOnly=0)
        xl.Visible = True
        if kwargs:
                xl.Application.Run(os.path.basename(str_path)+"!"+str_modulename+'.'+str_macroname,
                                          **kwargs)
        else:
              xl.Application.Run(os.path.basename(str_path)
                                          +"!"+str_modulename
                                          +'.'+str_macroname)
        wb.Close(SaveChanges=0)
        xl.Application.Quit()
        del xl

#example
kwargs={'str_file':r'blablab'}
run_vba_macro(r'D:\arch_v14.xlsm',
              str_modulename="Module1",
              str_macroname='macro1',
              **kwargs)
#other example
kwargs={'arg1':1,'arg2':2}
run_vba_macro(r'D:\arch_v14.xlsm',
              str_modulename="Module1",
              str_macroname='macro_other',
              **kwargs)

与 VBA

Sub macro1(ParamArray args() as Variant)
    MsgBox("success the str_file argument was passed as =" & args(0))
End Sub

Sub macro_other(ParamArray args() as Variant)
    MsgBox("success the arguments have passed as =" & str(args(0)) & " and " & str(args(1)))
End Sub

预期结果是 VBA 中的 MessageBox：

• 成功 str_file 参数被传递为 = blablab
• 成功 arguments 已通过 = 1 和 2

Answer 1

在 python 中， kwargs是一个dict ，所以它不是可以通过 COM 传递的东西。 将kwargs.values作为*args数组传递，如下所示：

params_for_excel = list(kwargs.values())

xl.Application.Run(os.path.basename(str_path)+"!"+str_modulename+'.'+str_macroname,
                                      *params_for_excel)