常用工作簿方法

书接上回，我们这次要介绍workbook的各种方法。实际上，在日常的excel使用中，我们对workbook最多的操作还是打开关闭，打开关闭和打开关闭。另外，保存和另存为也是非常重要，A哥以各种惨痛的教训来告诉大家：人在江湖，保存第一。

闲言少叙，我们马上开始介绍常用的工作簿方法。

工作簿的方法

打开

使用workbooks.open方法来打开指定的workbook文件。一般比较简单的情况就可以这样写：

workbooks.open filename

filename是要打开文件的路径。要注意的是，理论 上来讲，绝对路径和相对路径都可以引用。使用绝对路径的例子如下：

Sub workbooksmethod() Dim Filename1$ Filename1 = 'C:\Users\asong\Desktop\1.xlsx' Workbooks.Open Filename1 End Sub

测试可以正常打开Desktop下的文件。
如果是相对路径

Sub workbookmethod2() Dim FIlename2$ Filename2 = '1.xlsx' Workbooks.Open Filename2 End Sub

咦，居然报错了，没有找到，可是我们明明把宏文件和要打开的文件放在一个目录下了呀！

其实如果使用相对路径，默认的路径是在我的文档下。如果我们把1.xlsx移动到我的文档根目录下，就可以顺利打开了。
所以，要尽量使用全路径来打开workbook。

关闭

使用workbook的关闭方法来关闭工作表。

expression.close True/False

expression表示的是一个workbook对象，True/False来指定是否保存。True表示保存，False指定不保存。

Sub workbookclose() Dim Filename1$ Filename1 = 'C:\Users\asong\Desktop\1.xlsx' Workbooks.Open Filename1 ActiveSheet.Cells(1, 2) = 2 ActiveWorkbook.Close True End Sub

保存

保存方法比较简单，直接使用save即可。

expression.save

expression指的是一个workbook对象。

另存为

这个也比较简单粗暴，直接上代码：

expression.saveas filename

注意这里和open方法的绝对和相对路径的区别一样，相对路径会直接保存在我的文档里。同样的，推荐只使用绝对路径。

Sub workbooksaveas() Dim Filename1$ Filename1 = 'C:\Users\asong\Desktop\1.xlsx' Workbooks.Open Filename1 ActiveSheet.Cells(1, 2) = 2 ActiveWorkbook.SaveAs ActiveWorkbook.Path & '\2.xlsx' ActiveWorkbook.Close True End Sub

新建

使用workbooks集合的add方法来添加新的工作簿，然后使用saveas方法将其保存。

Sub workbooksadd() Dim Wbk As Workbook Set Wbk = Workbooks.Add Wbk.SaveAs 'C:\Users\asong\Desktop\test111.xlsx' ActiveWorkbook.Close False End Sub

注意 在上面，我们先定义了一个workbook对象，然后使用set语句，将新建的工作簿赋值为Wbk，后面就可以对Wbk进行各种方法和操作了。说这个是想让大家加深理解，变量不仅仅可以是数值或字符串，更可以是对象。

总结一下

本节我们主要学习了workbook的常用方法：

• add

• open

• close

• save

• saveas