Mehrere .csv Dateien gleichzeitig importieren

Forumthread: Mehrere .csv Dateien gleichzeitig importieren

22.11.2006 12:23:00

Ingrid

Hallo,
ich habe folgendes Problem:
Ich habe eine Excel Tabelle und um die 100! .csv Dateien.
Die .csv Dateien sind alle gleich aufgebaut und sollen (mit der Überschrift) untereinander in das Excel-Tabellenblatt importiert werden. Trennung durch Semikolon usw.
Manuell kann ich nur eine Datei nach der anderen importieren....
Ich habe ein Makro aufgezeichnet, welches auch funktioniert - aber nur mit einer Datei!
Ich habe versucht einen Loop zu kopieren und in das Makro einzubauen - habe aber keinen Plan wie das wirklich funktioniert. Auch kann ich die .csv nicht irgendwie mit *.csv angeben, dann wird schon die Datei nicht mehr gefunden....
Kann mir hier jemand weiterhelfen?
In Vorraus schon vielen Dank!
Hier das aufgezeichnete Makro:


Sub Import()
' Import Makro
' Makro am 22.11.2006 von Schlager aufgezeichnet
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\Documents and Settings\Desktop\ordner\dateiname.csv" _
, Destination:=Range("A1"))
.Name = "dateiname"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mehrere .csv Dateien gleichzeitig importieren

22.11.2006 12:58:51

Ramses
AW: Mehrere .csv Dateien gleichzeitig importieren

22.11.2006 13:18:03

Ingrid

AW: Mehrere .csv Dateien gleichzeitig importieren

22.11.2006 12:58:51

Ramses

Hallo
Probier mal
Option Explicit


Sub Rename_Files()
'(C) Ramses
'Liest alle CSV-Dateien in einem Verzeichnis ein
Dim Datei As String, freeRow As Long
Dim Qe As Integer
Dim PFAD As String
PFAD = "c:\" 'ACHTUNG: Bachslash am Schluss
Datei = Dir(PFAD & "*.csv")
Qe = MsgBox("Zum Import muss die aktuelle Tabelle leer sein," & vbCrLf & _
"bzw. alle Daten der aktuellen Tabelle: "" " & ActiveSheet.Name & " "" werden gelöscht", _
vbYesNo + vbCritical, "CSV-Import starten ?")
If Qe = vbNo Then
MsgBox "CSV-Import abgebrochen"
Exit Sub
Else
Cells.Clear
End If
Do While Datei <> ""
freeRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & PFAD & Datei, Destination:=Range("A" & freeRow))
.Name = Datei
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Datei = Dir()
Loop
End Sub

Den Pfad must du halt anpassen.
Zum Import habe ich einfach deine Einstellungen übernommen.
Gruss Rainer

AW: Mehrere .csv Dateien gleichzeitig importieren

22.11.2006 13:18:03

Ingrid

Supi! Funktioniert!
Vielen Dank!

Infobox / Tutorial

Mehrere .csv Dateien gleichzeitig importieren

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um mehrere .csv Dateien in Excel zu importieren, kannst Du ein VBA-Makro verwenden. Hier sind die Schritte, um das Makro zu erstellen und auszuführen:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Wähle Einfügen > Modul, um ein neues Modul zu erstellen.

Kopiere den folgenden Code in das Modul:

Sub ImportCSVFiles()
   Dim Datei As String, freeRow As Long
   Dim PFAD As String
   PFAD = "C:\dein\pfad\" ' Passe den Pfad an
   Datei = Dir(PFAD & "*.csv")

   ' Leere das aktuelle Tabellenblatt
   Cells.Clear

   Do While Datei <> ""
       freeRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
       With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & PFAD & Datei, Destination:=Range("A" & freeRow))
           .Name = Datei
           .FieldNames = True
           .RowNumbers = False
           .PreserveFormatting = True
           .TextFileParseType = xlDelimited
           .TextFileSemicolonDelimiter = True
           .Refresh BackgroundQuery:=False
       End With
       Datei = Dir()
   Loop
End Sub

