内容章workbook对象与excel8.pptxVIP

ExcelVBA视频第8章Workbook对象

内容介绍工作簿集合工作簿的操作工作簿的保护

工作簿集合获取工作簿数量引用工作簿创建新的工作簿打开工作簿打开文本文件关闭所有工作簿引用当前工作簿

引用工作簿Workbooks.Item(1)Workbooks(1)Workbooks(Book1.xls)

创建新的工作簿Add方法Add(Template)01 SubCreateNewWorkbook1()02 不使用参数，将创建一个新工作簿03 Workbooks.Add04 EndSub下面的代码演示了不使用参数创建一个新的工作薄。

打开工作簿Open方法Open(FileName,UpdateLinks,ReadOnly,Format,Password,WriteResPassword,mended,Origin,Delimiter,Editable,Notify,Converter,AddToMru,Local,CorruptLoad)

打开文本文件OpenText方法OpenText(Filename,Origin,StartRow,DataType,TextQualifier,ConsecutiveDelimiter,Tab,Semicolon,Comma,Space,Other,OtherChar,FieldInfo,TextVisualLayout,DecimalSeparator,ThousandsSeparator,TrailingMinusNumbers,Local)【示例8-3】上表与Open方法类似，除了FileName为必选项之外，其他的参数都为可选参数。

关闭所有工作簿Close方法01 SubCloseAllWorkbook()02 关闭所有打开的工作薄03 Workbooks.Close04 EndSub

工作簿的操作激活工作薄关闭指定工作簿工作簿的保存工作簿另存为指定文件名工作簿的一些通用属性获取工作薄的内置属性备份工作簿

激活工作簿01 SubSetActiveWorkbook()02 定义一个工作簿对象03 DimworkbkAsWorkbook04 赋给工作簿对象实例05 Setworkbk=Workbooks(2)06 激活工作簿对象07 workbk.Activate08 显示工作簿文件名09 MsgBoxworkbk.Name10 显示活动工作簿文件名11 MsgBoxActiveWorkbook.Name12 EndSub可以使用下面的代码来激活一个工作簿，并查看激活后的工作簿的文件名。

关闭指定工作簿Close方法Close(SaveChanges,Filename,RouteWorkbook)01SubCloseWorkBook()02关闭工作簿并不进行保存03Workbooks(workbookdemo.xlsm).CloseSaveChanges:=False04EndSub下面的代码，工作簿在被关闭的时候，即便有一些改动，也不会提示进行保存。

工作簿另存为指定文件名SaveAs方法SaveAs(FileName,FileFormat,Password,WriteResPassword,mended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Local)01SubSaveAsDemo()02IfActiveWorkbook.PathThen03ActiveWorkbook.Save04Else05另存时，创建一个副本，并且指定密码ActiveWorkbook.SaveAsFilename:=C:\MyWorkbook.xlsm,_07CreateBackup:=True,Password:EndIf09EndSub下面的代码在使用SaveAs时指定了CreateBackup参数。

工作簿的一些通用属性Name：工作簿的名称。FullName：工作簿的完整路径的名称。CodeName：工作簿对象的代码名。Path：工作簿的路径。ReadOnly：工作簿是否以只读方式打开。Saved：工作簿是否己经保存

获取工作簿的内置属性【示例8-7】下面通过遍历BuiltinDocumentProperties中的所有内置属