【烟花原创】VBA零基础之第37篇 Workbook对象（四）

hwc2ycy

　　Workbook的属性基本上介绍了一些，今天开始介绍Workbook对象的方法。
　　由于对象的属性，方法比较多，不常用的就不一一介绍，有兴趣的童鞋可以逐个研究研究。
　　另外关于方法或属性的参数，不作一一介绍。写代码的时候多多F1，用熟了自然就记住了。

　　Workbook.Activate
　　激活与工作簿相关的第一个窗口
　　Workbooks(2).Activate
　　既然是激活指定工作簿的第一个窗口，下面的写法也是对的，不如上面的简洁。
　　　Workbooks(2).Windows(1).Activate
　　'激活工作簿集合中第二个对象的窗体集合中的第一个窗体

　　Workbook.ChangeFileAccess
　　更改工作簿的访问权限
　　语法：ChangeFileAccess(Mode, WritePassword, Notify)
　　涉及到工作簿自我删除时，会用到此方法，如下列代码：
　　示例:
　　　ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
　　　Kill ActiveWorkbook.FullName
　　　ActiveWorkbook.Close False

　　Workbook.Close 方法
　　关闭对象
　　语法：Close(SaveChanges, Filename, RouteWorkbook)
　　SaveChanges 是否保存修改
　　Filename 以此文件名保存所做的更改
　　示例:
　　　Workbooks("工作簿1.XLSM").Close SaveChanges:=False

　　Workbook.PrintOut
　　打印工作簿
　　语法：PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas)
　　注意事项：执行printout（安装的虚拟打印机或打印到文档）方法后，会有打印对话框，如果点取取消，会有1004的错误提示。

　　Workbook.PrintPreview
　　打印预览工作簿
　　语法: PrintPreview (EnableChanges)
　　EnableChanges   Boolean 值，用户是否可更改边距和打印预览中可用的其他页面设置选项。
　　示例:
　　ActiveWorkbook.PrintPreview

　　Workbook.Protect
　　保护工作簿使其不被修改
　　语法：Protect(Password, Structure, Windows)
　　这个功能应该都用过的吧，现在改用代码实现。
　　Password 可选，为工作表或工作簿指定区分大小写的密码。
　　Structure 可选，是否工作簿结构（工作表的相对位置），默认值是 False。
　　Windows 可选，是否保护工作簿窗口，默认值是 False。
　　示例:
　　　ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=True
　　　'保护工作簿，密码为123
　　　ActiveWorkbook.Protect Structure:=True, Windows:=True
　　　'保护工作簿

　　Workbook.RemoveDocumentInformation
　　从工作簿中删除指定类型的所有信息
　　语法: RemoveDocumentInformation (RemoveDocInfoType)
　　示例:
　　　ActiveWorkbook.RemoveDocumentInformation (xlRDIAll)
　　　'从文档删除所有信息

　　Workbook.Save
　　保存对指定工作簿所做的更改
　　要将工作簿标记为已保存，但不将其写入磁盘，请将它的 Saved 属性设置为 True。
　　首次保存工作簿时，请使用 SaveAs 方法指定文件名。
　　示例:
　　　If Len(ActiveWorkbook.Path) = 0 Then
　　　　MsgBox "新建的文档尚未保存"
　　　Else
　　　　ActiveWorkbook.Save
　　　End If

　　Workbook.SaveAs
　　在另一不同文件中保存对工作簿所做的更改
　　语法
　　SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
　　参数比较多，在10版本，包含有VBA工程的工作簿，推荐保存为XLSM格式。
　　Filename，fileformat参数务必指定，其余的参数根据需要使用。
　　示例:
　　If Len(ActiveWorkbook.Path) = 0 Then
　　　ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Name, FileFormat:=xlOpenXMLWorkbookMacroEnabled
　　Else
　　　ActiveWorkbook.Save
　　End If

　　Workbook.SaveCopyAs
　　将指定工作簿的副本保存到文件，但不修改内存中的打开工作簿。
　　与savecopyas不同的是，saveas保存后，当前工作簿是新文件。
　　示例:
　　　ActiveWorkbook.SaveCopyAs "副本-" & ActiveWorkbook.Name

　　Workbook.Unprotect
　　取消工作簿的保护。如果工作簿不是受保护的，则此方法不起作用。
　　语法：Unprotect(Password)
　　如果保护有密码，则密码参数是必须的。
　　示例:
　　　ActiveWorkbook.Protect Password:="123", structure:=True, Windows:=True
　　　ActiveWorkbook.Unprotect Password:="123"

我心飞翔410

{:1112:}

刘苏

[em38]

yewei113

收藏   

云影

{:1112:}

我的一生141314

收藏  

含月化烛

{:35:}

tingfeng461002

ANDY0393

谢谢分享，标记，三十七