如何按日期自动激活Excel工作簿中对应的工作表？

实现步骤： #

• 打开目标Excel工作簿，按下Alt + F11打开VBA编辑器。
• 在左侧项目资源管理器中找到你的工作簿，双击ThisWorkbook对象（若看不到项目管理器，按Ctrl + R调出）。
• 在右侧代码窗口粘贴以下代码：

Private Sub Workbook_Open()
    Dim targetSheetName As String
    ' 将系统当日日期格式化为"DD.MM.YYYY"，匹配你的工作表命名规则
    targetSheetName = Format(Date, "DD.MM.YYYY")
    
    On Error Resume Next ' 捕获工作表不存在的异常
    ThisWorkbook.Sheets(targetSheetName).Activate
    If Err.Number <> 0 Then
        MsgBox "未找到日期为" & targetSheetName & "的工作表", vbInformation
    End If
    On Error GoTo 0 ' 恢复默认错误处理机制
End Sub

关键注意事项： #

• 代码必须放在ThisWorkbook对象中，因为Workbook_Open是工作簿级别的触发事件，放在普通模块无法自动执行。
• Format(Date, "DD.MM.YYYY")确保生成的日期字符串和工作表命名完全一致（大写DD对应两位日、MM对应两位月、YYYY对应四位年）。
• 错误处理逻辑会在当日无对应工作表时弹出提示，避免程序崩溃。

生效验证： #

• 保存工作簿时需选择启用宏的工作簿格式（.xlsm或.xlsb），否则宏无法生效。
• 关闭并重新打开工作簿，会自动激活与当日日期同名的工作表；若不存在对应工作表，将弹出提示框。

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