文件夹里有多个excel表格，能否批处理，得到每个表格的行数

1、复制这些代码，放到一个记事本文件中，保存记事本文件，文件名任意，后缀必须把txt改为vbs

2、把文件复制到excel文件所在路径

3、确保所有excel文件都关闭，所有文件都在同一级目录（我的程序没有处理二级目录功能）

4、双击这个vbs文件，等一下，会有一个excel出来（可能没直接显示出来，看一下下方的任务栏）。这个excel列出所有文件名、表格名和每个表格的行数。

5、注意，由于excel本身的问题，如果用了1行，或者根本没内容，都会显示用了1行。如果这个问题很严重，可以再修改一下程序。

6、行数是最后一行的行号，不管前面有多少空行

Set fs = CreateObject("scriptingFileSystemObject")

Set excel = CreateObject("excelapplication")

Set resultBookSheet = excelWorkbooksAdd()Sheets(1)

excelvisible = true

resultBookSheetVisible = True

resultBookSheetactivate

i = 1

For Each fileName In fsGetFolder(CreateObject("WScriptShell")CurrentDirectory)Files

If Right(fileName, 4) = "xls" Then

Set book = excelWorkbooksOpen(fileName)

resultBookSheetCells(i, 1) = fsgetfileName(fileName)

For Each sheet In bookSheets

resultBookSheetCells(i, 2) = sheetName

resultBookSheetCells(i, 3) = sheetUsedRangeRowsCount + sheetUsedRangeRow - 1

i = i + 1

Next

bookClose False

Set book = Nothing

End If

Next

@echo off

setlocal enabledelayedexpansion

for /f "delims=: tokens=1" %%a in ('findstr /n "H1N1" "tfas"') do set Line=%%a

set /a Line-=1

set skip=skip=%Line%

(for /f "%skip% delims=" %%a in (Tfas) do (

    set /a num+=1

    if !num! equ 3 exit

    echo,%%a

))>2txt

手机编写，尚未测试。请自测。

@echo off

setlocal enabledelayedexpansion

set /p str=请输入要查找的字符串，回车确认：

findstr /i /c:"%str%" atxt >btxt

findstr /v /i /c:"%str%" atxt >ctxt

pause

以上就是关于文件夹里有多个excel表格，能否批处理，得到每个表格的行数全部的内容，包括:文件夹里有多个excel表格，能否批处理，得到每个表格的行数、批处理怎么根据生成的行号提取TXT该行信息、批处理提取文本中含有指定字符串的行等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！