VB.NET 开发add in 外接程序简单示例
"-----------------------------------------------------------------------
Imports Microsoft.Office.Tools.Ribbon
Imports Microsoft.Office.Interop
Public Class Ribbon1
Dim xlapp As Excel.Application '定义Excel程序
Dim xlbook As Excel.Workbook '定义Excel工作簿
Dim xlsheet As Excel.Worksheet '定义Excel工作表
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button1.Click
xlapp = Globals.ThisAddIn.Application '获取add in 当前表
xlbook = xlapp.ActiveWorkbook '设置XLBOOK 为活动工作簿
xlsheet = xlbook.ActiveSheet '设置xlsheet 为当前活动工作簿
MsgBox(xlsheet.Range("a1").Value)
End Sub
End Class