Excel宏调用Python函数报错：Error 13类型不匹配求助

错误13（类型不匹配）的核心原因是：Python返回的numpy数组在VBA中是Variant类型的二维数组，而非Excel的Range对象，你试图调用.Rows.Count、.Columns.Count这类Range专属属性，自然会触发类型不匹配。

修正后的基础版宏代码 #

Sub CallPythonFunction()
    Dim x As Double
    Dim y As Double
    Dim result As Variant
    Dim rowCount As Long
    Dim colCount As Long
    
    ' 获取Excel单元格输入值
    x = Range("A1").Value
    y = Range("B1").Value
    
    ' 调用Python函数（用Str()确保数值转字符串的格式正确）
    result = RunPython("import func; print(func.func(" & Str(x) & ", " & Str(y) & "))")
    
    ' 获取返回数组的行列数（VBA数组用UBound获取边界）
    rowCount = UBound(result, 1)
    colCount = UBound(result, 2)
    
    ' 将结果写入Excel（直接把Variant数组赋值给Range）
    Range("C1").Resize(rowCount, colCount).Value = result
End Sub

修改关键点说明 #

• 移除了错误的result.Rows.Count、result.Columns.Count和result.Value调用，改用UBound(result, 1)（行数）和UBound(result, 2)（列数）获取数组尺寸。
• 直接将Variant数组result赋值给Resize后的Range，xlwings会自动处理numpy数组到VBA数组的转换。
• 用Str(x)和Str(y)代替直接拼接数值，避免因系统区域设置（比如小数用逗号分隔）导致的Python语法错误。

更健壮的进阶写法（避免字符串拼接） #

如果希望更直观且规避字符串拼接的潜在问题，可以改用xlwings对象模型传递参数：

1. 修改Python脚本func.py，注册xlwings函数：

import numpy as np
import xlwings as xw

@xw.func
def func(x, y):
    return np.array([[x+y, x], [x-y, y]])

2. 对应的VBA代码：

Sub CallPythonFunction()
    Dim x As Double
    Dim y As Double
    Dim result As Variant
    
    x = Range("A1").Value
    y = Range("B1").Value
    
    ' 直接调用注册的Python函数，无需字符串拼接
    result = xw.Run("func.func", x, y)
    
    ' 写入结果
    Range("C1").Resize(UBound(result, 1), UBound(result, 2)).Value = result
End Sub

这种方式更安全，尤其是处理复杂参数或特殊字符时，彻底避免了字符串拼接的语法风险。

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