online 1
gast (50)

/ Forum / Datenbanken

DatenbankenDatenbanken

Fragevon Anne_Huber vom 20.02.2021, 11:55 Options

Import einer CSV-Datei 2 Zeilen in einen Datensatz

Hallo,
ich habe eine CSV-Datei und möchte diese mittels VBA in Access einlesen.
Das Problem ist, dass 2 Zeilen in einen 1 Datensatz gehören.
Die einzelnen Kriterien kann ich auslesen nur hab ich dann dann 2 Datensätze.

Hier mal der Code, den ich erstellt habe:

While Not EOF(1) 'Wenn du nicht am Ende EOF von den Zeilen im 1 File (1) bist,
Line Input #1, strZeile 'lese die Zeile unter der Variable Zeile ein

'Zeile 1 auslesen
If IsNumeric(Trim(Left(strZeile, 5))) Then
intSort_BG = (Trim(Left(strZeile, 5)))
End If

'Zeile 2 auslesen
If Left(strZeile, 8) = "Card" Then
strKartenmodell = Left(strZeile, 8)
End If

'Zeile 2 auslesen mit anderem Text
If Left(strZeile, 8) = "Kunden" Then
strKartenmodell = Left(strZeile, 8)
End If

Wend 'Wiederholen

Close #1


Kann mir jemand weiterhelfen?

Vielen Dank und Grüße
Anne


Antwort schreiben

Antwort 1 von RaHi vom 23.02.2021, 14:43 Options

Hallo Anne,

poste mal ein paar Zeilen deiner CSV_Datei, sonst ist es recht schwierig dein Anliegen zu verstehen. Im Übrigen funktioniert das Lesen der zweiten Zeile nach deinem Code nicht wirklich sinnvoll. Vielleicht schreibst du auch noch ein paar Worte zur Interpretation der Daten.

Gruß
Ralf

Antwort 2 von Anne_Huber vom 25.02.2021, 10:18 Options

Hallo Ralf,
vielen Dank, dass Du Dich um meine Frage gekümmert hast!!!

Ich habe die Lösung selbst gefunden ;-)) Ich hatte einen Denkfehler ...

Grüße
Anne

Ähnliche Themen

CSV Import in Access
neworker  07.09.2008 - 15 Hits - 1 Antwort

Excel Datei in CSV konvertieren und Ä Ü Ö Fehler vermeiden
Terraboy  18.11.2008 - 17 Hits - 4 Antworten

Access-Tabelle zu CSV-Datei
maxim66  21.01.2009 - 1035 Hits - 8 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026