Office: (Office 2013) csv-Datei in Datenbank-Tabelle einlesen

Michael O. · 15. August 2017

Hallo Forum,

ich möchte eine csv-Datei in eine definierte Access-Tabelle per VBA einlesen.
csv-Datei:
Dateiformat: csv
Dateiursprung: Unicode (UTF-8)
Trennzeichen: Komma
Textqualifizierer: doppeltes Hochkomma ()
Die ersten Zeilen benötige ich nicht, da stehen Bemerkungen drin - müssen deshalb überlesen werden.

Mein Code:
Code:

Dim var_zeile As String
Dim var_zeile_felder As Variant
Dim i1 As Integer

Dim var_input_file As String
Dim rs_input As DAO.Recordset

var_input_file = ... hier steht der Pfad zur Datei, wird später durch einen FileOpen-Dialog ersetzt...

Open var_input_file For Input As #1
Set rs_input = CurrentDb.OpenRecordset("Eingabe", dbOpenDynaset)

For i1 = 0 To 6
' Die ersten 7 Zeilen überlesen
Line Input #1, var_zeile
MsgBox var_zeile
Next i1

With rs_input
Do While Not EOF(1)
Line Input #1, var_zeile
rs_input.AddNew
var_zeile_felder = Split(var_zeile, ",") ' Datenzeile in ein Array
For i1 = 0 To UBound(var_zeile_felder)
rs_input(i1) = var_zeile_felder(i1)
' Zusatzspalte für Hinweise
!Hinweis = "hier steht dann ein Hinweis..., z. B. auf Fehler"
rs_input.Update
Next i1
Loop
End With

Close #1
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich bekomme aber schon beim zweiten Lesen einen Fehler (Lesen hinter Dateiende), weil offenbar schon beim ersten Line Input die gesamte Datei gelesen wird. Zudem wird offenbar das Format UTF-8 nicht korrekt erkannt, denn Umlaute werden nicht korrekt dargestellt.

Öffne ich aber die Datei mit einem Klick in Excel, wird alles korrekt dargestellt.

Ich habe es auch wie an verschiedenen Stellen empfohlen mit DoCmd.TransferText versucht. Dabei stören aber offenbar die führenden Zeilen mit den Bemerkungen, und ich bekomme einen Fehler (Index außerhalb des gültigen Bereiches).

Wie kann ich die csv-Datei korrekt in meine Datenbank importieren?

Herzlichen Dank im Voraus für jeden Hinweis.

Viele Grüße
Michael

:)

ebs17 · 17. August 2017

Dabei stören aber offenbar die führenden Zeilen mit den Bemerkungen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ein Weg wäre, den Inhat der Textdatei in eine Stringvariable einzulesen, die störenden Textanteile (Zeilen) zu löschen (z.B. über Split)) und den Rest in eine Textdatei zurückzuschreiben. Dann könnte man per Standard importieren, dann auch unter Nutzung einer Importspezifikation.

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

Die Datei hat nur die Dateiendung CSV. Eine Standard-CSV ist eine Texttabelle und als solche unmittelbar per SQL oder als Umweg über Standardimport/-verlinkung nutzbar.

Michael O. · 17. August 2017

Hallo Eberhard,
ich steh auf dem Schlauch. Das Problem ist ja, dass offenbar beim ersten Lesen die gesamte Datei gelesen wird. Zudem wird offenbar das Format UTF-8 nicht korrekt erkannt, denn Umlaute werden nicht korrekt dargestellt. Den Rest versuche ich ja wie von Dir vorgeschlagen, oder?
VieleGrüße
Michael

ebs17 · 17. August 2017

Das Problem ist ja, dass offenbar beim ersten Lesen die gesamte Datei gelesen wird.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Worin besteht da ein Problem?
Meistens geht es schneller, wenn man alles auf einmal anfasst als jedes Fitzelchen einzeln nacheinander.

Zudem wird offenbar das Format UTF-8 nicht korrekt erkannt
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dies ließe sich ja über die (gennante) Importspezifikation korrigieren.

Den Rest versuche ich ja ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was genau wäre dann der Rest?

Steffen0815 · 17. August 2017

Hallo,
vermutlich hat die Datei kein Windowszeilenende (vbcrlf). Damit kommt das normale lesen mit Open ... nicht klar.
Dies kannst du aber mit dem TextStream-Objekt des FSO umgehen.
Ich würde die ersten Zeilen löschen und in eine neue Datei schreiben. Diese neu neue Datei wird dann per Docmd.TransferText mit Spezifikation verknüpft und per Anfügeabfrage importiert.

UNGETESTET: Code:

Sub xxx()
Dim fso As Object, fin As Object, fout As Object, strline As String
Set fso = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2
Dim z As Long

Const varDatei = "C:TempDateiIn.txt"
Const varTmpDatei = "C:TempDateiout.txt"
Set fin = fspenTextFile(varDatei, ForReading)
Set fout = fspenTextFile(varTmpDatei, ForWriting, True)

Do While Not fin.AtEndOfStream
z = z + 1
strline = fin.readLine()
If z > 7 Then fout.writeline strline
Loop
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2013) csv-Datei in Datenbank-Tabelle einlesen

csv-Datei in Datenbank-Tabelle einlesen

csv-Datei in Datenbank-Tabelle einlesen

csv-Datei in Datenbank-Tabelle einlesen

csv-Datei in Datenbank-Tabelle einlesen - Similar Threads - csv Datei Datenbank

Farbspeicherung in CSV-Datei

CSV Dateien mit unterschiedlichen Format importieren und zusammenführen

csv Import Tabelle mit viel Inhalt in einer Zelle

CSV Datei lässt sich nicht importieren

Exportieren von Kontakten von Outlook.com in eine CSV-Datei

alle csv Dateien in eine lokale Tablle im Access importieren

CSV-Dateien werden mit falschen Umlauten eingelesen