VBA笔记：Workbook、Worksheets对象

阿白mvo3hep7cv 2020-07-21

展开全文

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 = TrueEnd 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的单元格个数为：' & mycountEnd 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