csv in mehrere Arbeitsblätter konvertieren

[Mkluth]

Hallo zusammen,

ich möchte gerne mehrere csv Dateien aus einem Ordner in eine Arbeitsmappe konvertieren,
jede csv auf ein eigenes Tabellenblatt. Leider habe ich dazu nichts gefunden,
nur das zusammenfügen zu einer grossen Tabelle...

Vielen Dank und frohes Fest !

Michael

[Mkluth]

Als Ergänzung:

Eingefügt habe ich die CSV Dateien über Power-Query:

   
Damit bekomme ich ein großes Arbeitsblatt, möchte aber für jede Datei ein eigenes.
Toll wäre, wenn das ohne VBA möglich wäre, da hab ich nämlich noch keine Ahnung von...

Beste Grüße

Michael

[snb]

Integrieren in 1 Arbeitsblatt ist besser als konvertieren in unterschieden Arbeitsblätter.

Jedoch, diese Code reicht aus

Code:

Sub M_snb()
  c00 = "G:\OF\"
  c01 = dir(c00 & "*.csv"
 
  Do until c01=""
    thisworkbook.sheets.add ,thisworkbook.sheets(thisworkbook.sheets.count),,c00 & c01
    c01=dir
  Loop
End Sub

[Mkluth]

Hallo und danke,

wie gesagt,

habt von VBA keine Ahnung, wo muss der Code wie ausgeführt werden?
Es sollte möglichst einfach gehalten sein, über Power Query die csv's einfügen ist schon
aufwändig genug....

MFG

Michael

[schauan]

Hallöchen,

Du musst in den VBA-Editor gehen, eine neues Modul erstellen und den Code dort einfügen. Ausführen kannst Du ihn mit F5 oder Du fügst ein Objekt auf dem Blatt ein und weist ihm das Makro zu. Dann geht es auch per Klick.

[snb]

Dann wäre Papier und Bleistift die Lösung.

[maninweb]

Hallo,

statt einer Ordnerabfrage könntest Du in PowerQuery die Dateien jeweils einzeln abfragen. Dafür eine Abfrage erstellen
mit einer Datei und so aufbauen wie Du es möchtest. Danach kannst Du im PQ-Editor die Abfrage duplizieren und musst
nur den Dateinamen anpassen. Das ergibt Dir dann eine Tabelle pro Abfrage.

Gruß