Sub ImportTabelleDirekt()
CurrentDb.Execute _
"INSERT INTO Tab1 ( KID, Name, Adresse ) " + _
"SELECT KID, Name, Adresse " + _
"FROM [Text;FMT=Delimited(;);HDR=Yes;DATABASE=D:\Daten;].[CSV.CSV];", dbFailOnError
CurrentDb.Execute _
"INSERT INTO Tab2 ( KID, Bestellnummer ) " + _
"SELECT KID, Bestellnummer " + _
"FROM [Text;FMT=Delimited(;);HDR=Yes;DATABASE=D:\Daten;].[CSV.CSV];", dbFailOnError
End Subwobei CSV.csv die Importdatei ist: Sub ImportTabelleErzeugeKID()
CurrentDb.Execute _
"SELECT * INTO BestImport " + _
"FROM [Text;FMT=Delimited(;);HDR=Yes;DATABASE=D:\Daten;].[CSV.CSV];", dbFailOnError
CurrentDb.TableDefs.Refresh
CurrentDb.Execute _
"INSERT INTO Tab1 ( KID, Name, Adresse ) " + _
"SELECT (SELECT count(*) FROM Bestimport as B WHERE B.Name<Bestimport.Name)+1, BestImport.Name, BestImport.Adresse " + _
"FROM BestImport;"
', dbFailOnError
CurrentDb.Execute _
"INSERT INTO Tab2 ( KID, Bestellnummer ) " + _
"SELECT (SELECT KID FROM Tab1 WHERE Tab1.Name=BestImport.Name), Bestellnummer " + _
"FROM BestImport;", dbFailOnError
CurrentDb.Execute _
"DROP TABLE BestImport", dbFailOnError
End Sub
Import eines csv Datei
morpheus__85 24.07.2007 - 270 Hits - 1 Antwort
excel import in access
ichhabeinefrage 14.08.2007 - 268 Hits - 2 Antworten
Access, import Access-Tabellen
KRD 02.09.2007 - 265 Hits - 1 Antwort
csv. Datenexport aus Access
Susi2007 14.09.2007 - 307 Hits - 6 Antworten
Probleme beim exportieren von CSV aus Access
Inka2008 29.01.2008 - 215 Hits - 4 Antworten