从 VBA 调用 C# 时出现对象类型错误

Question

我有一个用 C# 编写的 Excel 插件，我试图从 Excel 中的 VBA 调用。在 VBA 中，我生成了几个要传递的数组：

Dim Identifiers() As Variant
Dim Variables() As Variant
Dim Times() As Variant
...
Dim QaddIn As COMAddIn
Dim QTool As Object
Dim results As Variant
Set QaddIn = Application.COMAddIns("QTool")
QaddIn.Connect = True
Set QTool = QaddIn.Object

results = QTool.GetQData(datasetName, Identifiers, Variables, Times, timeString)

GetQData 在 C# 中定义为：

string[] GetQData(string DatasetName, object[] Identifiers, object[] Variables, object[] TimeCodes,
                                string TimeString);

但是当我运行代码时，VBA 抛出错误 object of type 'system.object[*]' can be转换为“system.object[]”类型的对象。相同的代码可以很好地传递使用静态长度定义的变体数组，如 Dim Identifiers(3) As Variant 中所示。我现在想要通过的有什么区别？

Answer 1

问题是我试图传递给 C# 的数组从 1 开始索引，也就是说，它是一个 Array(1 to 5) 而不是 Array(0 to 4)< /代码>。不幸的是，传递从 1 开始索引的数组失败，因为 Range.Value 和所有 WorksheetFunction 方法返回从 1 开始索引的数组。

我在 VBA 中编写了以下代码来重新索引在传递它们之前，我的数组从零开始：

Function ShiftArray(ThisArray() As Variant) As Variant    
    Dim lb As Long, ub As Long
    Dim NewArray() As Variant
    Dim i As Long
    lb = LBound(ThisArray)
    ub = UBound(ThisArray)

    ReDim NewArray(0 To (ub - lb))

    For i = 0 To (ub - lb)
        NewArray(i) = ThisArray(i + lb)
    Next i

    ShiftArray = NewArray    
End Function

Answer 2

问题是变长数组和定长数组不一样。一般来说，vba 的宽容度很高，因此您通常可以侥幸逃脱，但 C# 却不然。无法确定您的意思是将数组转换为固定长度数组。您应该在 Identifiers 对象上寻找一种方法，将其转换为固定长度的数组。这可能看起来像：

results = CIQTool.GetCIQData(datasetName, Identifiers.ToArray(), Variables.ToArray(), Times.ToArray(), timeString)

尽管我不确定该方法的确切命名，所以请使用代码完成来查找它。