Textdatei über Makro importieren

[Lalikowski]

Moin zusammen,

ich möchte die im Anhang befindliche Textdatei per Makro einlesen und dabei die bestehende Tabelle tbl_AAED überschreiben, d.h. die Überschriften werden übernommen.

Die erste zu importierende Zeile ist die Zeile 7, Zeilen 1 bis 6 sollen ignoriert werden.

Das ist echt ne Nummer zu groß für mich......

Wer kann mir hier helfen?

Vielen Dank im Voraus

Andreas

[Anhang gelöscht durch Administrator]

[DF6GL]

Hallo,

Luftcode und ohne Fehlerbehandlung:

Code [Auswählen] Erweitern

Public Function fktReadFileStoreData(strFName As String, strtblName As String)
Dim strLine As String, Lu As Long, i As Long, strFName As String, strFieldlist as String, FldNames, ColData, db as Database
 
set db=Currentdb

Lu = FreeFile
Open strFName For Input Access Read As #Lu

     For 1 to 7
     Line Input #Lu, strLine
     Next
 
     FldNames= Split(strLine,"|")
     
     For i=1 to 8
     strFieldlist = strFieldlist  & " , [" & FldNames(i) & "]"
     Next
 
      strFieldlist = Mid(strFieldlist ,3)

     Line Input #Lu, strLine

     db.Execute "delete from " & strtblName
   
     Do Until EOF(#Lu)
 
       Line Input #Lu, strLine
         
       ColData=Split(strLine,"|")

      db.Execute "insert into " & strtblName & " (" & strFieldlist  &  ")" & _
      " Values('" & Coldata(1) & "','" & Coldata(2) & "','" & Coldata(3) & "','" & Coldata(4) & "','" & Coldata(5) & ",'" & Coldata(6) & "'," & Format(Coldata(7),"\#yyyy-mm-dd\#")   & ",'" & Coldata(8) & "')", dbFailOnError
 
    Loop

Close #Lu

set Db = Nothing


End Function


(unchecked)

Alle Spalten sind vom Datentyp TEXT angenommen, außer Spalte 7  ("PlDat.Reg.") , die in der Tabelle den Datentyp Datum/Uhrzeit haben sollte.

[Lalikowski]

....super, vielen Dank.......

Das ist nicht nur eine Nummer zu groß für mich......

Wünsche Dir ein schönes Wochenende

Andreas