Workbook_Open事件无效

LIUZHU

我在附件中的Workbook_Open事件中写了一段代码，内容是添加一个“我的报表”菜单，然后在其下面再添加一个“我的报表”子菜单，按理说，打开这个工作簿后，Excel应该自动添加菜单，但是在我的电脑上为何不执行呢？求助各位老师。（注：我已经启用宏，Excel2007）
经测试，问题出现在这句“Application.CommandBars(1).Controls.Add”，如果改成“Application.CommandBars(1).Controls("帮助(&H)").Controls.Add”，则可以添加菜单，这个是为什么呢，望老师或版主予以解答为感！

zhaogang1960

二级菜单加上菜单项就好了

zhaogang1960

试试看:

1. Private Sub Workbook_Open()
   
2.     Dim Hngcbb As CommandBarPopup, NewMenu As CommandBarPopup, mp As CommandBarButton
   
3.     On Error Resume Next
   
4.     Application.CommandBars("Worksheet menu bar").Controls("我的报表(&G)").Delete
   
5.     Set Hngcbb = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, _
   
6.     Before:=Application.CommandBars(1).Controls("帮助(&H)").Index, Temporary:=True)     '添加Excel菜单项，我的报表
   
7.     With Hngcbb
   
8.         .Caption = "我的报表(&G)"
   
9.         .Visible = True
   
10.     End With
    
11.    
    
12.     '添加第一个子菜单，我的报表
    
13.     Set NewMenu = Hngcbb.Controls.Add(Type:=msoControlPopup, Temporary:=True)
    
14.     With NewMenu
    
15.         .Caption = "我的报表(&C)"
    
16.         .BeginGroup = True
    
17.     End With
    
18.     '以下加菜单项
    
19.     Set mp = NewMenu.Controls.Add(msoControlButton)
    
20.     With mp
    
21.         .Caption = "最后一级"
    
22.         .OnAction = "ThisWorkbook.Macro1"
    
23.         .FaceId = 422
    
24.     End With
    
25.     Set Hngcbb = Nothing
    
26.     Set NewMenu = Nothing
    
27.     Set mp = Nothing
    
28. End Sub
    
29. 
    
30. 
    
31. 
    
32. Sub Macro1()
    
33.     MsgBox "这是最后一级测试"
    
34. End Sub

复制代码

LIUZHU

zhaogang1960 发表于 2013-1-1 01:27
试试看:

赵老师，您的代码还是不能运行啊，我感到奇怪的是，“Application.CommandBars(1).Controls.Add”，这句在别人的电脑上运行是完全没有问题的，也添加了自定义菜单，但是在我自己的电脑上测试时，这句“Application.CommandBars(1).Controls.Add”不能运行，即不能添加自定义菜单，非得要改成“Application.CommandBars(1).Controls("帮助(&H)").Controls.Add”才可以，两台电脑上的都是Excel2007，难道这是Excel的设置问题吗？

LIUZHU

zhaogang1960 发表于 2013-1-1 01:19
二级菜单加上菜单项就好了

就是在立即窗口中运行也有明显的区别
Application.CommandBars(1).Controls("帮助(&H)").Controls.Add Type:=msoControlPopup，运行这句后，马上增加一个自定义菜单
Application.CommandBars(1).Controls.Add Type:=msoControlPopup，运行这句后，没有反应，这真的是否是Excel设置问题呢？

zhaogang1960

LIUZHU 发表于 2013-1-1 09:47
就是在立即窗口中运行也有明显的区别
Application.CommandBars(1).Controls("帮助(&H)").Controls.Add T ...

这还真不好理解，2007很多地方和2003不兼容，后推出了很多补丁，建议安装2010

LIUZHU

zhaogang1960 发表于 2013-1-1 12:17
这还真不好理解，2007很多地方和2003不兼容，后推出了很多补丁，建议安装2010

赵老师，还想麻烦您一下，我发现Application.CommandBars(1).Controls.Add这句其实是可以添加自定义菜单的，只是自定义菜单看不见而已。

zhaogang1960

LIUZHU 发表于 2013-1-3 19:32
赵老师，还想麻烦您一下，我发现Application.CommandBars(1).Controls.Add这句其实是可以添加自定义菜单的 ...

你的2007比较特殊，就用它认识的方式写吧(Controls("帮助(&H)"))

LIUZHU

zhaogang1960 发表于 2013-1-3 19:35
你的2007比较特殊，就用它认识的方式写吧(Controls("帮助(&H)"))

Application.CommandBars(1).Controls.Add添加的自定义菜单其实是被隐藏了，有什么办法显示出来吗？

LIUZHU

zhaogang1960 发表于 2013-1-3 19:35
你的2007比较特殊，就用它认识的方式写吧(Controls("帮助(&H)"))

搞定了，删除安装目录下的Excel12.xlb文件即可，即恢复Excel默认方式。