23.09.2010

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

Keine Kommentare:

Kommentar veröffentlichen

Formeln auf einer UserForm in einer TextBox darstellen...

Formeln auf einer UserForm in einer TextBox anzeigen. Z. B. "Formula", "FormulaLocal"... und wie muss die Formel in VBA ...