三心全乱2013-04-16TA获得超过5833个赞关注1、复制这些代码，放到一个记事本文件中，保存记事本文件，文件名任意，后缀必须把txt改为vbs2、把文件复制到excel文件所在路径3、确保所有excel文件都关闭，所有文件都在同一级目录（我的程序没有处理二级目录功能）4、双击这个vbs文件，等一下，会有一个excel出来（可能没直接显示出来，看一下下方的任务栏）。这个excel列出所有文件名、表格名和每个表格的行数。5、注意，由于excel本身的问题，如果用了1行，或者根本没内容，都会显示用了1行。如果这个问题很严重，可以再修改一下程序。6、行数是最后一行的行号，不管前面有多少空行Setfs=CreateObject("scripting.FileSystemObject")Setexcel=CreateObject("excel.application")SetresultBookSheet=excel.Workbooks.Add().Sheets(1)excel.visible=trueresultBookSheet.Visible=TrueresultBookSheet.activatei=1ForEachfileNameInfs.GetFolder(CreateObject("WScript.Shell").CurrentDirectory).FilesIfRight(fileName,4)=".xls"ThenSetbook=excel.Workbooks.Open(fileName)resultBookSheet.Cells(i,1)=fs.getfileName(fileName)ForEachsheetInbook.SheetsresultBookSheet.Cells(i,2)=sheet.NameresultBookSheet.Cells(i,3)=sheet.UsedRange.Rows.Count+sheet.UsedRange.Row-1i=i+1Nextbook.CloseFalseSetbook=NothingEndIfNext