Vba 计算几个txt文件的行数

我需要数行（记录）的几个txt文件，并记录在excel上。 你能帮我找到最好的方法吗

我想在excel中使用VBA宏，但我没有足够的技能

基本程序是： 1.打开x文件 2.在excel的一个单元格中记录文件标题，在另一个单元格中记录操作系统行数/记录数。 例如->包含100条记录和标题测试的txt文件应出现： A1 A2 标题100

试试下面的代码

Sub Loop_Through_Text_Files_Count_Lines()
Dim fso         As Object
Dim pth         As Object
Dim strFolder   As String
Dim strFile     As String
Dim r           As Long

With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show Then strFolder = .SelectedItems(1) & "\" Else Exit Sub
End With

Set fso = CreateObject("Scripting.FileSystemObject")
strFile = Dir(strFolder & "*.txt")

Do While strFile <> ""
    r = r + 1
    Set pth = fso.OpenTextFile(strFile, 1)
    pth.ReadAll

    Cells(r, 1).Value = strFile
    Cells(r, 2).Value = pth.Line

    strFile = Dir
Loop
End Sub

子循环\u到\u文本\u文件\u计数\u行（）
作为对象的Dim fso
将pth调暗为对象
作为字符串的Dim strFolder
作为字符串的Dim strFile
变暗，变长
使用Application.FileDialog（msoFileDialogFolderPicker）
如果.Show，则strFolder=.SelectedItems（1）和“\”否则退出子系统
以
设置fso=CreateObject（“Scripting.FileSystemObject”）
strFile=Dir（strFolder&“*.txt”）
当strFile“”时执行
r=r+1
设置pth=fso.OpenTextFile（strFile，1）
pth.ReadAll
单元格（r，1）。值=strFile
单元格（r，2）.值=第三行
strFile=Dir
环
端接头

这似乎可以帮助您我想选择1000个或更多的txt文件（一次），而不是一个。想想循环似乎很棒！谢谢，但我不能选择txt文件。您可以更改代码以打开一个文件夹中的所有文件而不是文件吗？代码已允许您选择包含文本文件的文件夹。好的，很好，但不允许我。调试“Set pth=fso.OpenTextFile（strFile，1）”时出错