如何将空可选参数从 Python 传递到 Excel VBA 宏

问题描述 投票:0回答:2

我正在使用 Python 来测试 Excel VBA 宏。该宏有两个可选参数。只要省略最后一个或两个参数就可以了。我只是传递前面的参数。我不知道如何处理当第一个可选参数被省略但第二个可选参数被包含时的情况。我不能使用 None,因为 Excel 将其解释为“Null”,这是一种不同的情况。我也不能省略这个参数,因为我在 Python 中遇到语法错误。

使用 win32com 运行 Excel 宏时,如何省略不是最后一个可选参数?

最小示例:

考虑这个宏:

Function getarg(Optional anArg, Optional anotherArg) As String
    Dim s As String
    
    If IsMissing(anArg) Then
        s = "No argument 1 passed! "
    Else
        s = "Argument 1 was: " + CStr(anArg) + ". "
    End If
    
    If IsMissing(anotherArg) Then
        s = s + "No argument 2 passed!"
    Else
        s = s + "Argument 2 was: " + CStr(anotherArg)
    End If
    getarg = s
End Function

这是我的Python代码:

import win32com.client as win32

from os.path import join

xl = win32.Dispatch("Excel.Application")
wb = xl.Workbooks.Open(r"C:\Users\...\whatever.xlsm")

print(xl.Run("'{}'!{}.{}".format(join(wb.Path,wb.Name), "reportbuilder", "getarg"), "A", "B"))
print(xl.Run("'{}'!{}.{}".format(join(wb.Path,wb.Name), "reportbuilder", "getarg"), "A"))
print(xl.Run("'{}'!{}.{}".format(join(wb.Path,wb.Name), "reportbuilder", "getarg")))
print(xl.Run("'{}'!{}.{}".format(join(wb.Path,wb.Name), "reportbuilder", "getarg"), None, "B"))

输出为:

Argument 1 was: A. Argument 2 was: B
Argument 1 was: A. No argument 2 passed!
No argument 1 passed! No argument 2 passed!

第四种情况没有输出,因为在 Excel 中我得到“运行时错误'94':无效使用 Null”

python excel vba pywin32 win32com
2个回答
3
投票

一个空列表就可以完成这项工作:

import win32com.client as win32

from os.path import join

xl = win32.Dispatch("Excel.Application")
wb = xl.Workbooks.Open(r"C:\a\b.xlsm")

print(xl.Run("'{}'!{}.{}".format(join(wb.Path,wb.Name), "Module1", "getarg"), "A", "B"))
print(xl.Run("'{}'!{}.{}".format(join(wb.Path,wb.Name), "Module1", "getarg"), "A"))
print(xl.Run("'{}'!{}.{}".format(join(wb.Path,wb.Name), "Module1", "getarg")))
print(xl.Run("'{}'!{}.{}".format(join(wb.Path,wb.Name), "Module1", "getarg"), [], "B"))

返回:

Argument 1 was: A. Argument 2 was: B
Argument 1 was: A. No argument 2 passed!
No argument 1 passed! No argument 2 passed!
No argument 1 passed! Argument 2 was: B

0
投票

根据 COM 标准,省略的参数作为子类型 VT_EMPTY 的 VARIANT 传递。

在 Pywin32 中,这样的对象是通过

pythoncom.Empty
检索的。

>>> x.Run("getarg",pythoncom.Empty,"A")
'No argument 1 passed! Argument 2 was: A'
© www.soinside.com 2019 - 2024. All rights reserved.