VBA基础教程Day02： 操作工作簿
作者：互联网
2-1、工作簿的表示方法
VBA中，经常要在不同工作簿之间转换，工作簿的表示方法很重要，我们来看看
工作簿有几种表示方法
Sub 工作簿引索号表示法()
MsgBox Workbooks(2).Name '返回工作簿的名称
End Sub
Sub 窗口表示法()
MsgBox Windows.Count '返回当前excel工作簿打开的个数
msgboxc Windows(1).Parent.Name '返回第几个工作簿的名称
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).Parent.Name
Next
End Sub
2-2.当前工作簿与活动工作簿
Option Explicit
thisworkbook当前工作簿，代码所在工作簿
activeworkbook活动工作簿，被激活的工作簿
Sub 当前与活动工作簿区别实例()
MsgBox ThisWorkbook.Name & "---" & ActiveWorkbook.Name
End Sub
Sub 运用()
MsgBox ThisWorkbook.Path & Chr(10) & ThisWorkbook.FullName
End Sub
Sub 验证当前工作簿是否已打开()
Dim wk As Workbook, a
For Each wk In Workbooks
a = wk.Name
If wk.Name = "学习VBA.xlsm" Then
wk.Activate
MsgBox "已激活工作簿" & wk.Name
Exit Sub
End If
Next wk
MsgBox "没有发现工作簿：学习VBA.xlsm"
End Sub
思考题：用workbooks.count和windows.count来做上面这道题？
2-3.工作簿基础操作
workbooks由当前所有在内存中打开的workbook对象组成
向workbooks添加workbook对象
1.新建工作簿
Sub 新建工作簿()
Dim wkb As Workbook '声明wkb为工作簿
Set wkb = Workbooks.Add '新建工作秒簿
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
End Sub
4.文件复制与删除
Sub 文件复制与删除()
FileCopy "c:\123.txt", "c:\321.txt" '对所有文件类型都起作用
Kill "c:\321.txt"
End Sub
2-4.工作簿实例应用
Sub 文件是否存在()
a = Dir("c:\123.xls")
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
2-5.工作表的表示方法
在workbook对象中，有一个SHEETS集合,其成员是worksheet对象或chart对象。
worksheets仅指的是工作表，而sheets包含图表，工作表，宏表等等
VBA中，经常在工作表之间转换或者对不同工作表中的单元格区域进行操作.
通常有下面几种方法:
Sub 直接使用工作表名称法()
MsgBox Worksheets("我的工作表").Name
MsgBox Sheets("我的图表").Name
End Sub
Sub 索引号表示法()
MsgBox Worksheets(1).Name
End Sub
Sub 工作表代码索引号表示法()
MsgBox Sheets(1).Name
End Sub
Sub 直接取工作代码法()
MsgBox Sheet1.Name
End Sub
Sub 活动工作表()
MsgBox ActiveSheet.Name
End Sub
注意：当工作簿包括工作表、宏表、图表等时，
使用索引号引用工作表如Sheets(1)与
WorkSheets(1)引用的可能不是同一个表。
Sub worksheetss()
MsgBox Worksheets(1).Name
MsgBox Sheets(1).Name
End Sub
Sub sheetss()
For i = 1 To Sheets.Count
MsgBox Sheets(i).Name
Next
End Sub
2-6.工作表集合应用
Sub 遍历sheets下的所有对象()
For Each shs In Sheets
k = k + 1
Cells(k, 1) = shs.Name
Next
End Sub
Sub 遍历worksheets下的所能对象()
For Each shs In Worksheets
k = k + 1
Cells(k, 2) = shs.Name
Next
End Sub
Sub 工作表存在与否()
Dim sn$
For Each sht In Sheets
sn = sht.Name
If sn = "我的工作表" Then
MsgBox "存在"
Exit Sub
End If
Next
MsgBox "不存在"
End Sub
Sub 工作表存在与否1()
Dim sn$
For i = 1 To Sheets.Count
a = Sheets(i).Name
If Sheets(i).Name = "我的工作表" Then
MsgBox "存在"
Exit Sub
End If
Next
MsgBox "不存在"
End Sub
2-7.工作表增加与删除
Option Explicit
Sub 宏4()
宏4 宏
Sheets("Sheet8").Select
ActiveWindow.SelectedSheets.Delete
End Sub
2-8.工作表增加删除实例
如果想批量新建工作表，可以结果循环来制作
Sub 新建1到12月份的工作表()
Dim j%
For j = 12 To 1 Step -1
Sheets.Add.Name = j & "月"
Next
End Sub
删除工作表
Sub 删除sheet()
On Error Resume Next
Application.DisplayAlerts = False
Dim i%
For i = 1 To 12
Sheets(i & "月").Delete
Next
Application.DisplayAlerts = True
End Sub
2-9.工作表移动与复制
Option Explicit
表达式.Move(Before, After)
表达式.copy(Before, After)
Sub 移动()
Sheet1.Move , Sheet3
End Sub
Sub 复制()
Sheet1.Copy Sheets(Sheets.Count)
End Sub
Sub 实例()
Dim i%, sth As Worksheet
For i = 1 To 12
Set sth = Sheets.Add
sth.Move after:=Sheets(Sheets.Count)
sth.Name = i & "月"
Next
End Sub
2-10.工作表选择与激活
Option Explicit Worksheet.Select 方法 选择对象 Worksheet.Activate 方法 使当前工作表成为活动工作表 工作表的选择select与activate Sub 工作表选择() Sheet3.Select '不支持隐藏选取 Sheet3.Activate '支持 End Sub Sub 快速选择所有工作表() Worksheets.Select Sheets.Select End Sub Sub 自定义选择() Worksheets(Array(1, 3, 5)).Select End Sub
2-11.工作簿综合运用(拆分工作簿)
Sub 拆分到工作簿()
Dim wk As Workbook, ss$, k%
Application.DisplayAlerts = False
For Each sht In Workbooks("2-11.工作簿综合运用(拆分工作簿)").Sheets
Set wk = Workbooks.Add
k = k + 1
Workbooks(1).Sheets(k).Copy Workbooks(2).Sheets(1)
ss = ThisWorkbook.Path & "\" & sht.Name & ".xlsx"
wk.SaveAs ss
wk.Close
Next
Application.DisplayAlerts = True
MsgBox "拆分工作簿完成！"
End Sub
标签：VBA,End,Sub,Day02,工作,基础教程,Sheets,MsgBox,Name 来源： https://www.cnblogs.com/qingyutian/p/16191817.html