Question

vba 运行时错误'5'：无效的过程调用和参数

在网上下了个xla文件，加载后提示运行时错误'5'：无效的过程调用和参数。 不知道怎么办了，帮小弟看看哈， 感激不尽！！

Set cbarTest = _
Application.CommandBars("Worksheet Menu Bar").Controls.Add( _
Type:=msoControlPopup, _
Before:=Application.CommandBars("Worksheet Menu Bar").Controls("Help").Index, _
Temporary:=True)

Answer 1

你用的是2007以后的版本就会出现这种情况。
因为2007以后的版本菜单是使用功能区了，在添加菜单时位置和2003不同，所以before的位置参数在这无效。
另所添加的菜单在功能区里是显示在加载项中的，参照我的示例，运行宏main。

Sub tst1(ByVal i As Integer)

Dim customBar As CommandBarPopup
Set customBar = Application.CommandBars("Worksheet Menu Bar").Controls.Add( _
Type:=msoControlPopup, _
Temporary:=True)
customBar.Visible = True
customBar.Caption = "aaaa" & i
End Sub

Sub main()
For i = 1 To 3
tst1 i
Next

End Sub