Workbook对象

上一期我们了解了Application对象，本期我们认识Workbook (工作簿)对象，看看VBA是怎么操作工作簿的？

01

Add、SaveAs、Clos方法

下面的练习将让你了解新建、命名、保存指定路径、关闭工作簿等操作。

Sub 新建工作簿()

 Dim WB As workbook  '定义WB为Workbook对象

 On Error Resume Next '如有错误则跳过

 Kill ThisWorkbook.Path & 'D:\CN\我的工作簿.xls' 删除同名文件

 Set WB = Workbooks.Add        '新建工作簿

 WB.Password = '533'           '设置工作表密码为533

 WB.SaveAs Filename:='D:\CN\我的工作簿.xls'  '工作簿保存路径

 WB.Close False   '关闭工作簿

End Sub                        

代码说明：

1.上面的代码使用了Kill、Add、SaveAs、Clos方法和On Error Resume Next语句；

2.首先为了预防同文件下有相同文件的工作簿，代码运用Kill语句删除同名文件；

3.没有同名文件程序就会提示找不到该文件，使用On Error Resume Next这条语句，它可以忽略下一个错误继续往后执行,是处理错误时常用语句；

4.Add方法可以新建了一个工作簿，使用PassWord属性设置打开文件密码为”533“；

5.用SaveAs方法将文件保存，用Close方法关闭工作簿；

我们需要重点了解一下SaveAs方法，他相当于Excel中新建工作簿后保存时弹出的另存为对话框，使用时SaveAs需要完整的路径名做参数；SaveAs参数比较多( FileName , FileFormat , Password , WriteResPassword , ReadOnlyRecommended , CreateBackup ,AccessMode , ConflictResolution , AddToMru , TextCodepage , TextVisualLayout , Local )，下面附上SaveAs的部分参数说明，对应的含义请查参数表:

 

02

Open、Save方法

Open方法和Save方法，我们新建了一个“我的工作簿.xlsx”工作簿在D盘，现在可以用Open的方法来打开它，用Save方法来保存。

下面的代码打开工作簿，并且在第一个工作表输入“欢迎学习VBA”

Sub Open01()

    Dim Wb As workbook

    Set Wb = Workbooks.Open(Filename:='D:\CN\我的工作簿.xls', Password:='533')

    Wb.Sheets(1).Range('A1') = '欢迎学习VBA'

    Wb.Save

End Sub

代码说明：

1.上面的代码中Workbooks.Open方法用来打开Excel工作簿，他有很多参数，后面我会列出他的参数表，其中必须的参数是文件路径Filename参数；

2.之前我们建的工作簿是有密码，打开时需要用Password参数输入密码；

3.参数的书写是用“:=”这种形式，大家记住了吗？

4.在Sheet1工作表A1单元格中输入'欢迎学习VBA'然后保存，这里用Save直接保存，Save和SaveAs的区别一个是保存一个是另存为。
Workbooks.Open方法的所有参数（FileName , UpdateLinks , ReadOnly , Format , Password , WriteResPassword ,IgnoreReadOnlyRecommended , Origin , Delimiter , Editable , Notify , Converter , AddToMru , Local , CorruptLoad ）对应含义请阅参数说明表：

其他参数比较少用，所以略过啦！

上面是工作簿的基本操作，是我们自动化工作的基础，大家要认真学习哟！