使用VBS统计同一文件夹中多个excel表的行数

有多个excel表，需要统计出每个excel表中有多少行

VBS代码如下：

 

 1.在excel所在文件夹中新建文本，将代码粘贴到文本中，注意编码方式改为ANSI，否则运行时可能会报错。

2.将文件保存，文件名随意命名，将txt改为vbs。

3.确保所有excel文件都关闭，所有文件都在同一级目录

4.双击运行vbs文件，会弹出一个excel的界面，这个excel列出所有文件名、sheet名和每个sheet的行数。

注意：

　　1.如果文件后缀为xls需要将况红位置做修改  If Right(fileName, 4) = ".xls" Then

　　2.代码统计的为最后一行所在的行数，无论前面有多少空行

　　3.excel文件需在同一个文件夹中

 ————欢迎大家沟通、指正---- QQ群：1071136320————