| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net开发技巧 >> 技术文摘正文
最新推荐 更多内容
VB.Net对接excel插件的方法
VB.Net对接excel插件的方法
作者:佚名    来源:乐博网收集     更新时间:2007-11-10

  用VB.NETexcel插件开发,可能需要为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

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

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    没有相关技术文摘

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]