计算几个txt文件的行数[关闭]

Question

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

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

基本流程是： 1.打开x文件txt 2.在excel中的一个单元格中记录文件的标题，在另一个单元格中记录os行/记录的数量。 例如-> 包含 100 条记录和标题 TEST 的 txt 文件应该出现： A1 A2 标题 100

Answer 1

试试这个代码

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