查看菜单里的命令

爱疯

在03里，指定一个命令最多只4层。
比如：工作表菜单栏 - 文件(&F) - 打印区域(&T) - 设置打印区域(&S)

1. Sub test1()
   
2.     Dim c, ctl, i
   
3.     Cells.Clear
   
4.     For Each c In CommandBars       '命令栏
   
5.         For Each ctl In c.Controls  '命令栏控件
   
6.             i = i + 1
   
7.             Cells(i, 1) = c.Index
   
8.             Cells(i, 2) = c.NameLocal
   
9.             Cells(i, 3) = ctl.Index
   
10.             Cells(i, 4) = ctl.Caption
    
11.         Next ctl
    
12.     Next c
    
13. End Sub
    
14. 
    
15. 
    
16. Sub test2()
    
17.     Dim c1, c2, c3, c4, i
    
18.     On Error Resume Next
    
19.     Cells.Clear
    
20.     For Each c1 In CommandBars    '命令栏
    
21.         For Each c2 In c1.Controls    '命令栏控件
    
22.             For Each c3 In c2.Controls
    
23.                 For Each c4 In c3.Controls
    
24.                     i = i + 1
    
25.                     Cells(i, 1) = c1.Index
    
26.                     Cells(i, 2) = c1.NameLocal
    
27.                     Cells(i, 3) = c2.Index
    
28.                     Cells(i, 4) = c2.Caption
    
29.                     Cells(i, 5) = c3.Index
    
30.                     Cells(i, 6) = c3.Caption
    
31.                     Cells(i, 7) = c4.Index
    
32.                     Cells(i, 8) = c4.Caption
    
33.                 Next c4
    
34.             Next c3
    
35.         Next c2
    
36.     Next c1
    
37. End Sub

复制代码

问题1：为什么test1显示“工作表菜单栏”下有“操作”；而test2无？






问题2：从test2结果看，有的结果为什么没出现在03里？

wayy

收藏学习了，谢谢