Office: mehrere Hunderte csv automatisch importieren

xpressme · 5. Mai 2010

meine namen heisen schon so das ab stelle 14 das jahr beginnt

und meine tabelle heist auch richtig war nur nen schreibfehler.

aber werde mir den rest wohl selbst zusammenbasteln ^^

danke erstmal trotzdem für code.

kann closed werden ^^

ebs17 · 5. Mai 2010

hab eine Tabelle namens Logdatei
...
und trotzdem sagt der laufzeitfehler
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Logdatei Logtabelle => ein nachfolgender Fehler würde mich nicht wundern.

Übrigens: Aus der Fehlermeldung kann und sollte man Rückschlüsse ziehen.

g202e · 5. Mai 2010

Hallo ebs17,
bin auf diesen Thread gestoßen, da ich seit geraumer Zeit etwas Ähnliches vorhabe...
Habe jetzt versucht, deinen Code an meine Bedürfnisse anzupassen, bekomme aber bereits beim Schreiben in die Protokolltabelle einen angeblichen "Syntaxfehler in der INSERT TO Anweisung".
Die Dateien haben das Namensformat "jjjj-mm-tt-LOG.txt" (habe mal ein Beispiel angehängt).
Ich vermute außerdem, dass ich bei der Importspezifikation was falsch mache, denn wenn ich das Füllen der Protokolldatei auskommentiere, bekomme ich "Typen unverträglich".

Vielleicht wäre es möglich, dass du mir weiterhilfst? Danke.

ebs17 · 5. Mai 2010

Code:

db.Execute "INSERT INTO Logtabelle (Dateiname, Timestamp)" & _
" SELECT '" & sName & "', Now()", dbFailOnError
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Timestamp ist ein schlechter Feldname, SQL stört sich daran und bemängelt einen Syntaxfehler. Also umbenennen. Ich habe ein X davor gesetzt.

@Gerald: Deine Textdatei ist etwas ungünstig. Du hast 4 Felder, durch Leerzeichen getrennt, wobei aber das vierte Feld ebenfalls Leerzeichen enthält und somit beim Standardimport auseinandergenommen wird in weitere Felder.
Hier müsste man zeilenweise importieren:
Code:

Sub aufruf_fImport()
Call fImport(CurrentProject.Path)
End Sub

Sub fImport(sPfad As String)
' sPfad ... Importordner
Dim db As DAO.Database ' Verweis auf DAO notwendig
Dim sName As String
Dim C As Long
Dim sZeile As String
Dim vArr As Variant
Set db = CurrentDb
If Dir(sPfad & "\Archiv", vbDirectory) = "" Then MkDir sPfad & "\Archiv"
sName = Dir(sPfad & "\*.txt") ' Ersten Eintrag abrufen.
Do While sName > "" ' Schleife beginnen.

' Importvorgang starten
If IsNull(DLookup("Dateiname", "Logtabelle", "Dateiname = '" & sName & "'")) Then

db.Execute "INSERT INTO Logtabelle (Dateiname, XTimestamp)" & _
" SELECT '" & sName & "', Now()", dbFailOnError

C = FreeFile
Open sPfad & "\" & sName For Input As #C ' Datei öffnen.
Do While Not EOF(C) ' Schleife bis Dateiende.
Line Input #C, sZeile ' Zeile in Variable einlesen.
vArr = Split(sZeile, " ", 4) ' Zeile teilen

db.Execute "INSERT INTO Zieltabelle (XTime, XS1, XS2, XText)" & _
" SELECT " & Format(vArr(0), "\#hh\:nn\:ss\#") & ", " & vArr(1) & _
", " & vArr(2) & ", '" & vArr(3) & "'", dbFailOnError

Loop
Close #C ' Datei schließen.

