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:
Gast70117

Datum:
18.10.2016 10:18:42

Views:
846

Rating:

Antwort:

Thema:
Zeilen einer Textdatei per Makro zählen

Option Explicit

'da gibt es viele Möglichkeiten - mir gefällt gerade die

Sub Test()
Dim i As Integer

   If NumberOfLines("C:\VBA\Textfile.emt") > 0 Then
      MsgBox "action"
   Else
      MsgBox "Datei leer oder Pfad fehlerhaft"
   End If

End Sub

Function NumberOfLines(FULLNAME As String) As Integer
Dim strAll As String
Dim fF As Integer
Dim fL As Long

   If Dir(FULLNAME) = "" Then Exit Function
   
   fF = FreeFile
   fL = FileLen(FULLNAME)
   strAll = Space(fL)
   Open FULLNAME For Binary Access Read As #fF
   Get #fF, , strAll
   Close fF
   
   NumberOfLines = Len(strAll) - Len(Replace(strAll, Chr(13), ""))
   
End Function

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