Question

我花了很长时间试图找到解决方案，但我似乎无法让它发挥作用。情况如下：

我正在设置一个由vba宏使用的c＃com库。有问题的c＃库方法将两个数组作为参数，并返回与第一个参数大小和类型相同的数组。这是c＃代码（接口和实现）：

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Runtime.InteropServices;
using System.Reflection;
using System.Windows.Forms;

namespace Aufbereiten.Base.Controller
{
    [Guid("A341A58B-96CA-42B8-8256-B8AC16586176")]
    public interface IExposer
    {
        [DispId(1)]
        void Connect(String macroName, String inputFileName, String functionType);
        [DispId(2)]
        Boolean Run();
        [DispId(3)]
        object[] StringCleaner(object lineOut, object headerOut);
    }

    [Guid("C66FF152-60E2-4AF3-9D65-655C224A241E")]
    [Serializable(), ClassInterface(ClassInterfaceType.None), ComVisible(true)]
    public class Library : IExposer
    {
        #region Fields
        private MainController _mc;
        #endregion

        #region Properties
        public MainController MC
        {
            get { return _mc; }
            set { _mc = value; }
        }
        #endregion

        #region Methods
        public void Connect(String macroName, String fileName, String functionType)
        {
            MC = new MainController(macroName, fileName, functionType);
        }

        public Boolean Run()
        {
            return MC.Run();
        }

        /// <summary>
        /// Cleans input string of unwanted characters
        /// </summary>
        /// <param name="lineOut">String Array</param>
        /// <param name="headerOut">Integer Array</param>
        /// <returns>String array</returns>
        public object[] StringCleaner(object lineOut, object headerOut)
        {
            // Convert input objects to List and convert return List to string array directly
            return MC.Generic.StringCleaner(ComObjectToStringList(lineOut), ComObjectToIntList(headerOut)).ToArray<string>();
        }

        /// <susgbomary>
        /// Converts a com object into a string list
        /// </summary>
        /// <param name="comObj">object</param>
        /// <returns>String list</returns>
        private List<string> ComObjectToStringList(object comObj)
        {
            List<string> result = new List<string>();

            // Convert COM object (VBA array) to string list
            Type comObjType = comObj.GetType();

            object[] args = new object[1];
            int numEntries = (int)comObjType.InvokeMember("Length", BindingFlags.GetProperty, null, comObj, null);
            for (int i = 0; i < numEntries; i++)
            {
                args[0] = i;
                string currentEntry = (string)comObjType.InvokeMember("GetValue", BindingFlags.InvokeMethod, null, comObj, args);
                if (currentEntry == null)
                {
                    result.Add("");
                }
                else
                {
                    result.Add(currentEntry);
                }
            }

            return result;
        }

        /// <summary>
        /// Converts a com object into an int list
        /// </summary>
        /// <param name="comObj">object</param>
        /// <returns>Int32 list</returns>
        private List<int> ComObjectToIntList(object comObj)
        {
            List<int> result = new List<int>();

            // Convert COM object (VBA array) to int list
            Type comObjType = comObj.GetType();

            object[] args = new object[1];
            int numEntries = (int)comObjType.InvokeMember("Length", BindingFlags.GetProperty, null, comObj, null);
            for (int i = 0; i < numEntries; i++)
            {
                args[0] = i;
                result.Add((int)comObjType.InvokeMember("GetValue", BindingFlags.InvokeMethod, null, comObj, args));
            }

            return result;
        }
        #endregion
    }
}

Generic.StringCleaner方法将执行清理参数数组的实际工作＆＃34; lineOut＆＃34;不需要的字符。以下是调用库方法的VBA代码的摘录：

Dim arrLineOut() As Variant
Dim dicInToOut As New Scripting.Dictionary

...

Dim lib As New Aufbereiten.library
lib.Connect ThisWorkbook.Name, "_Library_Test_custFile.xlsx", "CustImport"
arrLineOut = lib.StringCleaner(arrLineOut, dicInToOut.Items)

c＃中的所有操作都运行完美，除了返回结果，清理后的数组。

当我运行宏时，我得到了一个

运行时错误80131533：阵列的运行时类型与元数据中记录的子类型之间出现不匹配。

有人可以告诉我这里我做错了什么吗？

Answer 1

根据@Meehow的建议，我调整了

public object[] StringCleaner(object lineOut, object headerOut)

到

public string[] StringCleaner(object lineOut, object headerOut)

和

return MC.Generic.StringCleaner(ComObjectToStringList(lineOut), ComObjectToIntList(headerOut)).ToArray<string>();

到

return MC.Generic.StringCleaner(ComObjectToStringList(lineOut), ComObjectToIntList(headerOut)).ToArray();

在这些更改之后，我能够将c＃库的返回值分配给VBA中新声明的变量数组：

Dim tmp As Variant
tmp = lib.StringCleaner(arrLineOut, dicInToOut.Items)

将数组从C＃COM库返回到VBA

1 个答案: