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]
Hallo,
Luftcode und ohne Fehlerbehandlung:
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.
....super, vielen Dank.......
Das ist nicht nur eine Nummer zu groß für mich......
Wünsche Dir ein schönes Wochenende
Andreas