' db.Execute "INSERT INTO Zieltabelle" & _
' " (Überschrift1, Überschrift2, Überschrift3, XTimestamp)" & _
' " SELECT Überschrift1, Überschrift2, Überschrift3, " & _
' CDate(Format(Mid(sName, 5, 14), "&&&&.&&.&& &&:&&:&&")) & _
' " FROM [Text;DSN=NameDerSpezifikation;FMT=Delimited;HDR=yes;" & _
' "IMEX=2;CharacterSet=850;DATABASE=" & sPfad & "\]." & sName, dbFailOnError
End If

' Datei in Unterordner Archiv verschieben
Name sPfad & "\" & sName As sPfad & "\Archiv\" & sName
sName = Dir ' Nächsten Eintrag abrufen.
Loop
Set db = Nothing
' MsgBox "Fertig"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

g202e · 7. Januar 2021

von ebs17

Timestamp ist ein schlechter Feldname, SQL stört sich daran und bemängelt einen Syntaxfehler.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hi Eberhard,
auf sowas muss man erstmal kommen...
OK, ich habe getan, wie mir geheißen, aber bekomme immer noch Syntaxfehler bei INSERT INTO ???
Deine Array-Trennung funzt lt. Debugger korrekt...
Code:

db.Execute "INSERT INTO tblFP-Log (MsgTime, MsgLabel, RaceNumber, MsgText)" & _
" SELECT " & Format(vArr(0), "\#hh\:nn\:ss\#") & ", " & vArr(1) & _
", " & vArr(2) & ", '" & vArr(3) & "'", dbFailOnError
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ebs17 · 5. Mai 2010

Code:

db.Execute "INSERT INTO [tblFP-Log] (MsgTime, ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bezeichnungen mit Leer- und Sonderzeichen (Ausnahme Unterstrich) sind mit eckigen Klammern zu umschließen oder viel besser ganz zu vermeiden.

auf sowas muss man erstmal kommen...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Debug.Print "INSERT INTO ..."
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zum Testen: Erzeugte SQL-Anweisung ins Direktfenster (Strg + G) ausgeben, von dort in die SQL-Ansicht einer neuen Abfrage kopieren und ausführen - die Hinweise auf Fehler sind präziser.

g202e · 7. Januar 2021

OK, jetzt weiß ich wieder, warum ich "früher" immer den Unterstrich im Tabellennamen verwendet habe...

von ebs17

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Debug.Print "INSERT INTO ..."
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

merk' ich mir, brauchen wir aber heute nicht, denn die eckigen Klammern reichen vollkommen aus...*grins

Jetzt möchte ich noch aus dem Dateinamen das Datum entnehmen und in die Tabelle schreiben; ich hatte mir folgendes überlegt:
Code:

DateSerial(Mid(sName, 1, 4), Mid(sName, 6, 2), Mid(sName, 9, 2))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

habe jedoch keine Vorstellung, ob das optimal ist und wie ich das in den Code integrieren könnte...

ebs17 · 5. Mai 2010

Die Erzeugung des Datums sieht gut aus, eine Variante wäre
Code:

CDate(Left(sName, 10))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vergleiche Datum an SQL-String übergeben
Für die SQL-Anweisung muss das Datum mit einer Formatierung ummantelt werden, Einsatz analog wie oben bei der Uhrzeit:
Code:

Format(CDate(Left(sName, 10)), "\#yyyy\-mm\-dd\#")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

g202e · 5. Mai 2010

Vielen Dank für deine geduldige Hilfe.
Klappt alles super. *five *top

Office: mehrere Hunderte csv automatisch importieren

mehrere Hunderte csv automatisch importieren

mehrere Hunderte csv automatisch importieren

mehrere Hunderte csv automatisch importieren

mehrere Hunderte csv automatisch importieren

mehrere Hunderte csv automatisch importieren - Similar Threads - Hunderte csv automatisch

[VBA] CSV einlesen, mit zeilennummer

CSV in Outlook

CSV Verbindung ergänzt neue Spalten nicht

Planen von Besprechungen mit Hunderten von Teilnehmern

Prozentrechnung (im Hundert)

Zahl um hunderter Stelle verschoben

Word fügt einfach Hunderte von leeren Seiten hinzu!