VBA学习笔记(02章 Excel工作簿和工作表操作)
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第二课工作簿的表示方法
Option Explicit
'-------------------------------------------------------------------------- 'VBA中，经常要在不同工作簿之间转换，工作簿的表示方法很重要，我们来看看
'工作簿有几种表示方法
'-------------------------------------------------------------------------- Sub 工作簿名称表示法()
MsgBox Workbooks("2-1.工作簿的表示方法").Parent '返回工作簿对象的父对象。End Sub
Sub 工作簿引索号表示法()
MsgBox Workbooks(2).Name '返回工作簿的名称（第二个工作簿）
End Sub
Sub 窗口表示法()
MsgBox Windows.Count '返回当前excel工作簿打开的个数
msgbox Windows(1) '返回第几个工作簿的名称
End Sub
（注意：索引号表示法与窗口表示法展示的工作簿顺序是相反的）
Sub 工作簿实例workbooks法()
Dim i
For i = 1 To Workbooks.Count
Cells(i, 1) = Workbooks(i).Name
Next
End Sub
Sub 工作簿实例windows方法()
Dim i
For i = 1 To Windows.Count
Cells(i, 2) = Windows(i)
Next
End Sub
第三课当前工作簿与活动工作簿
Option Explicit
'thisworkbook当前工作簿，代码所在工作簿
'activeworkbook活动工作簿，被激活的工作簿
Sub 当前与活动工作簿区别实例()
MsgBox & "---" &
End Sub
Sub 运用()
MsgBox ThisWorkbook.Path & Chr(10) & ThisWorkbook.FullName
End Sub
（解释：Path路径，FullName全名，Chris（）换行符）
Sub 验证当前工作簿是否已打开()
Dim wk As Workbook, a
For Each wk In Workbooks
a =
If = "学习VBA.xlsm" Then
wk.Activate（解释：激活）
MsgBox "已激活工作簿" &
Exit Sub
End If
Next wk
MsgBox "没有发现工作簿：学习VBA.xlsm"
End Sub
'思考题：用workbooks.count和windows.count来做上面这道题？
第四课工作簿基础操作
'workbooks由当前所有在内存中打开的workbook对象组成
'向workbooks添加workbook对象
'1.新建工作簿
Sub 新建工作簿()
Dim wkb As Workbook '声明wkb为工作簿
Set wkb = Workbooks.Add '新建工作秒簿（注意：对象赋值需要加set）
wkb.SaveAs "c:\123.xls" '保存为工作簿
End Sub
'2.打开工作簿
Sub 打开工作簿()
Dim wkb As Workbook
Set wkb = Workbooks.Open("c:\123.xls")
End Sub
'3.关闭工作簿
Sub 关闭()
Workbooks("123").Close True(注意：TRUR是保存内容)
End Sub
'3.文件复制与删除
Sub 文件复制与删除()
FileCopy "c:\123.txt", "c:\321.txt" '对所有文件类型都起作用
Kill "c:\321.txt"
End Sub
第五课工作簿实例应用
Sub 文件是否存在()
a = Dir("c:\123.xls")（解释：Dir函数，取出目录文件）
If a = "" Then
MsgBox "不存在"
Else
MsgBox "存在"
End If
End Sub
Sub 打开指定目录下的文件()
Dim a$, n!, wbs As Workbook
a = Dir("c:\*.txt")
Workbooks.Open "c:\" & a
Do
a = Dir
If a <> "" Then
Workbooks.Open "c:\" & a
Else
Exit Sub
End If
Loop
End Sub
第六课工作表的表示方法
'在workbook对象中，有一个SHEETS集合,其成员是worksheet对象或chart对象。'worksheets仅指的是工作表，而sheets包含图表，工作表，宏表等等