3

我正在拼命地做到这一点。

我已经能够复制在这篇文章中发现的行为。

http://damianblog.com/2009/07/05/excel-wcf/comment-page-1/#comment-64232

但是,我无法将数组传递给暴露的 wcf 函数。

我的 WCF 服务是这样工作的(我也尝试使用 int 数组)

public object[] GetSomeArray()
    {
        return  new object[] { 1, 2, 3, 4};
    }

    public object[] ReturnSomeArray(object someArray)
    {
        object[] temp = (object[]) someArray;
        for (int i = 0; i < temp.Length; i++)
        {
            temp[i] = (int)temp[i] + 1;
        }

        return temp;
    }

我的 VBA 代码如下所示。

Dim addr As String
...


Dim service1 As Object
Set service1 = GetObject(addr)

Dim columnsVar
columnsVar = Array(1, 2, 3)


Dim anotherArray As Variant
anotherArray = service1.ReturnSomeArray(columnsVar)

我总是在上面的最后一行遇到问题。我不明白为什么如果我能够从我的 WCF 服务返回一个数组,我就不能将相同的数组作为参数传递给另一个 WCF 函数。
当前错误信息

我收到一个序列化错误。

任何帮助,将不胜感激。

4

1 回答 1

2

Type mismatch只有当我以这种方式在 VBA 中声明数组变量时,我才会遇到类似的错误问题:

Dim anotherArray() As Variant

但是如果以这种方式定义变量,错误就会消失:

Dim anotherArray As Variant

您和我的类似解决方案之间的其他一些区别是:

//C#- my solution- without array[] definition:
public object[] ReturnSomeArray(object someArray)

//VBA- my solution -without array() definition:
Dim someArray As Variant 

编辑:2013-08-28

使用C#-Excel-Interop我更喜欢尝试和测试搜索解决方案的方式。如果有什么可行的,那么我会坚持下去,有时我会错过指出解决方案或逻辑的来源。

您将在下面找到包含LINQ操作数组的代码。这些代码片段可以双向工作——从 C# 获取数据到 VBA >> 将其传递回 C# 进行排序 >> 返回到 VBA。我希望它能帮助您最终解决您的问题。

第一:一些C#代码

    public object[] GetSomeArray()
    {
        return new object[] { 5, 2, 1, 7, 9, 1, 5, 7 };
    }

    public double[] ArraySorted(object tablica)
    {
        object[] obj = (object[])tablica;
        var filtr = from i in obj
                    orderby Convert.ToDouble(i)
                    select Convert.ToDouble(i);

        double[] wynik = (double[])filtr.ToArray();
        return wynik;
    }

二:一些VBA代码

Sub qTest_second_attempt()

'declare array variable
    Dim tmp()
'and other variables
    Dim addr As String
        addr = "UDFArrayLinqTest.ArrayLinq"
'get references
    Dim service1 As Object
    Set service1 = CreateObject(addr)

'get array from C#
    tmp = service1.GetSomeArray()

'pass this array to C# back to sort it
    Dim someArray As Variant
    someArray = service1.ArraySorted(tmp)

'check the result in Immediate window
    Debug.Print Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(someArray)))
    'result: 1 1 2 5 5 7 7 9

End Sub
于 2013-08-26T21:14:25.833 回答