我需要计算几个txt文件的行(记录)并在excel上记录。 你能帮我找到最好的方法吗?
我想到了excel中的VBA宏,但我没有足够的技能。
基本程序是: 1.打开x文件txt 2.在一个单元格中的excel上记录文件的标题,在其他单元格中记录数字os行/记录。 例如 - >应显示包含100条记录和标题TEST的txt文件: A1 A2 标题100
答案 0 :(得分:0)
试试此代码
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