Workbooks对象集

Posted 2020-08-30 任先生7

Workbooks对象集

VBA电子文档位置：https://msdn.microsoft.com/zh-cn/library/ff835568.aspx

参考网址：http://www.360doc.com/userhome/7835172#

（馆主：fzchenwl）

   当前所有打开的工作簿对象的集合

<</span>一>如何引用工作簿

1、使用open方法引用

比如：

我在新建的一个工作簿中引用文件工作簿1.xlsm（俩文件名字一样，后缀名不一样），这里使用新定义的we代表工作簿1.xlsm，然后通过we引用期内容

2、通过新建

Dim wb As Workbook

Set wb = Workbooks.Add

这里就直接新建一个空白的工作簿。

<</span>二>方法

1、Add方法，向工作簿对象集中一个新的工作簿，相当于“文件->新建”命令。格式如下：

          Workbooks.Add  （不带参数，建立一个空白工作簿）

或者一个带有一图表的工作簿：

workbooks.Add xlWBATChart

（Add后即为参数，注意大小写）

结果为：

图上内容为活动工作簿里的数据

2、Open方法，打开一个指定的工作簿。格式参上（路径及工作簿名）。

还可以这样：

workbooks.Openfilename:="C:\Users\RHP\Desktop\工作簿1.xlsx"

注意filename后面是“：=”。

或者不要参数，直接workbooks.Open "C:\Users\RHP\Desktop\工作簿1.xlsx"

3、Close方法，关闭一个工作簿文件

 

Workbook对象

代表一个独立的工作簿文件

<</span>一>属性

1、ActiveSheet属性，返回当前工作簿中的活动工作表对象

2、Author属性，返回或设定工作簿的作者姓名，由此确定工作簿的所有者

3、Saved属性，用于瓢工作簿文件是否做过修改。

4、Name属性：返回活动工作簿的名称

5、Path属性：返回活动工作簿的路径

6、FullName属性：返回带名称的完整路径

 

<</span>二>方法

1、Activate方法，用于霜一个工作簿为当前活动工作簿，如，Workbooks("myOffice.xls").Activate

2、Close方法，用于关闭指定的工作簿

Eg：Workbook.Close

指定工作簿：

Eg：Workbook(“Book1”).Close

加上参数：

Workbook(“Book1”).Closesavechanges=”True”(可简写为True)

3、Save方法，用于保存指定的工作簿一般为：

Thisworkbook.Save

如果想要另存，或者是第一次保存一个新建的工作簿，则为：

ThisworkbookSaveAs Filename:=”带文件名的完整路径”

SaveAs会保存文件后，关闭源文件，打开新文件。如果想要另存同时保留源文件，则使用：SaveCopyAs

 

ThisWorkbook和ActiveWorkbook的区别

ThisWorkbook是对程序所在工作簿的引用；

ActiveWorkbook是对活动工作簿的引用；

Eg：

Msgbox “代码所在工作簿为” & ThisWorkbook.Name

Msgbox “当前活动工作簿为” & ActiveWorkbook.Name