VBA中访问VSTO应用程序级项目中的代码

1、新建一个应用程序级的项目（ExcelAddIn1）
2、在项目中添加一个类（Class1）
3、在新建的类中输入如下代码
'导入命名空间
Imports System.Runtime.InteropServices
Imports System.Windows.Forms
'使接口对Com可见并定义向Com公开接口的类型
<ComVisible(True)> _
<InterfaceType(ComInterfaceType.InterfaceIsIDispatch)> _
Public Interface IClass1 '声明接口
  Sub GetDrive()
End Interface
'使类对Com可见并定义接口的类型
<ComVisible(True)> _
<ClassInterface(ClassInterfaceType.None)> _
Public Class Class1
  Implements IClass1
  Public Sub GetDrive() Implements IClass1.GetDrive
    MessageBox.Show(My.Computer.FileSystem.Drives.Count.ToString)
  End Sub
End Class
4、在thisaddin.vb中添加如下代码，重写RequestComAddInAutomationService方法以返回 Class1 类的实例。
Protected Overrides Function RequestComAddInAutomationService() As Object
    Return New Class1
  End Function
5、运行项目，生成项目，保存并退出
6、打开Excel，输入如下代码
Sub CallVSTO()
    Dim objCall As Object
    Set objCall = Application.COMAddIns("ExcelAddIn1").Object  ' ExcelAddIn1是你的项目名称
    objCall.getdrive
End Sub
运行以上代码即可调用Class1类中的代码

ExcelAddIn1.rar

76.47 KB, 下载次数: 35