Excel中VBA编程学习笔记（八）--工作薄应用(WORKBOOK)

1、获取工作薄数量

Private Sub test()

   MsgBox ("工作薄数量为：" & Workbooks.Count)

   Workbooks(1).Activate

   Workbooks("第6次作业成绩.xls").Activate

MsgBox ("当前工作薄名：" + ThisWorkbook.name)

End Sub

注：Workbooks(1)表示第一个工作薄，访问某个工作薄可以通过下表索引也可以通过名称。ThisWorkbook表示当前工作薄，执行VBA代码所在的工作薄，ActivateWorkBook表示活动工作薄，它们可能相同也可能不同。

2、遍历所有工作薄

Sub test()

    For Each wb In Workbooks

        Debug.Print wb.Name

    Next

    For index = 1 To Windows.Count

        Debug.Print Windows(index).Parent.Name

    Next

End Sub

注意：上面两种方式输出的结果的顺序不同

3、删除工作薄中的所有图表

Private Sub test()

   ThisWorkbook.Charts.Delete

End Sub

4、设置工作薄为自动更新

Private Sub test()

   ThisWorkbook.AutoUpdateSaveChanges = True

   ThisWorkbook.AutoUpdateFrequency = 5 '以分钟为单位

End Sub

注意：此时必须设置“共享工作薄”，并将工作薄保存成xlsm格式的共享工作薄。