VBA 工作簿与工作表：打开、批量处理、保存、关闭与事件

适用场景

把同一个文件夹里的几十个工作簿合并到一张表、按模板批量生成文件、打开文件时自动刷新、修改单元格时自动记录时间。工作簿和工作表操作的核心是明确对象：操作哪个文件、哪张表，不能依赖“当前激活”的是谁。

常用对象

打开、保存、关闭

Sub OpenAndClose()
    Dim wb As Workbook
    Dim path As String

    path = ThisWorkbook.Path & Application.PathSeparator & "数据.xlsx"
    Set wb = Workbooks.Open(path, ReadOnly:=True)
    Debug.Print wb.Worksheets(1).Range("A1").Value
    wb.Close SaveChanges:=False
End Sub

保存：

wb.Save
wb.SaveAs Filename:=ThisWorkbook.Path & "\结果.xlsx", FileFormat:=xlOpenXMLWorkbook
wb.SaveAs Filename:=ThisWorkbook.Path & "\结果.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
wb.SaveCopyAs ThisWorkbook.Path & "\备份.xlsx"

• SaveAs 会改变当前工作簿指向的文件；SaveCopyAs 只复制一份，不改变当前文件。
• 保存为 .xlsm 才能保留宏；保存为 .xlsx 会丢失 VBA 项目。
• 文件名里包含路径分隔符、冒号等非法字符会报错；用 Replace 清理。

批量处理文件夹

Sub MergeWorkbooks()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim dest As Worksheet
    Dim lastRow As Long

    folderPath = ThisWorkbook.Path & Application.PathSeparator & "数据"
    Set dest = ThisWorkbook.Worksheets("汇总")

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    fileName = Dir(folderPath & Application.PathSeparator & "*.xlsx")
    Do While fileName <> ""
        Set wb = Workbooks.Open( _
            folderPath & Application.PathSeparator & fileName, _
            ReadOnly:=True)

        lastRow = dest.Cells(dest.Rows.Count, "A").End(xlUp).Row
        wb.Worksheets(1).Range("A2:D100").Copy _
            Destination:=dest.Range("A" & lastRow + 1)

        wb.Close SaveChanges:=False
        fileName = Dir
    Loop

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

示例里的 A2:D100 是固定范围；实际使用时应先求源表最后一行。Dir 循环第一次传路径，后续不传参数，直到返回空字符串。

工作表操作

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(1))
ws.Name = "临时"

ws.Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
ws.Visible = xlSheetHidden          ' 隐藏，用户可在菜单取消隐藏
ws.Visible = xlSheetVeryHidden      ' 深度隐藏，只能通过 VBA 恢复
ws.Protect Password:="1234"
ws.Unprotect Password:="1234"

删除工作表：

Application.DisplayAlerts = False
ThisWorkbook.Worksheets("临时").Delete
Application.DisplayAlerts = True

删除前确认表里没有需要保留的数据；删除工作表不能撤销。

事件

事件代码必须写在对应的模块里：

• Workbook_Open、Workbook_BeforeClose 写在 ThisWorkbook 模块；
• Worksheet_Change、Worksheet_SelectionChange 写在对应工作表的模块；
• 写在标准模块里不会触发。

' ThisWorkbook 模块
Private Sub Workbook_Open()
    ThisWorkbook.Worksheets("汇总").Range("A1").Value = Now
End Sub

' Sheet1 模块
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Me.Range("A:A")) Is Nothing Then Exit Sub

    Application.EnableEvents = False
    On Error GoTo Cleanup
    Target.Offset(0, 1).Value = Now
Cleanup:
    Application.EnableEvents = True
End Sub

修改单元格会再次触发 Change，所以要先关闭事件，处理完再打开；出错时也要恢复，否则后续事件都不再触发。

易错点

• ActiveWorkbook 指错文件：用户切到别的窗口后，ActiveWorkbook 就变了；固定用 ThisWorkbook 或明确的 Workbooks("名称")。
• DisplayAlerts = False 掩盖提示：关闭未保存的工作簿、覆盖同名文件时不再询问，可能丢数据；只在明确知道后果时临时关闭，并确保恢复。
• EnableEvents 没恢复：事件处理里出错后直接退出，EnableEvents 仍是 False，之后所有事件失效；用错误处理块恢复。
• 工作表名重复或非法：名称超过 31 个字符、包含 \ / ? * [ ] : 会报错；改名后公式和代码引用也可能失效。
• 按索引取工作表：用户拖动工作表顺序后索引变化；按名称取更稳。
• Workbooks.Open 触发链接更新：文件里有外部链接时可能弹窗；用 UpdateLinks:=0 避免更新，或明确处理。
• 保存格式不对：.xlsx 丢宏、.csv 只保存当前表；按用途选择格式。
• 路径拼接：用 Application.PathSeparator，不要硬编码 \；Mac 版 Excel 的路径分隔符不同。

相关条目

• vba-basics — VBA 语法与对象模型
• vba-range-cells — 区域读写
• vba-loops — 遍历文件和工作表
• vba-error-handling — 恢复设置与关闭文件
• excel-macro-recording — 录制宏入门

参考链接

• Microsoft Learn: Excel VBA 对象模型

读完自测

合上页面，先回答，再展开对照。

1. ThisWorkbook 和 ActiveWorkbook 有什么区别？
2. 为什么事件代码里要临时设置 EnableEvents = False？
3. SaveAs 和 SaveCopyAs 有什么区别？