【学习VSTO】——从文档级项目访问VBA代码

wpxxsyzx

1、新建一个启用宏的工作薄，比如工作薄1.xlsm,输入以下代码，新建一个模块，依次在模块、工作表模块、thisworkbook模块中输入测试代码，用来在VSTO中调用：
Public Sub aaa()
    MsgBox ("调用模块中的过程")
End Sub
Public Sub bbb()
    MsgBox ("调用工作表中的过程")
End Sub
Public Sub ccc()
    MsgBox ("调用工作薄中的过程")
End Sub
2、使用写入代码的工作薄1.xlsm新建文档级项目，添加代码：
Public Class Sheet1
    Private Sub Sheet1_Startup() Handles Me.Startup
    End Sub
    Private Sub Sheet1_Shutdown() Handles Me.Shutdown
    End Sub
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Application.Run ("aaa")
    Application.Run ("Sheet1.bbb")
    Application.Run ("ThisWorkbook.ccc")
  End Sub
End Class




该贴已经同步到 wpxxsyzx的微博

夜风淡淡

学习了，应用程序级别怎么访问VBA代码吗