TransferText (ich geb nicht auf !)

Hallo Leute,

Ich habe folgendes „Problemchen“ ich möchte eine automatisch generierte Text-Datei über Docmd TransferText… in meine Access2003 Datei importieren. Es geht dabei um Währungskurse, die nachts erstellt werden.
Damit meine Datenbank morgens auch ohne mich nutzbar und trotzdem aktuell ist, möchte ich die Textdatei so verändern, dass diese mit TransferText beim ersten öffnen importiert wird.
Leider hat die Text datei in den ersten sechs Zeilen immer Erstellerinformationen, die nicht mit importiert werden sollen.

Ich muß also die Text-datei so verändern, daß diese in meine Access Tabelle importiert werden kann.

Also Schleife zum Löschen der ersten sechs Zeilen, dann Textdatei schließen und anschließend importieren.

Habe also so begonnen:

Private Sub Datenimport()
Dim lu1 As Long, Z1 As String,
lu1 = FreeFile
Open „H:\CHF.txt“ For Input As lu1
Zähler = 0 ’ Variable initialisieren.
While Zähler 6.
lu1.Close

oder kann jemand helfen ?

Christian

Normalerweise stochert man nicht in einer datei rum.

Datei öffnen

benötigte zeilen einlesen in ein STRING

datei schliessen

neue Datei erzeugen

STRING schreiben

neue Datei schliessen.

neue Datei importieren.

von mir aus auch ein array von string
beachte beim schreiben das das zeilenende richtig gesetze wird.