vba - 重命名文件后自动打开宏失败

Question

我有一个文件，其中有一个 auto_open 宏，它启动另一个名为 OpenFIles 的宏。我不得不以另一个名称保存文件，因为当我通过公司 VPN 工作时，该文件仅以只读模式打开。如果重命名的文件已经打开，我可以运行 OpenFiles 宏，但是当我打开文件时，auto_open 宏会给我一条错误消息，指出宏可能不可用或所有宏都被禁用。我的安全设置与原始文件相同。我会回到我的原始文件，但我在新文件中做的太多了。请帮忙。代码是：

Sub LauncMacro()
  Auto_Open Macro
  Application.Run "FWorking.xlsb!OpenFiles"
End Sub

Answer 1

Sub LauncMacro()
  Auto_Open Macro
  Application.Run "FWorking.xlsb!OpenFiles"
End Sub

我认为您的问题是使用FWorkingApplication.Run "FWorking.xlsb!OpenFiles"如果工作簿不再称为FWorking，它将无法找到并执行宏。

也许你可以尝试：

Application.Run thisworkbook.name & "!OpenFiles"

或者只是使用

Application.Run "OpenFiles"

Answer 2

看起来它只适用于 Auto_Open 作为宏的名称。我重新录制了名为 Open_Macro 的宏，它工作正常。