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文件,则能计算打开的文件总数。
相关推荐: