EXCEL Workbook对象应用大全.docx

Workbook对象应用大全
Workbook对象代表一个工作簿，Workbooks集合对象则代表同一Excel进程中打开的所有工作簿对象。
[应用1] 创建新工作簿（Add方法）
使用Add方法在Workbooks集合中创建新工作簿，所创建的工作簿为活动工作簿。其语法为：
Workbooks.Add(Template)
参数Template可选，决定如何创建新工作簿。如果将该参数设置为已存在的Excel模板文件名称，那么将以该文件作为模板创建工作簿。该参数可以为下列XlWBATemplate常量之一：xlWBATChart（值-4109，代表图表）、xlWBATExcel4IntlMacroSheet（值4）、xlWBATExcel4MacroSheet（值3）、xlWBATWorksheet（值-4167，代表工作表）。在创建新工作簿时，如果指定该参数，那么将创建包含指定类型工作表的工作簿；如果省略该参数，那么将创建包含一定数量空工作表的工作簿，工作表数为SheetsInNewWorkbook属性所设置的数量。
应用示例1：创建一个新工作簿
Sub CreateNewWorkbook1()
MsgBox "将创建一个新工作簿."
Workbooks.Add
End Sub
应用示例2：创建一个新工作簿并命名工作表且添加数据
Sub CreateNewWorkbook2()
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Long
MsgBox "将创建一个新工作簿,并预设工作表格式."
Set wb = Workbooks.Add
Set ws = wb.Sheets(1)
ws.Name = "产品汇总表"
ws.Cells(1, 1) = "序号"
ws.Cells(1, 2) = "产品名称"
ws.Cells(1, 3) = "产品数量"
For i = 2 To 10
ws.Cells(i, 1) = i - 1
Next i
End Sub
应用示例3：创建带有指定数量工作表的工作簿
Sub testNewWorkbook()
MsgBox "创建一个带有10个工作表的新工作簿"
Dim wb As Workbook
Set wb = NewWorkbook(10)
End Sub

