如何实现打开以Current Approved开头的Excel文件时自动运行PERSONAL.XLSB中的宏？

我明白你想要实现的效果——当用户打开以"Current Approved"开头的XLS文件时，自动从PERSONAL.XLSB触发宏，完全不需要手动操作。你已经走对了方向，用应用程序事件监听工作簿打开，但代码里有个小问题导致没达到预期，我帮你修正一下：

修正后的完整代码 #

把这段代码放到PERSONAL.XLSB的ThisWorkbook模块里：

' 声明应用程序事件变量
Public WithEvents MonitorApp As Application

' 当PERSONAL.XLSB启动时，绑定事件监听到Excel应用程序
Private Sub Workbook_Open()
    Set MonitorApp = Application
End Sub

' 监听所有工作簿打开事件，仅处理符合命名规则的文件
Private Sub MonitorApp_WorkbookOpen(ByVal Wb As Workbook)
    ' 检查打开的工作簿名称是否以"Current Approved"开头
    ' 如果需要精准匹配XLS格式，可修改为：Wb.Name Like "Current Approved*.xls"
    If Wb.Name Like "Current Approved*" Then
        ' 这里替换成你实际要执行的宏逻辑，当前是测试用的消息框
        MsgBox "Test"
        
        ' 示例：直接操作目标工作簿（无需激活）
        ' Wb.Sheets(1).Range("A1").Value = "自动执行的宏已运行"
    End If
End Sub

操作步骤 #

1. 打开Excel，按Alt+F11打开VBA编辑器
2. 在左侧项目窗口找到PERSONAL.XLSB，展开后双击ThisWorkbook模块
3. 删除原有代码，粘贴上面的修正代码
4. 保存PERSONAL.XLSB（按Ctrl+S），重启Excel生效

为什么你的原代码没生效？ #

你的思路是对的，但有个多余的操作：

• 当MonitorApp_WorkbookOpen事件触发时，参数Wb就是刚刚打开的那个工作簿，不需要循环遍历所有工作簿
• 遍历的逻辑可能会重复触发（比如打开多个目标文件时），而且效率更低

额外注意事项 #

• 确保Excel的信任中心允许启用宏，否则PERSONAL.XLSB的宏无法自动运行
• 如果还没有PERSONAL.XLSB，可以通过录制一个简单宏，选择保存到"个人宏工作簿"来生成它
• 尽量避免使用Activate操作工作簿，直接通过Wb对象操作更高效，还能避免界面闪烁

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