用VSTO实现列出EXCEL的所有菜单及子菜单

wqfzqgk

1. Imports System.Windows.Forms
   
2. 
   
3. Public Class Form1
   
4.     Public col As Integer = 1
   
5.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
6.         On Error Resume Next
   
7.         Dim xlapp As Excel.Application = CType(Globals.ThisAddIn.Application, Excel.Application) '定义EXCEL主程序
   
8.         Dim no As New TreeNode '定义
   
9.         no = Me.TreeView1.Nodes.Add("excel") '添加主node
   
10.         For Each cd As Office.CommandBar In xlapp.CommandBars '添加工作表菜单及子菜单
    
11.             addd(cd, xlapp.CommandBars, no)
    
12.         Next
    
13.     End Sub
    
14.    
    
15.     Sub add(ByVal menuitem As Object, ByVal comman As Object, ByVal nodefather As TreeNode) '递归加入工作表菜单
    
16.         Dim node As New TreeNode
    
17.         For Each menuitem In comman
    
18.             node.Text = menuitem.caption
    
19.             nodefather.Nodes.Add(node)
    
20.         Next
    
21.         For Each cmm In comman
    
22.             add(cmm, menuitem, nodefather)
    
23.         Next
    
24.     End Sub
    
25.     Sub addd(ByVal menuitem As Object, ByVal comman As Object, ByVal nodefather As TreeNode) '递归加入子菜单
    
26.         Dim node As New TreeNode
    
27.         Dim nodd As New TreeNode
    
28.         For Each menuitem In comman
    
29.             node.Text = menuitem.caption
    
30.             nodefather.Nodes.Add(node)
    
31.             For Each cmm In comman
    
32.                 Select Case cmm.Type
    
33.                     Case Microsoft.Office.Core.MsoControlType.msoControlPopup, Microsoft.Office.Core.MsoControlType.msoControlGraphicPopup, Microsoft.Office.Core.MsoControlType.msoControlButtonPopup, Microsoft.Office.Core.MsoControlType.msoControlSplitButtonPopup, Microsoft.Office.Core.MsoControlType.msoControlSplitButtonMRUPopup
    
34.                         Dim sctl As Office.CommandBarControl, ctlPopup As Office.CommandBarPopup
    
35.                         ctlPopup = cmm
    
36.                         nodd.Text = cmm.caption
    
37.                         For Each sctl In ctlPopup.Controls
    
38.                             add(cmm, menuitem, nodd)
    
39.                         Next
    
40.                     Case Else
    
41.                         nodd.Text = cmm.caption
    
42.                         add(cmm, menuitem, nodd)
    
43.                 End Select
    
44.             Next
    
45.         Next
    
46. 
    
47.     End Sub
    
48.     Sub DumpControl1(ByVal ctl As Office.CommandBarControl, ByVal level As TreeNode) '递归写入NODE
    
49.         Dim node As New TreeNode
    
50.         node.Text = ctl.Caption & ctl.Id
    
51.         level.Nodes.Add(node)
    
52.         Select Case ctl.Type
    
53.             Case Microsoft.Office.Core.MsoControlType.msoControlPopup, Microsoft.Office.Core.MsoControlType.msoControlGraphicPopup, Microsoft.Office.Core.MsoControlType.msoControlButtonPopup, Microsoft.Office.Core.MsoControlType.msoControlSplitButtonPopup, Microsoft.Office.Core.MsoControlType.msoControlSplitButtonMRUPopup
    
54.                 Dim sctl As Office.CommandBarControl, ctlPopup As Office.CommandBarPopup
    
55.                 ctlPopup = ctl
    
56.                 For Each sctl In ctlPopup.Controls
    
57.                     DumpControl1(sctl, level)
    
58.                 Next
    
59.             Case Else
    
60.                 '无子菜单
    
61.         End Select
    
62.     End Sub
    
63.     Sub DumpBars1() '子菜单写入node
    
64.         Dim xlapp As Excel.Application = CType(Globals.ThisAddIn.Application, Excel.Application)
    
65.         Dim l As New TreeNode
    
66.         l.Text = xlapp.CommandBars(0).Controls(0).Caption
    
67.         Me.TreeView1.Nodes.Add(l)
    
68.         DumpControl1(xlapp.CommandBars(0).Controls(0), l)
    
69.         Dim bar As Office.CommandBar
    
70.         For Each bar In xlapp.Application.CommandBars
    
71.             DumpControl1(bar, l)
    
72.         Next
    
73.     End Sub
    
74. End Class

复制代码

[ 本帖最后由 wqfzqgk 于 2011-6-27 07:58 编辑 ]

wqfzqgk

wqfzqgk

代码有点乱，没有整理，大部分用的是递归来实现的
已改，将xlapp改为引用其他的office软件，如word,access等也可以引用

[ 本帖最后由 wqfzqgk 于 2011-6-27 08:00 编辑 ]

byl2005

首先谢谢分享源代码,能不能把制作过程做一个教程啊?以便我们这些玩家好好学习呢?谢谢

dsd999

谢谢分享，那个版本？

byl2005

找到一个很好的教程http://www.cnblogs.com/brooks-do ... /02/09/1666150.html

jsxygshh

谢谢楼主的分享，正在学习此方面的知识

bmdsjxyw

谢谢分享我看看