Question

运行excel vba的程序弹出对话框:运行时错误'5' 无效的过程调用或参数

运行excel vba的程序
Sub 菜单栏位置()
Dim 主菜单栏 As CommandBar
Set 主菜单栏 = Application.CommandBars.Add
With 主菜单栏
.Visible = True
.Name = "我的主菜单"
.Position = msoBarTop
End With
End Sub
弹出对话框：运行时错误‘5’ 无效的过程调用或参数

Answer 1

帮你测试了一下，第一次运行正常，再运行出现“运行时错误'5' 无效的过程调用或参数

”提示。

原因：

1. 原始运行环境不存在"我的主菜单"工具栏，第一次运行时，可以添加"我的主菜单"工具栏，所以代码运行正常；

2. 再次运行代码，"我的主菜单"工具栏已经存在，所以运行报错，并生成“自定义*”工具栏。

将代码修改一下：

Sub 菜单栏位置()

     Dim 主菜单栏 As CommandBar

         On Error Resume Next                                                ‘新增代码

         Application.CommandBars("我的主菜单").Delete        ‘新增代码

      Set 主菜单栏 = Application.CommandBars.Add

        With 主菜单栏

              .Visible = True

              .Name = "我的主菜单"

              .Position = msoBarTop

        End With

End Sub

试试！