Function NewWorkbook(wsCount As Integer) As Workbook
'创建带有由变量wsCount提定数量工作表的工作簿，工作表数在1至255之间
Dim OriginalWorksheetCount As Long
Set NewWorkbook = Nothing
If wsCount < 1 Or wsCount > 255 Then Exit Function
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = wsCount
Set NewWorkbook = Workbooks.Add
Application.SheetsInNewWorkbook = OriginalWorksheetCount
End Function
自定义函数NewWorkbook可以创建最多带有255个工作表的工作簿。本测试示例创建一个带有10个工作表的新工作簿。
[应用2] 打开工作簿（Open方法）
Open方法用于打开一个现有的工作簿，其语法为：
Workbooks.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)
可以看到，该方法具有很多参数，但大多数参数都很少用到。在这些参数中，除参数FileName必须外，其它参数都可选。
参数FileName指定要打开的工作簿文件的名称，参数UpdateLinks指定更新工作簿中链接的方式，参数ReadOnly用来设置是否以只读方式打开工作簿。如果需要使用密码来打开工作簿，则应该将参数Password设置为该密码；如果需要使用密码打开工作簿但没有指定密码，则会弹出询问密码的对话框。参数AddToMru指定是否将工作簿添加到最近使用的文件列表中，建议将其设置为True，默认值为False。
应用示例4：以只读方式打开某工作簿
Sub openWorkbook2()
Dim fname As String
MsgBox "将D盘中的<测试.xls>工作簿以只读方式打开"
fname = "D:\测试.xls"
Workbooks.Open Filename:=fname, ReadOnly:=True
End Sub
[应用3] 访问特定的工作簿
使用Item属性返回Workbooks集合中特定的工作簿。例如：
Workbooks.Item(1)
返回Workbooks集合中的第一个工作簿。由于Item属性是缺省的属性，因此上述代码也可以简写为：
Workbooks(1)
然而，使用索引号来指定工作簿是不可靠的，最好使用工作簿的具体名称来指定特定的工作簿，例如：
Workbooks("MyBook.xlsx")
注意，当用户使用“新建”命令创建一个新工作簿（假设该工作簿系统默认名称为Book2）时，在没有保存该工作簿前，应该使用下面的代码指定该工作簿：
Workbooks("Book2")
此时，如果使用下面的代码指定该工作簿：
Workbooks("Book2.xlsx")
将会产生运行时错误：下标越界。
[应用4] 激活工作簿（Activate方法）
使用Activate方法激活指定的工作簿，例如：
Workbooks("MyWorkbook").Activate
[应用5] 获得当前打开的工作簿数（Count属性）
使用Workbooks集合对象的Count属性来获得当前打开的工作簿数，例如：
Workbooks.Count
[应用6] 判断工作簿是否是只读的（ReadOnly属性）
如果工作簿以只读方式打开，那么ReadOnly属性的值为True。
[应用7] 获得工作簿的路径和名称（Name属性、FullName属性、Path属性、CodeName属性）
使用Workbook对象的Name属性可以返回工作簿的名称。例如，下面的函数可以返回当前工作簿的名称：
Function MyName() As String
MyName = ThisWorkbook.Name
End Function
使用Workbook对象的FullName属性可以返回工作簿的路径和名称。例如，下面的函数可以返回当前工作簿的路径和名称：
Function MyName() As String
MyName = ThisWorkbook.Name
End Function
使用Workbook对象的Path属性可以返回工作簿文件的路径。使用Workbook对象的CodeName属性返回工作簿对象的代码名。
上述属性均为只读属性。
应用示例5：一些工作簿通用属性示例
Sub testGeneralWorkbookInfo()
MsgBox "本工作簿的名称为" & ActiveWorkbook.Name
MsgBox "本工作簿带完整路径的名称为" & ActiveWorkbook.FullName
MsgBox "本工作簿对象的代码名为" & ActiveWorkbook.CodeName
MsgBox "本工作簿的路径为" & ActiveWorkbook.Path
If ActiveWorkbook.ReadOnly Then
MsgBox "本工作簿已经是以只读方式打开"
Else
MsgBox "本工作簿可读写."
End If
If ActiveWorkbook.Saved Then
MsgBox "本工作簿已保存."
Else
MsgBox "本工作簿需要保存."
End If
End Sub
[应用8] 保存工作簿（Save方法）
使用Save方法保存对工作簿所作的所有更改，其语法为：
Workbook.Save
应用示例6：保存已存在的所有工作簿
Sub SaveAllWorkbooks()
Dim wbk As Workbook
For Each wbk In Workbooks
If wbk.Path <> "" Then wbk.Save
Next wbk
End Sub
如果某工作簿的Path属性值为空，则表明该工作簿为新建工作簿，还没有保存。而本过程仅保存所有已存在的（即已经保存过的）工作簿。
[应用9] 保存工作簿（SaveAs方法）
使用SaveAs方法在指定的文件中保存对工作簿所做的更改，其语法为：
Workbook.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
所有参数均为可选参数。其中参数FileName指定要保存文件的文件名，可以包含完整的路径，如果不指定路径，Excel将文件保存到当前文件夹中。参数FileFormat指定保存文件时使用的文件格式。如果文件夹中存在相同名称的工作簿，则提示是否替换原工作簿。
参数Password用于指定文件的保护密码，是一个区分大小写的字符串（最长不超过 15 个字符）。参数WriteResPassword指定文件的写保护密码，如果文件保存时带有密码，但打开文件时没有输入密码，则该文件以只读方式打开。
将参数ReadOnlyRecommended设置为True，则在打开文件时显示一条消息，提示该文件以只读方式打开。将参数CreateBackup设置为True，以创建一个备份文件。
参数AccessMode和参数ConflictResolution用来解决访问和冲突问题。
将参数AddToMru设置为True，以添加工作簿到最近使用的文件列表中。默认值为False。
应用示例7：创建新工作簿并保存
Sub AddSaveAsNewWorkbook()
Dim Wk As Workbook
Set Wk = Workbooks.Add
Application.DisplayAlerts = False
Wk.SaveAs Filename:="D:\SalesData.xlsx"
End Sub
这里使用了Add方法和SaveAs方法，添加一个新工作簿并将该工作簿以文件名SalesData.xlsx保存在D盘中。其中，语句Application.DisplayAlerts = False表示禁止弹出警告对话框。
应用示例8：另存已有的工作簿
Sub SaveWorkbook2()
Dim oldName As String, newName As String
Dim folderName As String, fname As String
oldName = ActiveWorkbook.Name
newName = "new" & oldName
MsgBox "将<" & oldName & ">以<" & newName & ">的名称保存"
folderName = Application.DefaultFilePath
fname = folderName & "\" & newName
ActiveWorkbook.SaveAs fname
End Sub
上述代码将当前工作簿以一个新名(即new加原名)保存在默认文件夹中。
应用示例9：备份工作簿
Sub CreateBak1()
MsgBox "保存工作簿并建立备份工作簿"
ActiveWorkbook.SaveAs CreateBackup:=True
End Sub
上述代码在当前文件夹中建立工作簿的备份。
Sub CreateBak2()
MsgBox "保存工作簿时,若已建立了备份,则将出现包含True的信息框,否则出现False."
MsgBox ActiveWorkbook.CreateBackup
End Sub
[应用10] 保存工作簿副本（SaveCopyAs方法）
使用SaveCopyAs方法保存指定工作簿的一份副本，但不会修改已经打开的工作簿，其语法为：
Workbook.SaveCopyAs(Filename)
参数Filename用来指定副本的文件名。
应用示例10：使用与活动工作簿相同的名称但后缀名为.bak来备份工作簿
Sub SaveWorkbookBackup()
Dim awb As Workbook, BackupFileName As String, i As Integer, OK As Boolean
If TypeName(ActiveWorkbook) = "Nothing" Then Exit Sub
Set awb = ActiveWorkbook
If awb.Path = "" Then
Application.Dialogs(xlDialogSaveAs).Show
Else
BackupFileName = awb.FullName
i = 0
While InStr(i + 1, BackupFileName, ".") > 0
i = InStr(i + 1, BackupFileName, ".")
Wend
If i > 0 Then BackupFileName = Left(BackupFileName, i - 1)
BackupFileName = BackupFileName & ".bak"
OK = False
On Error GoTo NotAbleToSave
With awb
Application.StatusBar = "正在保存工作簿..."
.Save
Application.StatusBar = "正在备份工作簿..."
.SaveCopyAs BackupFileName
OK = True
End With
End If
NotAbleToSave:
Set awb = Nothing
Application.StatusBar = False
If Not OK Then
MsgBox "备份工作簿未保存!", vbExclamation, ThisWorkbook.Name
End If
End Sub
在当前工作簿中运行本示例代码后，将以与工作簿相同的名称但后缀名为.bak备份工作簿，且该备份与当前工作簿在同一文件夹中。
应用示例11：保存当前工作簿的副本到其它位置来备份工作簿
Sub SaveWorkbookBackupToFloppyD()
Dim awb As Workbook, BackupFileName As String, i As Integer, OK As Boolean
If TypeName(ActiveWorkbook) = "Nothing" Then Exit Sub
Set awb = ActiveWorkbook
If awb.Path = "" Then
Application.Dialogs(xlDialogSaveAs).Show
Else
BackupFileName = awb.Name
OK = False
On Error GoTo NotAbleToSave
If Dir("D:\" & BackupFileName) <> "" Then
Kill "D:\" & BackupFileName
End If
With awb
Application.StatusBar = "正在保存工作簿..."
.Save
Application.StatusBar = "正在备份工作簿..."
.SaveCopyAs "D:\" & BackupFileName
OK = True
End With
End If
NotAbleToSave:
Set awb = Nothing
Application.StatusBar = False
If Not OK Then
MsgBox "备份工作簿未保存!", vbExclamation, ThisWorkbook.Name
End If
End Sub
上述程序将当前工作簿进行复制并以与当前工作簿相同的名称保存在D盘中。其中，使用了Kill方法来删除已存在的工作簿。
[应用11] 判断工作簿是否发生变化（Saved属性）
如果工作簿自上次保存以来没有发生任何变化，那么该工作簿的Saved属性值为True。由于该属性值是可读写的，因此我们能将该属性的值设置为True，即使该工作簿自上次保存之后发生过变化。这样，我们能设置该属性的值为True，关闭被修改过的工作簿而不提示保存当前已发生的变化，即让Excel误认为已经保存了所作的变化。
[应用12] 关闭工作簿（Close方法）
使用Workbooks对象的Close方法关闭所有工作簿，其语法为：
Workbooks.Close
使用Workbook对象的Close方法关闭指定的工作簿，其语法为：
Workbook.Close(SaveChanges, Filename, RouteWorkbook)
参数均为可选参数。其中，参数SaveChanges用于在关闭工作簿前保存工作簿所发生的变化。特别地，如果工作簿中没有变化，则忽略该参数；如果工作簿中有变化但工作簿显示在其他打开的窗口中，则忽略该参数；如果工作簿中有改动且工作簿未显示在任何其他打开的窗口中，则由该参数指定是否应保存更改。如果将该参数设置为True，则保存对工作簿所做的更改；如果工作簿尚未命名，则使用参数FileName指定的名称保存。如果忽略参数Filename，则要求用户提供文件名。如果将该参数设置为False，则不会保存工作簿中的变化。如果忽略该参数，那么Excel将显示一个对话框询问是否保存工作簿中的变化。
参数RouteWorkbook指出工作簿传送的问题。如果工作簿不需要传送给下一个收件人（没有传送名单或已经传送），则忽略该参数。否则，Excel将根据该参数的值传送工作簿。如果将该参数设置为True，则将工作簿传送给下一个收件人。如果设置为False，则不发送工作簿。如果忽略，则要求用户确认是否发送工作簿。
注意，Close方法检查工作簿的Saved属性，以决定是否提示用户保存工作簿所发生的变化。如果将Saved属性的值设置为True，那么Close方法将不会警告而直接关闭工作簿，并不会保存工作簿中所发生的任何变化。
应用示例12：保存并关闭所有工作簿
Sub SaveAndCloseAllWorkbooks()
Dim wbk As Workbook
For Each wbk In Workbooks
If wbk.Name <> ThisWorkbook.Name Then
wbk.Close SaveChanges:=True
End If
Next wbk
ThisWorkbook.Close SaveChanges:=True
End Sub
应用示例13：不保存而关闭工作簿
Sub CloseWorkbook1()
MsgBox "不保存所作的改变而关闭本工作簿"
ActiveWorkbook.Close False
'或ActiveWorkbook.Close SaveChanges:=False
'或ActiveWorkbook.Saved=True
End Sub<pre>
<span style="color: #0000ff;">应用示例14：保存而关闭工作簿</span>
<pre lang="vb">Sub CloseWorkbook2()
MsgBox "保存所作的改变并关闭本工作簿"
ActiveWorkbook.Close True
End Sub
应用示例15：关闭工作簿并将其彻底删除
Sub KillMe()
With ThisWorkbook
.Saved = True
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close False
End With
End Sub
[应用13] 打印预览工作簿（PrintPreview方法）
使用PrintPreview方法按工作簿打印后的外观效果显示工作簿的预览，其语法为：
Workbook.PrintPreview(EnableChanges)
参数EnableChanges指定用户是否可更改边距和打印预览中可用的其他页面设置选项。
[应用14] 打印工作簿（PrintOut方法）
使用PrintOut方法打印完整的工作簿（当然，该方法也应用于其它一些对象，例如Range、Worksheet、Chart），其语法为：
Workbook.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas)
所有参数均为可选参数。参数From指定需要打印第一页的页码，参数To指定要打印的最后一页的页码，如果忽略这些参数，将打印整个对象。
参数Copies指定要打印副本的数量，默认值为1。
如果参数Preview设置为True，那么将弹出打印预览而不是立即打印。默认值为False。
使用参数ActivePrinter设置活动打印机的名称。
如果将参数PrintToFile设置为True，那么将工作簿打印到文件。此时，如果没有指定参数PrToFileName的值，那么Excel将提示用户输入要使用的输出文件的文件名。使用参数PrToFileName指定要打印到的文件名。
将参数Collate设置为True，以逐份打印副本。
将参数IgnorePrintAreas设置为真，则忽略打印区域而打印整个对象。
[应用15] 保护工作簿（Protect方法）
使用Protect方法保护工作簿，使其不能够被修改，其语法为：
Workbook.Protect(Password, Structure, Windows)
所有参数均为可选参数。其中，参数Password用来指定一个密码，所设置的密码区分大小写。如果省略该参数，不用密码就可以取消对工作簿的保护。否则，必须指定密码才能取消对工作簿的保护。
将参数Structure的值设置为True，以保护工作簿的结构，即工作簿中工作表的相关位置。此时不能对工作簿中的工作表进行插入、复制、删除等操作。默认值为False。
将参数Windows的值设置为False，以保护工作簿窗口。此时，该工作簿右上角的最小化、最大化和关闭按钮消失。默认值为False。
应用示例16：保护工作簿示例代码
Sub ProtectWorkbook()
MsgBox "保护工作簿结构,密码为123"
ActiveWorkbook.Protect Password:="123", Structure:=True
MsgBox "保护工作簿窗口,密码为123"
ActiveWorkbook.Protect Password:="123", Windows:=True
MsgBox "保护工作簿结构和窗口,密码为123"
ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=True
End Sub
[应用16] 解除工作簿保护（Unprotect方法）
使用Unprotect方法取消工作簿保护，其语法为：
Workbook.Unprotect(Password)
参数Password为一个字符串，指定用于解除工作表或工作簿保护的密码，区分大小写。如果工作簿不设密码保护，则省略该参数。如果对工作簿省略该参数，而该工作簿又设有密码保护，则该方法将失效。
应用示例17：解除工作簿保护
Sub UnprotectWorkbook()
MsgBox "取消工作簿保护"
ActiveWorkbook.Unprotect "123"
End Sub
[应用17] 判断工作簿是否有密码保护（HasPassword属性）
如果指定工作簿有密码保护，则HasPassword属性值为 True。
应用示例18：检查工作簿是否有密码保护
Sub IsPassword()
If ActiveWorkbook.HasPassword = True Then
MsgBox "本工作簿有密码保护,请在管理员处获取密码."
Else
MsgBox "本工作簿无密码保护,您可以自由编辑."
End If
End Sub
[应用18] ThisWorkbook对象和ActiveWorkbook对象
有时，在代码中经常会碰到ThisWorkbook对象和ActiveWorkbook对象，虽然在某些情况下其所代表的工作簿相同，但是在某些情况下还是有较大的差别，特别是制作加载项时。
ThisWorkbook对象代表的是代码所在的工作簿，而ActiveWorkbook对象代表的是活动工作簿。
[应用19] 工作簿的属性（BuiltinDocumentProperties属性）
“文件—属性”或者“Office按钮—准备—属性”将显示一个对话框，包含了有关当前工作簿的信息，可以从VBA访问工作簿的属性。
应用示例19：显示已经保存的当前工作簿的日期和时间
Sub LastSaved()
Dim SaveTime As String
On Error Resume Next
SaveTime = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time").Value
If SaveTime = "" Then
MsgBox ActiveWorkbook.Name & "还没有被保存."
Else
MsgBox "保存于:" & SaveTime, , ActiveWorkbook.Name
End If
End Sub
如果没有保存过工作簿，那么对Last Save Time属性的访问将产生错误，使用On Error语句忽略这个错误。
应用示例20：列出当前工作簿的内置属性
Sub listWorkbookProperties()
On Error Resume Next
'在名为"工作簿属性"的工作表中添加信息,若该工作表不存在,则新建一个工作表
Worksheets("工作簿属性").Activate
If Err.Number <> 0 Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "工作簿属性"
Else
ActiveSheet.Clear
End If
On Error GoTo 0
ListProperties
End Sub

