Anzahl Zeilen Textdatei(en)!

Manchmal ganz hilfreich: Man(n) möchte die Anzahl Zeilen von Textdateien wissen, bevor man(n) etwas damit anfängt. Mit folgendem Code können über einen Auswahldialog eine oder mehrere Dateien ausgewählt werden. Die Ausgabe erfolgt im Moment im Direktbereich (Im VBA-Editor Ansicht Direktfenster bzw. Strg+G):

Option Explicit
Public Sub Test()
Dim strContent As String
Dim intCount As Integer
Dim varFiles As Variant
Dim objFile As Object
Dim objFSO As Object
On Error GoTo Fin
varFiles = Application.GetOpenFilename _
(Filefilter:="Textdateien (*.txt), *.*", _
Title:="Bitte Datei(en) auswaehlen", _
MultiSelect:=True)
If Not VarType(varFiles) = vbBoolean Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
For intCount = Lbound(varFiles) To Ubound(varFiles)
Set objFile = objFSO.OpenTextFile(varFiles(intCount), 1)
strContent = objFile.ReadAll
Debug.Print "Datei: " & varFiles(intCount) & vbCrLf & _
objFile.Line & " Zeilen!" & vbCrLf
objFile.Close
Set objFile = Nothing
Next intCount
End If
Fin:
If Err.Number <> 0 Then MsgBox "Fehler: " & _
Err.Number & " " & Err.Description
Set objFile = Nothing
Set objFSO = Nothing
End Sub

Kommentare

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...