VBA笔记：Workbook、Worksheets对象

1.对象清单

对象	说明
Application	代表excel应用程序
Workbook	代表excel的工作簿，一个workbook对象代表一个工作簿对象
worksheet	代表excel的工作表，一个worksheet对象代表一张普通工作表
Range	代表工作表里的单元格，可以是单个、也可以是单元格区域

2.对象 Application

2.1 属性 ScreenUpdating

作用：屏幕是否刷新的开关

Sub InputTest2()
    Cells.ClearComments
    Application.ScreenUpdating = False '暂停屏幕刷新，不能看到运算过程
    Range("A1:A10") = 100
    MsgBox "有看到100的输入过程吗？"
    Range("B1:B10") = 200
    MsgBox "有看到200的输入过程吗"
    Application.ScreenUpdating = True '解开刷新屏幕
End Sub

2.2 属性 DisplayAlerts

作用：程序在运行过程中，是否显示警告信息，默认值为true

Sub DelSht()
    Dim sht As Worksheet
    Application.DisplayAlerts = False '关闭警告信息显示
    For Each sht In Worksheets
        If sht.Name = ActiveSheet.Name Then
            sht.Delete
        End If
     Next
     Application.DisplayAlerts = True '解锁警告信息显示
End Sub

2.3 属性 EnableEvents

作用：限制事件的触发

'Worksheet_SelectionChange = 工作表点击事件'
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    Target.Value = Target.Address
    Application.EnableEvents = False
    Target.Offset(1, 0).Select
    Application.EnableEvents = True
End Sub

2.4 属性 WorksheetFunction

作用：部分excel函数在vba里并不能直接使用，只能通过 WorksheetFunction的方式来间接使用

Sub CountTest()
    Dim mycount As Integer
    mycount = Application.WorksheetFunction.CountIf(Range("A1:B50"), ">100")
    MsgBox "A1:B50中大于100的单元格个数为：" & mycount
End Sub

3.对象：Workbook

3.1 基础属性

Sub WBMsg()
    Range("B2:B4").ClearContents
    Range("B2") = ThisWorkbook.Name '当前工作簿的名字
    Range("B3") = ThisWorkbook.Path '当前工作簿的路径
    Range("B4") = ThisWorkbook.FullName '当前工作簿的路径（带名字）
End Sub

更多的属性，可以在帮助文档里查看

3.2 工作簿的操作

新建

空白工作簿 Workbooks.Add
模板工作簿（以目标文件为模板） Workbooks.Add "C:\Book1.xls"

打开

Workbooks.Open "C:\Book1.xls"

激活(选中)

Workbooks("Book1"). Activate

保存

保存 ThisWorkbook.Save
另存为 ThisWorkbook.SaveAs Filename:="C:\Book2.xls"
保留原文件、另存新文件 ThisWorkbook.SaveCopyAs Filename:="C:\Book2.xls"

关闭

关闭所有 Workbooks.Close
关闭某个文件 Workbooks("Book2").Close
保存并关闭某个文件
Workbooks("Book2").Close savechanges :=True '写法1
Workbooks("Book2").Close True '写法2(省略参数名)

3.3 ThisWorkbook与ActiveWorkbook

前者是代码所在的工作簿，后者是活动的工作簿

4.对象：Worksheet

索引

选择第1个工作表 Worksheets.(1)
选择名为"Sheet1"的工作表 Worksheets.("Sheet1")

新建

空白工作表 Worksheets.Add
插入多个工作表 Worksheets.Add Count:=3
在xx工作表前后插入工作表
Worksheets.Add before:=Worksheets(1)
Worksheets.Add after:=Worksheets(1)
在xx工作表前后插入多个工作表
Worksheets.Add after:=Worksheets(1) Count:=3

改名

改名 Worksheets(2).Name = "工资表"
新建起名

Sub ShtAdd()
    Worksheets.Add before:=worksheets(1)
    Activesheet.Name = "工资表"
End Sub

Sub ShtAdd()
    Worksheets.Add(before:=worksheets(1)).Name="工资表"
End Sub

删除

Worksheets("Sheet1").Delete

激活

Worksheets("Sheet1").Activate
Worksheets("Sheet1").Select

复制

将"Sheet1"复制，并粘贴到"考勤表"的前&后面
Worksheets("Sheet1").copy before:=Worksheets("考勤表")
Worksheets("Sheet1").copy after:=Worksheets("考勤表")
不使用参数，默认将工作表复制到 新工作簿 中
Worksheets("考勤表").copy

移动

将"Sheet1"移动到"考勤表"的前&后面
Worksheets("Sheet1").move before:=Worksheets("考勤表")
Worksheets("Sheet1").move after:=Worksheets("考勤表")
不使用参数，默认将工作表移动到 新工作簿 中
Worksheets("考勤表").move

5.对象：Range

Range对象的内容太大，后面开个独立章