| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 793 人关注过本帖
标题:求助,如何在VB.net中使用EXCEL插件
只看楼主 加入收藏
Icand
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2011-3-26
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
求助,如何在VB.net中使用EXCEL插件
想在的窗体中插入Excel的表格,并在同一个窗体中设置些按钮进行操作。
就像附件中的样子,请高手解答如果实现,谢谢啦~
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: Excel 
2011-04-07 14:54
bate6
Rank: 2
等 级:论坛游民
帖 子:8
专家分:70
注 册:2011-4-8
收藏
得分:20 
做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. ‘定义一个工具栏按钮
  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. = 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.
  Dim toolBar As Microsoft.Office. = Nothing
  Try
  ’ 为add-in建立一个命令条
  toolBar = CType((toolbarName,
  Microsoft.Office.Core.MsoBarPosition.msoBarTop, , True),
 

不会英语照样写软件 汉语编程 易学就会社区 www.
2011-04-08 20:09
Icand
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2011-3-26
收藏
得分:0 
回复 2楼 bate6
你好,谢谢你的回帖~
能说明下什么自定义工具栏吗,还有这个代码写在哪里的?~
2011-04-09 01:35
Icand
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2011-3-26
收藏
得分:0 
回复 2楼 bate6
这几天又用了webbrowser,可以会无法显示,唉
2011-04-09 15:07
快速回复:求助,如何在VB.net中使用EXCEL插件
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.042849 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved