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

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

我认为您的问题是在Application.Run "FWorking.xlsb!OpenFiles"中使用 FWorking ，如果工作簿不再被称为 FWorking ，它将无法查找和执行宏。

也许你可以试试：

Application.Run thisworkbook.name & "!OpenFiles"

或只是使用

Application.Run "OpenFiles"

Answer 2

看起来它只适用于Auto_Open作为宏的名称。我重新录制了名为Open_Macro的宏，但它确实有效。