Office: Textdatei mit VBA einlesen

Mahlzeit!

Ich knabber gerade an folgendem Problem: eine Textdatei mit Trennzeichen soll nach A97 importiert werden. Allerdings müssen die ersten beiden und die letzte Zeile entfernt werden.

Ich habe mir eine kleine Function geschrieben, um die Textdatei zu öffnen und nach Trennzeichen in ein Recordset zu schreiben.

Jetzt suche ich noch eine elegante Möglichkeit die ersten beiden und die letzte Zeile auszulassen - und daran scheiter ich im Moment. Es muss auch nicht unbedingt eine elegante Lösung sein, hauptsache es klappt!

Das einlesen geschieht mit einer Do...Loop-Schleife.

:)

 

Vor der Schleife setze ein Variable i auf 0
Code:

Wie man die letzte Zeile auslassen kann, weiss ich jetzt auch nicht auf Anhieb.

 

Hallo Arne,

vielen Dank für die Idee mit dem Zähler.

Ich hatt auch schon überlegt, ob ich die Textdatei vor dem eigentlichen "Do-It-Yourself-Import" einmal durchzähle - fand ich aber nicht so glücklich wegen der Laufzeit ... wird allerdings klappen.

Ich hatte insgeheim auf eine einfachere Lösung gehofft - aber mal schauen, vielleicht hat ja noch einer ne gute Idee ...

 

Hi Patrick,
Arne war schon auf dem richtigen Weg

Dieter

 

Hallo Dieter,

auch dir erstmal herzlichen Dank für den Vorschlag. Allerdings ist das größere Problem, die letzte Zeile nicht mit zu lesen ...

 

Hm. Wenn ich eine Textdatei mit folgendem Inhalt anlege:

1;A
2;A
3;B
4;B
5;C

und die Routine etwas ändere:
Code:

Dann zeigt mir das Direktfenster nur
3;B
4;B

an. Die ersten beiden Zeilen also nicht und die letzte Zeile ebenfalls nicht.

 

Kleiner Lapsus. So läßt er nur die 1. und die letzte Zeile weg. Es muß heißen
If i > 2 Then

Dieter

 

Alles klar Jungs,

Lösung verstanden und Problem gelöst - Vielen Dank euch beiden!