csv-Daten aus verschiedenen Dateien importieren

20/05/2009 - 14:18 von bernd drewitz | Report spam
Hallo,

ich habe ein verzeichnis mit 300 csv-dateien die in eine tabelle importiert
werden sollen. Mit folgendem code kann ich EINE datei importieren:

Function mcr_Import_hist_Kurse()
On Error GoTo mcr_Import_hist_Kurse_Err


DoCmd.TransferText acImport, "US_Aktien", "tbl_Import_histK", _
"D:\Import\ED.csv", True

DoCmd.OpenQuery "qry_histKurse1", acNormal, acEdit

DoCmd.OpenQuery "qry_histKurse2", acNormal, acEdit

DoCmd.OpenQuery "qry_Import_Aktien", acNormal, acEdit

DoCmd.OpenQuery "qry_Import_histK_del", acNormal, acEdit

DoCmd.OpenQuery "qry_Import_Aktien_del", acNormal, acEdit


mcr_Import_hist_Kurse_Exit:
Exit Function

mcr_Import_hist_Kurse_Err:
MsgBox Error$
Resume mcr_Import_hist_Kurse_Exit

End Function


wie kann ich folgende probleme lösen:
1. ich möchte dass alle dateien im verzeichnis import nacheinander
importiert werden.

2. die abfrage qry_histKurse2 ist eine aktualisierungs-abfrage. sie muss
vor jedem import geàndert werden. im feld "symbol" muss jeweils der name
der zu importierenden datei als aktualisierung eingegeben werden.
entweder muss vor beginn des imports die abfrage geöffnet werden und ich
den dateinamen manuell eintippen oder vielleicht gibt es ja auch eine
möglichkeit dies zu automatisieren.

hat jemand eine idee?

gruss bernd
 

Lesen sie die antworten

#1 Mark Doerbandt
20/05/2009 - 14:28 | Warnen spam
Hallo, Bernd,

bernd drewitz:

nn ich folgende probleme lösen:

1. ich möchte dass alle dateien im verzeichnis import nacheinander
importiert werden.



schau Dir mal den VBA-Befehl Dir() genauer an.

2. die abfrage qry_histKurse2 ist eine aktualisierungs-abfrage. sie muss
vor jedem import geàndert werden. im feld "symbol" muss jeweils der name
der zu importierenden datei als aktualisierung eingegeben werden.



Dazu kannst Du die SQL-Eigenschaft des QueryDef-Objektes àndern:

QueryDefs("qry_histKurse2").SQL = "...

Gruss - Mark

Informationen fuer Neulinge in den Access-Newsgroups unter
http://www.doerbandt.de/Access/Newbie.htm

Bitte keine eMails auf Newsgroup-Beitràge senden.

Ähnliche fragen