关于VBA中调用VSTO托管代码的问题

最新推荐文章于 2025-04-30 10:10:32 发布

weixin_34319374

最新推荐文章于 2025-04-30 10:10:32 发布

阅读量125

点赞数

CC 4.0 BY-SA版权

文章标签： runtime

原文链接：http://www.cnblogs.com/chongsenLi/archive/2009/04/27/1444689.html

本文介绍如何在Excel VBA中调用.NET托管代码，包括创建Excel Add-in项目、实现MyManagedFunctions类及在VBA中注册回调的方法。特别强调了在.NET类中显式声明构造函数的重要性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

最近做的项目需要在excel vba中调用.Net的托管代码，在MSDN的英文论坛上看到了一篇文章，便试着实现了一下结果发现问题多多

首先在VS中新建一个excel-addin项目

在ThisAddIn_Startup事件中加入如下代码：

this.Application.Run("RegisterCallback", new MyManagedFunctions(), missing, missing, missing, missing, missing
                , missing, missing, missing, missing, missing,
                missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing,
                missing, missing, missing, missing, missing, missing, missing, missing);

此函数的目的是在excel打开的时候运行RegisterCallback这个宏，RegisterCallback这个宏带有一个object参数

然后我们是实现MyManagedFunctions类如下：

[System.Runtime.InteropServices.ComVisible(true)]
    public class MyManagedFunctions
    {
        public MyManagedFunctions() { }
        public int GetNumber()
        {
            return 42;
        }
    }

勾选项目属性为对cominterop可见。

在VBA中新建一个模块加入 VBA代码：

Dim managedObject As Object

Public Sub RegisterCallback(callback As Object)
Set managedObject = callback
End Sub

Public Function GetNumberFromVSTO() As Integer
GetNumberFromVSTO = managedObject.GetNumber()
End Function

保存后退出，运行VS项目后在excel中输入=GetNumberFromVSTO() 发现输出了非法值，为了这个问题，我在网上找了一天，并且试了很久的时间

最后，试着给MyManagedFunctions类显试的声明一个默认的构造函数，问题解决。

问题很诡异，不知道为什么必须要显示的给出构造函数，这可能于VBA有关，具体没时间细究，我已经在MSDN上问了这个问题，希望能给遇到同样

问题的朋友一个解决思路

转载于:https://www.cnblogs.com/chongsenLi/archive/2009/04/27/1444689.html