Passe den Pfad in der Zeile PFAD = "C:\dein\pfad\" an, sodass er auf den Ordner verweist, in dem Deine .csv Dateien gespeichert sind.
Schließe den VBA-Editor und kehre zu Excel zurück.
Drücke ALT + F8, wähle ImportCSVFiles und klicke auf Ausführen.

Mit diesem Makro werden alle .csv Dateien aus dem angegebenen Pfad in Deine Excel-Tabelle importiert. Du kannst auch mehrere csv-Dateien zusammenführen, indem Du den Code anpasst.

Häufige Fehler und Lösungen

Fehler: "Datei nicht gefunden"
Lösung: Stelle sicher, dass der angegebene Pfad korrekt ist und alle .csv Dateien im Ordner vorhanden sind.
Fehler: "Tabelle ist nicht leer"
Lösung: Das Makro löscht alle Daten im aktiven Tabellenblatt. Stelle sicher, dass keine wichtigen Daten vorhanden sind oder passe den Code an, um diese zu erhalten.
Fehler: "Format nicht unterstützt"
Lösung: Überprüfe, ob die .csv Dateien korrekt formatiert sind und ob die Trennzeichen (z. B. Semikolon) stimmen.

Alternative Methoden

Falls Du kein Makro verwenden möchtest, gibt es einige alternative Methoden, um mehrere csv-Dateien in Excel zu importieren:

Power Query: In neueren Excel-Versionen kannst Du Power Query verwenden, um mehrere .csv Dateien zusammenzuführen. Gehe zu Daten > Abrufen und Transformieren > Daten abrufen > Aus Datei > Aus Ordner.
Kopieren und Einfügen: Du kannst die Daten manuell aus jeder .csv Datei kopieren und in ein Excel-Blatt einfügen. Dies ist jedoch zeitaufwändig, wenn Du viele Dateien hast.

Praktische Beispiele

Hier ist ein einfaches Beispiel, wie Du mehrere .csv Dateien zusammenführen kannst:

Angenommen, Du hast drei .csv Dateien mit den gleichen Spalten: Name, Alter, Stadt. Wenn Du die Dateien importierst, wird Excel die Daten untereinander anordnen:

Name	Alter	Stadt
Max	30	Berlin
Anna	25	München
Tom	22	Hamburg

Durch die Verwendung des oben genannten Makros kannst Du diese Daten in einem einzigen Schritt importieren und analysieren.

Tipps für Profis

Verwende relative Pfade: Wenn Du das Makro auf verschiedenen Computern verwenden möchtest, kannst Du den Code so anpassen, dass er relative Pfade verwendet.
Automatisiere den Prozess: Du kannst das Makro so einstellen, dass es bei bestimmten Ereignissen automatisch ausgeführt wird, z. B. beim Öffnen der Datei.
CSV-Dateien auswerten: Nutze Excel-Funktionen wie SUMME, WENN oder SVERWEIS, um die importierten csv-Dateien auszuwerten und zu analysieren.

FAQ: Häufige Fragen

1. Wie viele csv-Dateien kann ich gleichzeitig importieren?
Es gibt keine feste Grenze, solange Dein Computer genügend Ressourcen hat. Beachte jedoch, dass die Datenmenge die Leistung von Excel beeinflussen kann.

2. Kann ich auch andere Textdateien importieren?
Ja, das Makro kann auch für andere Textdateien wie .txt angepasst werden. Du musst jedoch den Dateipfad und das Trennzeichen entsprechend ändern.

3. Was mache ich, wenn ich die Daten nicht korrekt importieren kann?
Überprüfe die Formatierung der .csv Dateien und stelle sicher, dass die Trennzeichen korrekt angegeben sind. Verwende auch die Fehlerbehebung in Excel, um mögliche Probleme zu identifizieren.

Beliebteste Forumthreads (12 Monate)

Mehrere .csv Dateien gleichzeitig importieren

Forumthread: Mehrere .csv Dateien gleichzeitig importieren

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Mehrere .csv Dateien gleichzeitig importieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread