今日学习目标

  • 掌握Workbook对象的基本操作
  • 学会打开、保存、关闭工作簿
  • 了解工作簿事件

知识点

1. Workbook对象

vba
' 打开工作簿
Workbooks.Open "路径"
' 保存工作簿
Workbooks("文件名").Save
Workbooks("文件名").SaveAs "新路径"
' 关闭工作簿
Workbooks("文件名").Close

2. 常用属性和方法

  • Name：工作簿名称
  • Path：工作簿路径
  • FullName：完整路径
  • Sheets：工作表集合

今日代码

vba
Sub 打开工作簿()
    Dim wb As Workbook
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\test.xlsx")
    MsgBox "已打开: " & wb.Name
End Sub

Sub 保存工作簿()
    ActiveWorkbook.Save
    MsgBox "已保存"
End Sub

练习题

  1. 打开指定路径的工作簿
  2. 批量打开多个工作簿
  3. 遍历所有打开的工作簿

参考解答

1. 使用Workbooks.Open "完整路径"打开工作簿，建议使用完整路径。 2. 使用数组存储多个路径，用循环依次打开每个工作簿。 3. 使用For Each wb In Workbooks遍历，打印每个工作簿的名称。

由在线工具箱(www.vba.net)整理制作