Daten aus CSV-Dateien einlesen

Patrick · 2007-01-22T22:55:46+00:00

Servus zusammen... habe ein für mich, auch mit Hilfe der Suchfunktion, nicht lösbares Makro-Problem... Ich habe eine Excel-Datei (Excel 2002) mit 5 Tabellenblättern "1.Quartal" bis "5.Quartal" die mit Daten aus 5 CSV-Dateien befüllt werden sollen. Die Daten aus der ersten CSV-Datei (immer alle Daten aus "Tabelle1) in das Tabellenblatt "1.Quartal" die aus der zweiten CSV-Datei in "2.Quartal" usw. Bisher habe ich das mit Copy & Paste gemacht (alles markiert, kopiert und dann in das Tabellenblatt z.B. "1.Quartal" eingefügt...Datenenge ist ca. 100 Spalten x 80 Zeilen... Das wollte ich jetzt mit einem Makro bzw einer Schaltfläche automatisieren... Die CSV-Dateien liegen im gleichen Ordner wie die Excel-Datei und heisen "Auswertung1.csv" ... "Auswertung2.csv" etc...(der Ordner sollte aber beliebig benannt werden können ... es gibt somit keinen fixen Pfad für den Ordner) Kann mir dabei jemand helfen? - auslesen des Pfades - kopiern der Daten - einfügen der Daten Auch das Einlesen der Daten pro Tabellenblatt wäre schon eine große Erleichterung... Hoffe es kann mir jemand helfen... Grüße, Pattes

Hallo Pattes,
ohne genaue Kenntnisse der Situation ist es fast unmöglich eine genaue Lösung zu liefern.
Eine CSV-Datei (CommaSeparatedValue) ist eine Textdatei, d.h. sie hat keine Zellen. Dass "alles in eine Zelle" eingelesen wird, ist eigentlich ein Excel-Bug.
Man kann die csv-Datei in eine txt-Datei umbennen und als Text einlesen, dann hat man wieder alles in einzelnen Zellen, wie aus Excel gewohnt.
Dass sich in der csv-Datei Zeilen mit lauter Semikola befinden, hat seine Ursache in der nicht ganz korrekten Speicherung einer Exceltabelle als csv-Datei. Es hat seine Ursache darin, dass an und für sich leere Zeilen mitgespeichert werden.
Ich habe hier ein paar Sachen geändert:
Datei wird in txt kopiert, eingelesen und dann wieder gelöscht
Zieltabelle wird immer überschrieben
Nur der benutzte Bereich der Auswertungsdatei wird eingelesen
Die alten Codezeilen habe ich auskommentiert


Sub QuartaleEinlesen()
Dim wb As Workbook, ws As Worksheet, wsQ As Worksheet
Dim i%, Nr$, efz%, lz%, AuswDatei1$, AuswDatei2$
Application.ScreenUpdating = False
With Application.FileSearch
.LookIn = ThisWorkbook.Path & "\"
.FileType = msoFileTypeAllFiles
.Filename = "Auswertung*.csv"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Application.StatusBar = Dir(.FoundFiles(i)) & " wird eingelsen ..."
Nr = Mid(Dir(.FoundFiles(i)), 11, 1)
Set wsQ = ThisWorkbook.Worksheets(Nr & ". Quartal")
'                MsgBox wsQ.Name
'                efz = wsQ.Cells(Rows.Count, 1).End(xlUp).Row + 1
efz = 1
AuswDatei1 = .FoundFiles(i)
AuswDatei2 = Replace(AuswDatei1, "csv", "txt")
FileCopy AuswDatei1, AuswDatei2
'                Set wb = Workbooks.OpenText(Filename:=AuswDatei2)
Set wb = Workbooks.OpenText(Filename:=AuswDatei2, Origin _
:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True)
Set ws = wb.Worksheets(1)
lz = ws.Cells(Rows.Count, 1).End(xlUp).Row
wsQ.Cells.ClearContents
'                ws.Range("A1:EZ80").Copy wsQ.Cells(efz, 1)
ws.UsedRange.Copy wsQ.Cells(efz, 1)
wb.Close False
Kill AuswDatei2
Next i
End If
End With
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub

Gruß Heinz

Hallo Heinz,
leider funktioniert es noch nicht ganz... er steigt mit der Fehlermeldung
"Funiction oder Variable erwartet" bei(Workbooks.OpenText)aus (siehe ---->)


Sub QuartaleEinlesen()
Dim wb As Workbook, ws As Worksheet, wsQ As Worksheet
Dim i%, Nr$, efz%, lz%, AuswDatei1$, AuswDatei2$
Application.ScreenUpdating = False
With Application.FileSearch
.LookIn = ThisWorkbook.Path & "\"
.FileType = msoFileTypeAllFiles
.Filename = "Auswertung*.csv"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Application.StatusBar = Dir(.FoundFiles(i)) & " wird eingelsen ..."
Nr = Mid(Dir(.FoundFiles(i)), 11, 1)
Set wsQ = ThisWorkbook.Worksheets(Nr & ". Quartal")
'                MsgBox wsQ.Name
'                efz = wsQ.Cells(Rows.Count, 1).End(xlUp).Row + 1
efz = 1
AuswDatei1 = .FoundFiles(i)
AuswDatei2 = Replace(AuswDatei1, "csv", "txt")
FileCopy AuswDatei1, AuswDatei2
'                Set wb = Workbooks.OpenText(Filename:=AuswDatei2)
hier ---->>     Set wb = Workbooks.OpenText(Filename:=AuswDatei2, Origin _
:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True)
Set ws = wb.Worksheets(1)
lz = ws.Cells(Rows.Count, 1).End(xlUp).Row
wsQ.Cells.ClearContents
'                ws.Range("A1:EZ80").Copy wsQ.Cells(efz, 1)
ws.UsedRange.Copy wsQ.Cells(efz, 1)
wb.Close False
Kill AuswDatei2
Next i
End If
End With
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub

Ist bstimmt "nur" eine Kleinigkeit... aber beheben kann ich es trotzdem nicht...
Grüße, Pattes

Forumthread: Daten aus CSV-Dateien einlesen

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Daten aus CSV-Dateien einlesen

Forumthread: Daten aus CSV-Dateien einlesen

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread