ExcelVBAからC# DLLに配列を渡したい

Question

■前提・実現したいこと

ExcelVBAからC#で作成したDLLのメソッドに配列を渡したいです。

■発生している問題・エラーメッセージ

ExcelVBAを実行すると以下のメッセージが出ます。（以下VBAコードの★の行）

コンパイルエラー
関数またはインターフェースが予約されているか、またはVisual Basicでサポートされていないオートメーションタイプが関数で使用されています。

■該当のソースコード

Sub test()
    Dim obj As MyComLibMain
    Dim ret As String
    Dim arg As MyComLibArg
    
    Dim strArray(2) As String
    
    strArray(0) = "111"
    strArray(1) = "222"
    strArray(2) = "333"
        
    Set arg = New MyComLibArg
    arg.myBool = True
    arg.myInt = 123
    arg.myString = "hoge"
    arg.myStrArray = strArray    ★ここでエラーが起きる

    Set obj = New MyComLibMain
    
    ret = obj.StructArgsFunc(arg)

    MsgBox ret
End Sub

using System;
using System.Runtime.InteropServices;

namespace MyComLib
{
    [ComVisible(true)]
    [InterfaceType(ComInterfaceType.InterfaceIsDual)]
    public interface IMyComLibMain
    {
        string StructArgsFunc(object obj);
    }

    [ComVisible(true)]
    [InterfaceType(ComInterfaceType.InterfaceIsDual)]
    public interface IMyComLibArg
    {
        int myInt { get; set; }
        string myString { get; set; }
        bool myBool { get; set; }
        string[] myStrArray { get; set; }
    }

    [ClassInterface(ClassInterfaceType.None)]
    public class MyComLibArg : IMyComLibArg
    {
        public int myInt { get; set; }
        public string myString { get; set; }
        public bool myBool { get; set; }
        public string[] myStrArray { get; set; }
    }

    [ClassInterface(ClassInterfaceType.None)]
    public class MyComLibMain : IMyComLibMain
    {
        public string StructArgsFunc(object arg)
        {
            try
            {
                if (arg == null)
                {
                    return "arg is null.";
                }

                if (!(arg is MyComLibArg))
                {
                    return "arg is not MyComLibArg type.";
                }

                var obj = arg as MyComLibArg;

                var primitiveArg = $"obj.myInt={obj.myInt}\nmyString={obj.myString}\nmyBool={obj.myBool}";
                var arrays = "";

                foreach(var s in obj.myStrArray)
                {
                    arrays += s;
                }

                return $"success! ({primitiveArg}, {arrays}";

            }
            catch (Exception ex)
            {
                return ex.Message;
            }
        }
    }
}

■自分で調べたことや試したこと

・配列以外の型（int, bool, string）については渡せています。
・Dim strArray(2) As Stringを、「As Variant」や「As Object」に変えてもダメでした。

■使っているツールのバージョンなど補足情報

• 開発環境：VisualStudio2022
• Excel：64bit

<プロジェクトの情報>
・「アセンブリをCOM参照にする」：ON
・対象プラットフォーム：x64
・アセンブリに署名する：あり

<REGASMの情報>
・登録時
C:\Windows\Microsoft.NET\Framework64\v4.0.30319\regasm /tlb /codebase /v MyComLib.dll

どうかよろしくお願いいたします。

Answer 1

プロパティの参照は出来ましたが、設定ができませんでした。
メソッドで渡せた(ref でないとダメ)ので、どうにもならないようなら代用してみては？

using System.Runtime.InteropServices;

namespace ClassLibrary1
{
    [ComVisible(true)]
    [Guid("D57EE44E-7D09-452D-ACE7-226EE85340A2")]
    public interface IClass1
    {
        string[] strArray {
            [return: MarshalAs(UnmanagedType.SafeArray, SafeArraySubType = VarEnum.VT_BSTR)]
            get;
            [param: MarshalAs(UnmanagedType.SafeArray, SafeArraySubType = VarEnum.VT_BSTR)]
            set;
        }

        void SetValue([MarshalAs(UnmanagedType.SafeArray, SafeArraySubType = VarEnum.VT_BSTR)] ref string[] value);
    }

    [ComVisible(true)]
    [Guid("292DF7BD-1554-4BD7-8B15-A3A6850C4A8E")]
    [ClassInterface(ClassInterfaceType.None)]
    public class Class1 : IClass1
    {
        public string[] strArray { get; set; } = new string[] { "1", "2", "3" };

        public void SetValue(ref string[] value) {
            strArray = value;
        }
    }
}

Dim c As New ClassLibrary1.Class1
Dim s1() As String

s1 = c.strArray        ’OK
c.strArray = s1        'コンパイルエラー(関数またはインターフェースが～)
c.SetValue s1          'OK

Comments

[mtk57]

おお！なるほど！設定をメソッドにすると出来るのですね！勉強になります！
ありがとうございました！！