有多个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————