Excel自定义菜单调用宏报错：旧文件名提示，VBA编辑器运行正常求助

• 检查自定义菜单的宏引用路径
  打开VBA编辑器，找到自定义菜单的创建代码（通常在ThisWorkbook或模块中），查看按钮绑定的宏是否带有旧文件名前缀。比如原来的旧文件名.xlsm!宏名，直接修改为仅保留宏名，或者用ThisWorkbook.宏名（如果宏在工作簿模块内）。示例：把.OnAction = "OldFileName.xlsm!Macro1"改成.OnAction = "Macro1"。

• 修复宏的名称与引用一致性
  确认所有宏的Sub名称和菜单调用的名称完全匹配，没有拼写错误。避免宏名包含特殊字符或空格，尽量使用英文命名（若用中文需确保调用时完全一致）。

• 用VBA动态生成自定义菜单（避免硬编码文件名）
  放弃手动创建菜单，改用代码动态生成，确保宏引用基于当前工作簿。示例代码：

  Sub AddCustomMenu()
      Dim cmdBar As CommandBar
      Dim cmdBarCtrl As CommandBarControl
      
      ' 先删除旧菜单避免重复
      On Error Resume Next
      CommandBars("Worksheet Menu Bar").Controls("自定义菜单").Delete
      On Error GoTo 0
      
      ' 创建新菜单
      Set cmdBar = CommandBars("Worksheet Menu Bar")
      Set cmdBarCtrl = cmdBar.Controls.Add(Type:=msoControlPopup, Before:=cmdBar.Controls.Count)
      cmdBarCtrl.Caption = "自定义菜单"
      
      ' 添加按钮并绑定宏（无文件名前缀）
      With cmdBarCtrl.Controls.Add(Type:=msoControlButton)
          .Caption = "执行宏1"
          .OnAction = "Macro1" ' 直接使用宏名
          .FaceId = 123 ' 可选：设置图标
      End With
  End Sub
  

  将这段代码放在ThisWorkbook的Workbook_Open事件中，确保每次打开文件自动生成正确菜单：

  Private Sub Workbook_Open()
      Call AddCustomMenu
  End Sub
  

• 检查网络驱动器权限与路径
  确保所有同事对网络驱动器上的文件拥有读取/写入权限（若宏需修改内容），同时确认文件路径和文件名无特殊字符（如中文空格、特殊符号），尽量使用英文路径。

• 清理Excel宏缓存
  关闭所有Excel文件，在任务管理器中结束所有EXCEL.EXE进程，再重新打开文件，清除缓存的旧文件名信息。同事的电脑也需执行同样操作后再测试。

内容的提问来源于stack exchange，提问作者TeachASU