Sub ListProperties()
Dim i As Long
Cells(1, 1) = "名称"
Cells(1, 2) = "类型"
Cells(1, 3) = "值"
Range("A1:C1").Font.Bold = True
With ActiveWorkbook
For i = 1 To .BuiltinDocumentProperties.Count
With .BuiltinDocumentProperties(i)
Cells(i + 1, 1) = .Name
Select Case .Type
Case msoPropertyTypeBoolean
Cells(i + 1, 2) = "Boolean"
Case msoPropertyTypeDate
Cells(i + 1, 2) = "Date"
Case msoPropertyTypeFloat
Cells(i + 1, 2) = "Float"
Case msoPropertyTypeNumber
Cells(i + 1, 2) = "Number"
Case msoPropertyTypeString
Cells(i + 1, 2) = "string"
End Select
On Error Resume Next
Cells(i + 1, 3) = .Value
On Error GoTo 0
End With
Next i
End With
Range("A:C").Columns.AutoFit
End Sub
[应用20] 重命名工作簿（Name方法）
Name方法用来重命名一个文件、目录或文件夹，其语法为：
Name oldpathname As newpathname
应用示例21：重命名未打开的工作簿
Sub rename()
Name "<工作簿路径>\<旧名称>.xlsx" As "<工作簿路径>\<新名称>.xlsx"
End Sub
代码中<>的内容为需要重命名的工作簿所在路径及新旧名称。该方法只是对未打开的文件进行重命名，如果该文件已经打开，使用该方法会提示错误。
[应用21] 获取或设置工作簿密码（Password属性）
使用Password属性返回或设置在打开指定工作簿时必须提供的密码。
应用示例22：设置工作簿密码
Sub UsePassword()
Dim wb As Workbook
Set wb = Application.ActiveWorkbook
wb.Password = InputBox("请输入密码:")
wb.Close
End Sub
代码运行后，提示设置密码，然后关闭工作簿；再次打开工作簿时，要求输入密码。
[应用22] 工作簿中形状的显示方式（DisplayDrawingObjects属性）
使用DisplayDrawingObjects属性返回或设置工作簿中形状的显示方式，可以是下列常量之一：xlDisplayShapes（显示所有形状）、xlPlaceholders（仅显示占位符）、xlHide（隐藏所有形状）。
应用示例23：控制工作簿中图形显示方式
Sub testDraw()
MsgBox "隐藏当前工作簿中的所有图形"
ActiveWorkbook.DisplayDrawingObjects = xlHide
MsgBox "仅显示当前工作簿中所有图形的占位符"
ActiveWorkbook.DisplayDrawingObjects = xlPlaceholders
MsgBox "显示当前工作簿中的所有图形"
ActiveWorkbook.DisplayDrawingObjects = xlDisplayShapes
End Sub
[应用23] 工作簿文件格式（FileFormat属性）
使用FileFormat属性返回工作簿文件格式或类型。
[应用24] 决定工作簿计算使用的数值（PrecisionAsDisplayed属性）
在工作簿进行计算时，如果将PrecisionAsDisplayed属性