Excel VBA调用Python方法已识别但无法运行，求排查代码问题

我尝试在Excel中通过Python编写COM组件方法并调用，VBA能识别函数但无法运行，想请教代码存在哪些错误？

原Python代码 #

import pythoncom
import numpy as np
import win32com.client
import win32com.server.register


class PythonObjectLibrary:
    # 生成Windows注册用的唯一ID
    _reg_clsid_ = pythoncom.CreateGuid()

    # 将对象注册为本地服务器exe
    _reg_clsctx_ = pythoncom.CLSCTX_LOCAL_SERVER

    # 程序ID，VBA中创建对象时会用到
    _reg_progid_ = "Python.ObjectLibrary"

    # 组件描述
    _reg_desc_ = "This is our python object library"

    # 公开方法列表，未列出的方法视为私有
    _public_methods = [
        'pythonSum',
        'pythonMultiply',
        'addArray'
    ]

    # 返回两数之和
    def pythonSum(self, x, y):
        return x + y

    # 返回两数之积
    @staticmethod
    def pythonMultiply(x, y):
        return x * y

    # 计算区域数值总和
    @staticmethod
    def addArray(my_range):
        # 实例化传递过来的区域对象
        rng1 = win32com.client.Dispatch(my_range)

        # 将区域转换为numpy数组
        rng1val = np.array(list(rng1.value))

        # 返回数组求和结果
        return rng1val.sum()


if __name__ == "__main__":
    win32com.server.register.UseCommandLine(PythonObjectLibrary)

原VBA代码 #

Function pythonSum(x As Long, y As Long)
    pythonSum = VBA.CreateObject("Python.ObjectLibrary").pythonSum(x, y)
End Function

代码错误分析及修正方案 #

1. 静态方法不兼容COM模型 #

Python的@staticmethod无法直接被COM组件识别调用，COM要求方法必须是带self参数的实例方法。需移除pythonMultiply和addArray的@staticmethod装饰器，改为实例方法。

2. Range对象重复包装错误 #

VBA传递的Range已经是COM对象，无需再用win32com.client.Dispatch包装，直接访问其Value属性即可，重复包装会导致对象调用失败。

3. 数值类型兼容性问题 #

numpy数组的求和结果是numpy专属数值类型，VBA无法直接识别，需转换为Python原生的int或float类型返回。

4. VBA函数命名冲突 #

VBA函数名与Python组件方法名均为pythonSum，易导致逻辑混淆，建议修改VBA函数名以区分。

5. 注册权限问题 #

运行Python脚本注册COM组件时，必须以管理员身份执行，否则Windows注册表写入失败，导致VBA无法实例化组件。

修正后的代码 #

修正版Python代码 #

import pythoncom
import numpy as np
import win32com.server.register


class PythonObjectLibrary:
    _reg_clsid_ = pythoncom.CreateGuid()
    _reg_clsctx_ = pythoncom.CLSCTX_LOCAL_SERVER
    _reg_progid_ = "Python.ObjectLibrary"
    _reg_desc_ = "Python COM组件用于Excel调用"
    _public_methods = [
        'pythonSum',
        'pythonMultiply',
        'addArray'
    ]

    def pythonSum(self, x, y):
        return x + y

    def pythonMultiply(self, x, y):
        return x * y

    def addArray(self, my_range):
        # 直接使用VBA传递的Range对象
        rng_values = my_range.Value
        # 转换为numpy数组并求和
        rng_array = np.array(rng_values)
        # 转换为原生float类型返回
        return float(rng_array.sum())


if __name__ == "__main__":
    win32com.server.register.UseCommandLine(PythonObjectLibrary)

修正版VBA代码 #

Function ExcelPythonSum(x As Long, y As Long)
    Dim pyObj As Object
    Set pyObj = CreateObject("Python.ObjectLibrary")
    ExcelPythonSum = pyObj.pythonSum(x, y)
End Function

Function ExcelPythonMultiply(x As Long, y As Long)
    Dim pyObj As Object
    Set pyObj = CreateObject("Python.ObjectLibrary")
    ExcelPythonMultiply = pyObj.pythonMultiply(x, y)
End Function

Function ExcelAddArray(rng As Range)
    Dim pyObj As Object
    Set pyObj = CreateObject("Python.ObjectLibrary")
    ExcelAddArray = pyObj.addArray(rng)
End Function

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