Question

我正在尝试使用Excel-DNA从C＃代码调用Excel中的VBA回调。在搞乱了特定的数据类型和编组声明之后，我终于可以创建一个工作样本了：

C＃代码

[ComVisible(true)]
[ClassInterface(ClassInterfaceType.AutoDispatch)]
[ProgId("CSharpComObject")]
public partial class CSharpComObject
{
    Dictionary<string, Callback> _callbackMap = new Dictionary<string, Callback>();


    public void SubscribeStringData(string topic, [MarshalAs(UnmanagedType.FunctionPtr)] Callback callback)
    {
        _callbackMap[topic] = callback;
    }

    public void RaiseCallback(string topic, string data)
    {
        _callbackMap[topic](data);
    }

    public delegate void Callback([MarshalAs(UnmanagedType.BStr)] string data);
}

VBA模块

Option Explicit

Dim testObj As Object



Sub Subscribe()

Set testObj = CreateObject("CSharpComObject")

testObj.SubscribeStringData "someTopic", AddressOf StringDataCallback

End Sub



Sub StringDataCallback(ByVal data As String)

MsgBox "StringDataCallback Raised [" + data + "]"

End Sub

问题

从上面的代码示例中可以看出，字符串的默认COM编组是BStr a.k.a。ByVal ... As String。

我想知道是否有办法将字符串数据（或任何对象类型）传递给VBA回调ByRef，如果是这样，C＃声明和编组属性需要什么？

Answer 1

将参数指定为ref string应该有效。

有关字符串编组选项的详细信息，请参阅https://msdn.microsoft.com/en-us/library/s9ts558h(v=vs.110).aspx。

Excel DNA - Marshal C＃字符串到回调中的VBA ByRef

1 个答案: