VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Zeilen einer Textdatei per Makro zählen	18.10.2016 08:00:52	Fabi
Zeilen einer Textdatei per Makro zählen	18.10.2016 10:18:42	Gast70117
Zeilen einer Textdatei per Makro zählen	18.10.2016 10:37:00	Fabi
Zeilen einer Textdatei per Makro zählen	18.10.2016 10:45:22	Gast54770
Zeilen einer Textdatei per Makro zählen	18.10.2016 11:00:43	Fabi
Zeilen einer Textdatei per Makro zählen	18.10.2016 13:52:34	SJ
Zeilen einer Textdatei per Makro zählen	18.10.2016 15:03:04	Fabi

Ansicht des Beitrags:

Von:
SJ

Datum:
18.10.2016 13:52:34

Views:
752

Rating:

Antwort:

Thema:
Zeilen einer Textdatei per Makro zählen

Hallo,

eine weitere Lösung:

Public Sub main()
    Dim Pfad As String
    Pfad = "C:\Users\hhwjanse\Desktop\Test.txt"
    
    Debug.Print count_lines(Pfad)
End Sub

Private Function count_lines(ByVal sPfad As String) As Long
    Dim fso As Object
    Dim stream As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    If Not fso.FileExists(sPfad) Then
        Set fso = Nothing
        count_lines = 0
        MsgBox "Datei " & sPfad & " existiert nicht."
        Exit Function
    End If
    Set stream = fso.OpenTextFile(sPfad, 1, 0)
    
    Dim l As Long
    
    Do While Not stream.AtEndOfStream
        l = l + 1
        stream.ReadLine
    Loop
    
    stream.Close
    Set fso = Nothing
    
    count_lines = l
End Function

Gruß

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Zeilen einer Textdatei per Makro zählen	18.10.2016 08:00:52	Fabi
Zeilen einer Textdatei per Makro zählen	18.10.2016 10:18:42	Gast70117
Zeilen einer Textdatei per Makro zählen	18.10.2016 10:37:00	Fabi
Zeilen einer Textdatei per Makro zählen	18.10.2016 10:45:22	Gast54770
Zeilen einer Textdatei per Makro zählen	18.10.2016 11:00:43	Fabi
Zeilen einer Textdatei per Makro zählen	18.10.2016 13:52:34	SJ
Zeilen einer Textdatei per Makro zählen	18.10.2016 15:03:04	Fabi