vba in excel: Dateizeiger wieder auf Anfang setzen

Hallo,

ich möchte mittels eines Makros in Excel eine Textdatei zeilenweise einlesen und an ein Array übergeben. Hierzu lese ich die Datei zunächst komplett ein um die Anzahl der Zeilen zu ermitteln. In einem 2. Durchlauf soll der Inhalt dann an ein Array übergeben werden.

Folgendes habe ich bisher programmiert:

Code:

  Ablagepfad = Range("B4").Value
  
  Set DateiObj = CreateObject("Scripting.FileSystemObject")
  
  DateiZeilen = 1
  If (DateiObj.fileExists(Ablagepfad) = True) Then
    Range("B8").Value = DateiObj.fileExists(Ablagepfad)
    Set Datei = DateiObj.OpenTextFile(Ablagepfad)
    
    'Anzahl der Zeilen in der Datei ermitteln, Array anpassen und Datei einlesen
    Do Until Datei.AtEndOfStream
       Puffer = Datei.ReadLine
       DateiZeilen = DateiZeilen + 1
       Puffer = ""
    Loop
    
    Range("B6").Value = "Länge " & DateiZeilen & " Zeilen"
    ReDim Inhalt(DateiZeilen)
    DateiZeilen = 1
    
    
    Do Until Datei.AtEndOfStream
       Inhalt(DateiZeilen) = Datei.ReadLine
       DateiZeilen = DateiZeilen + 1
    Loop
    
    Datei.Close
    Set Datei = Nothing
    Set DateiObj = Nothing
    
    Range("B12").Value = Inhalt(3)

  
  Else
    MsgBox "Datei " & Ablagepfad & " existiert nicht", vbCritical
    Set Datei = Nothing
    Set DateiObj = Nothing
  End If

Mein Problem ist jetzt, dass beim 2. Durchlauf der Datei nichts mehr eingelesen wird, weil der Dateizeiger bereits am Ende der Datei steht.

Meine Frage daher:

Gibt es eine Funktion in Visual Basic die den Dateizeiger auf Anfang zurücksetzt, ohne dass ich die Datei nochmals öffnen muss?



Danke schonmal für ausführliche Antworten

 

Mir ist kein solcher Weg bekannt (es sind ja eigentlich VBScript-Befehle, die VBA hier verwendet).

Ich würde vor dem zweiten Do/Loop, mit Datei.Close die Textfile schliessen... und mit Set Datei = ....... nochmals öffnen.
So schnell kann man ja gar nicht schauen, wie das dann ausgeführt wird...

Gruss Urs

 

Danke für die Antwort

Das hatte ich mir auch schon überlegt - und falls es tatsächlich nichts gibt werd ich es wohl so machen. Dachte halt es gäbe eine elegantere Lösung.

p.S.

nach einigem Googeln bin ich auf die seek() Funktion gestossen - damit kann man offenbar die Datei ab einer definierten Position einlesen.

 

lies dir mal folgendes durch eventuell hilft's dir ja weiter klick

 

seek() .... das ist ein VBA-Befehl (ich denke dabei eher an Datensammlungen) ... vielleicht funktioniert es, vielleicht nicht...

Du greifst mit CreateObject ja auf VBS (oder eine Art VB6) zu.
Dann müssten VBA und VBS/VB6 den Befehl identisch interpretieren...

Gruss Urs

 

Danke für den Tipp mit dem Buch. Ich werde es mal versuchen und falls es klappt dann hier posten

 

Problem gelöst.
Ich habe es nun doch dabei belassen die Datei ein 2. mal zu öffnen und einzulesen - funktioniert tadellos.