excel中使用workbooks计算打开的工作薄

1、首先我们打开一个工作样表作为例子。

2、我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Sub testWorkbookCount()

Dim wbs As Workbooks

Set wbs = Application.Workbooks

MsgBox wbs.Count

End Sub

3、这里只是介绍workbooks属性中的一种方法，也就是计数方法，后面还会介绍workbooks属性的其他的方法。运行这段代码会弹出一个提示信息现在打开的工作薄个数。

4、wbs作用于工作薄，所以我们声明dim wbs as workbooks。

5、workbooks是对象的一个属性，所以这里使用set进行声明。

6、msgbox是提示信息，count是workbooks属性中的一个方法，直接使用.count即可使用，并使用msgbox函数提交信息。

7、刚才我们演示了工作薄只打开了一个，是指不同文件的excel文件，如果多打开以几个不同的excel文件，则能计算打开的文件总数。