Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1916to1920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1916to1920
1916to1920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere csv zusammenführen

Mehrere csv zusammenführen
24.01.2023 09:46:04
VikAlex
Moin zusammen,
ich habe monatlich eine recht undankbare Aufgabe und suche dafür eine Makro-Lösung. Im Internet, auch hier im Forum habe ich auch schon einige Codes gefunden, doch keinen konnte ich auf meine Bedürfnisse anpassen :(.
Was ist zu tun?
In einem variablen Ordner (ändert sich jeden Monat) liegen etwa 60 *csv Dateien ab, die ich händisch in einer einzigen Datei zusammenführe - also alles in einem einzigen Tabellenblatt untereinander.
Die Datenstruktur ist überall identisch. Die Spalten A bis M sind gefüllt.
Das gefüllte Tabellenblatt ist nach dem jeweiligen Dateinamen benannt, also nicht "Tabelle1" - sondern "EXCELH_#########".
Kann mir jemand bzgl. eines kurzen Makros helfen?
Viele Grüße
VikAlex

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere csv zusammenführen
24.01.2023 11:22:46
UweD
Hallo
so?
Sub alle_Dateien_Verzeichnis() '
    On Error GoTo Fehler
    Dim Pfad As String, Ext As String, Datei As String
    Dim TB1 As Worksheet, TB2 As Worksheet, LR1 As Long, LR2 As Long
    
    Set TB1 = ThisWorkbook.Sheets("TabelleZiel")
    
    Ext = "*.csv"
    Pfad = "E:\Excel\Temp\" '**** mit \
    
    Application.ScreenUpdating = False
    
    Datei = Dir(Pfad & Ext)
    Do While Len(Datei) > 0
    
        LR1 = TB1.Cells.SpecialCells(xlCellTypeLastCell).Row + 1 'erste freie Zeile
        
        Workbooks.Open Filename:=Pfad & Datei
        Set TB2 = ActiveWorkbook.Sheets(1) 'Das Quellblatt / CSV hat nur ein Blatt
        
        LR2 = TB2.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes
    
       TB2.Cells(1, 1).Resize(LR2, 13).Copy TB1.Cells(LR1, 1) 'Spalte A:M kopieren
        
        
        Workbooks(Datei).Close False
        
        Datei = Dir() ' nächste Datei
    Loop
    
    
    Err.Clear
Fehler:
    If Err.Number > 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub
LG UweD
Anzeige
AW: Mehrere csv zusammenführen
24.01.2023 11:45:14
snb
Verwende:
Sub M_snb()
    Shell "cmd Copy G:\OF\*.csv  G:\zusammen.csv", 0
    Workbooks.Open "G:\zusammen.csv"
End Sub

111 Forumthreads zu ähnlichen Themen

CSV Dateien importieren
Bernhard

Hallo liebe Experten,
ich google seit geraumer Zeit nach einer Lösung für folgende Aufgabenstellung, bin aber nicht recht weiter gekommen:
Aufgabe:
Ich erhalte einen Ordner mit bis zu 50 CSV-Files, die ich in eine Excelmappe importieren soll. Für jedes CSV-File soll ein Tabellenbla...
29.10.2008 15:07:00
Thread-ID: 1020315
7 Beiträge
Anzeige
Mehrere .csv Dateien zusammenführen
karlheinz

Hi Leute,
ich habe viele Verzeichnisse in denen mehrere .csv Dateien liegen. Diese sind immer gleich.
Die Daten aus einer dieser Dateien (products.csv) möchte ich in einer Datei zusammengefast haben ohne das ich jede öffnen und Kopieren muss.
Geht das?
Und wenn ja, wie?
Dank...
02.05.2010 12:55:43
Thread-ID: 1154941
12 Beiträge
Mehere CSV Dateien zusammenführen
Martin

Hallo, ich habe einen Solarwechselrichter der seine Daten in eine CSV Datei reinschreibt.
Allerdings erzeugt er pro Tag eine CSV Datei mit einem Kopf und anschliessend den Daten. Wenn ich mir nun mehrere Tage anschauen möchte muss ich entweder mehere Dateien Öffnen oder die Daten händig in...
29.07.2010 20:57:43
Thread-ID: 1169570
5 Beiträge
Anzeige
Alle csv Dateien aus Ordner importieren
Daniel

Hallo,
ich würde gerne aus einem bestimmten Ordner
1. alle vorhandenen *.csv files importieren und im aktuellen sheet zeilenweise auflisten (jede csv datei enthält auch nur eine Zeile)
2. nach erfolreichem import die entsprechenden csv dateien löschen
Kann mir jemand zeigen, wie...
25.10.2010 10:52:11
Thread-ID: 1183706
3 Beiträge
mehrere Textdateien in Excel importieren
maschin

Hallo zusammen,
ich bin neu hier und arbeite mit Excel nur gelegentlich und mit Makros und VBS kenne ich mich nicht aus.
Ich habe Text Dateien (sind alle im gleichen Ordner) die alle gleich aufgebaut sind, die Daten sind mit tab getrennt und belegen mehrere Zeilen.
Der zweite Cod...
28.10.2011 09:08:39
Thread-ID: 1235704
5 Beiträge
mehre csv dateien importieren
hb

Hallo,
könnte mir vielleicht jemand mit folgendem Problem helfen. Ich moechte:
- CSV dateien, deren Anzahl variabel ist mit den oeffnen Dialog in einer tabelle beginnend von Zeile 8 hintereinander importieren (.csv inhalt lesen und wieder schliessen)
-Anschliessend die neue Tabelle...
11.02.2012 18:22:01
Thread-ID: 1250223
7 Beiträge
Mehrere CSV Dateien öffnen
Michael

Hallo,
ich habe folgenden Code um mehrere CSV Dateien zu öffnen. Leider verstehe ich nicht wie ich die semikolon trennzeichen einfügen kann. Des Weiteren möchte ich gerne die erste Zeile im folgenden format DMY.
Der Code sieht wie folgt aus:
Dim dateien, i
Dim owkb As Workbook<...
23.05.2012 19:37:41
Thread-ID: 1264577
11 Beiträge
Daten ausmehreren Excel Dateien zusammenführen
stefan

Hallo Profis
ich habe eine Vorlage und in diese Vorlage will ich die Werte aus 3 anderen Dateien reinkopieren beim öffnen der Vorlage sollen die anderen Dateien geöffnet werden nacheinander wenn möglich und die Daten aus den anderen Dateien kopiert und eingefügt werden.
Habe die Vor...
07.10.2012 11:11:41
Thread-ID: 1280830
14 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
3
11
4
4
2
4
6
10
13
13
6
1
1
1
5
1
1
5
6
2
1
4
8
2