vb.net开发中使用excel插件代码

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

做excel插件开发，可能需要为excel添加自定义的工具栏。这个也是非常的简单的。

作者：佚名来源：论坛整理 2007年11月9日

用VB.NET做excel插件开发，可能需要为excel添加自定义的工具栏。这个也是非常的简单的。

以下是引用片段：
　　Public Class ConnectClass Connect
　　Implements Extensibility.IDTExtensibility2
　　Dim app As Excel.Application
　　Dim wb As Excel.Workbook
　　Dim ws As Excel.Worksheet
　　Dim addInInstance As Object
　　Dim pasteText As Microsoft.Office.Core.CommandBarButton ‘定义一个工具栏按钮
　　Public Sub OnBeginShutdown()Sub OnBeginShutdown(ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnBeginShutdown
　　End Sub
　　Public Sub OnAddInsUpdate()Sub OnAddInsUpdate(ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnAddInsUpdate
　　End Sub
　　Public Sub OnStartupComplete()Sub OnStartupComplete(ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnStartupComplete
　　End Sub
　　Public Sub OnDisconnection()Sub OnDisconnection(ByVal RemoveMode As Extensibility.ext_DisconnectMode, ByRef custom As System.Array)
　　Implements Extensibility.IDTExtensibility2.OnDisconnection
　　End Sub
　　Public Sub OnConnection()Sub OnConnection(ByVal application As Object, ByVal connectMode As Extensibility.ext_ConnectMode,
　　ByVal addInInst As Object, ByRef custom As System.Array)
　　Implements Extensibility.IDTExtensibility2.OnConnection
　　If TypeOf (application) Is Excel.Application Then app = CType(application, Excel.Application)
　　addInInstance = addInInst
　　wb = app.ActiveWorkbook
　　ws = CType(wb.ActiveSheet, Excel.Worksheet)
　　Dim toolbar As Microsoft.Office.Core.CommandBar = Nothing
　　If Not app Is Nothing Then
　　toolbar = AddToolbar(app, "专用工具栏") ’添加工具栏
　　End If
　　’ 建立按钮添加文本
　　pasteText = MakeANewButton(toolbar, "Insert text",
　　1044, AddressOf pasteText_Click) ’添加工具栏按钮并帮定事件
　　End Sub
　　’添加工具栏
　　Private Function AddToolbar()Function AddToolbar(ByVal ex As Excel.Application, _
　　ByVal toolbarName As String) As Microsoft.Office.Core.CommandBar
　　Dim toolBar As Microsoft.Office.Core.CommandBar = Nothing
　　Try
　　’ 为add-in建立一个命令条
　　toolBar = CType(ex.CommandBars.Add(toolbarName,
　　Microsoft.Office.Core.MsoBarPosition.msoBarTop, , True),
　　Microsoft.Office.Core.CommandBar)
　　toolBar.Visible = True
　　Return toolBar
　　Catch
　　Return Nothing
　　End Try
　　End Function
　　’在工具栏上添加一个按钮
　　Private Function MakeANewButton()Function MakeANewButton(ByVal commandBar As Microsoft.Office.Core.CommandBar, ByVal caption
　　As String, ByVal faceID As Integer, ByVal clickHandler As Microsoft.Office.
　　Core._CommandBarButtonEvents_ClickEventHandler) As Microsoft.Office.Core.CommandBarButton
　　Try
　　Dim newButton As Microsoft.Office.Core.CommandBarButton
　　newButton = CType(commandBar.Controls.Add(Microsoft.Office.Core.MsoControlType.msoControlButton), Microsoft.Office.Core.CommandBarButton)
　　newButton.Caption = caption
　　newButton.FaceId = faceID
　　AddHandler newButton.Click, clickHandler
　　Return newButton
　　Catch ex As System.Exception
　　Return Nothing
　　End Try
　　End Function
　　’点击工具条按钮时应该执行的程序
　　Public Sub pasteText_Click()Sub pasteText_Click(ByVal barButton As Microsoft.Office.Core.CommandBarButton, ByRef someBool As Boolean)
　　Dim text As String = ""
　　Dim data As System.Windows.Forms.IDataObject = System.Windows.Forms.Clipboard.GetDataObject()
　　If data.GetDataPresent(System.Windows.Forms.DataFormats.Text) Then
　　text = data.GetData(System.Windows.Forms.DataFormats.Text).ToString()
　　If (Not app Is Nothing) Then
　　Me.app.ActiveCell.Value = text
　　End If
　　End If
　　End Sub
　　End Class

　　这样程序就完成了，赶紧动手体验吧!

查看本文来源

vb.net开发中使用excel插件代码

VIP专区

VIP用户

普通用户

闂備緡鍙庨崰鏇炩枎閵忋垺濯奸柕蹇嬪€栭～锟�

婵犵鈧啿鈧綊鎮樻径鎰畺闁靛ň鏅滄慨婊堟偨椤栨稓鎽冮柟鐑╂櫊瀹曟岸宕堕埡鍌滄殸闂佽鍨伴崢鏍姳閿涘嫭鍠嗘い銈呭姬婵☆偅婢樺Λ妤呮偂濞嗘挸瀚夐柍褜鍓熷顒侊紣娓氣偓閻涙捇鏌涘┑鍛樂缂佹鐭傞獮搴ㄥ焵椤掑嫬瀚夋い鏍ㄧ懁缁诲棝鏌熼褍鐏茬紒杈ㄧ箞閺屽洭鏁愰崟顓犳澖闁荤姳闄嶉崹钘壩ｉ崟顖涘殜闁硅泛顫曢埀顒€锕︾槐鏃堝箣閻愬弬妤呮煛閸偄鐏﹂柛瀣墬缁傛帞鎹勯搹瑙勵啈闂佸搫瀚烽崹閬嶅磻瀹ュ鍎嶉柛鏇ㄥ墯娴犳ê霉閿濆棗鈻曢柍褜鍓氶弻銊ф閻愬鈻曢悗锝傛櫇椤忛亶鏌曢崱顓熷

重磅专题

往期文章

vb.net开发中使用excel插件代码

业界热点: