VBA: Dateien automatisch öffnen, Spalten kopieren, einfügen und wieder schließen

[sascha3282]

Hallo zusammen,

ich hoffe, dass mir jemand helfen kann! Vielen Dank vorab.

Folgendes:

Ich habe in einem Ordner ca. 400 csv-Dateien, alle nach dem gleichen Muster aufgebaut. Diese Dateien besitzen pro Datei in den Spalten A bis G Werte.

Ich benötige alle Werte der Spalten bzw. Dateien in einer Excel-Datei untereinander aufgeführt. Deswegen sollte das Makro die einzelnen Dateien nacheinander öffnen, Spalten bzw. Werte kopieren, einfügen und wieder schließen.

Ich habe mich im Makro programmieren versucht, dieses Makro öffnet jedoch nur die Dateien des Ordners, kopiert diese aber nicht untereinander in eine Excel-Datei!

Kann mir jemand von Euch helfen!? Dies wäre sehr nett! Danke!!!!!!!!!!

Gruß Sascha

Sub Dateien_öffnen()

Dim zähler As Long, Pfad As String

Pfad = "C:\Dokumente und Einstellungen\skuhnen\Eigene Dateien\ACC"

If Pfad = "" Then Exit Sub

With Application.FileSearch

.NewSearch

.FileType = msoFileTypeAllFiles

.LookIn = Pfad

.SearchSubFolders = True

If .Execute <> 0 Then

For zähler = 1 To .FoundFiles.Count

Workbooks.Open Filename:=.FoundFiles.Item(zähler)

Next zähler

End If

End With

Kill Pfad & sDatei

sDatei = Dir()

End Sub

[xk4fu]

googel mal nach

vba csv datei einlesen

usw

da gibts massig an sachen ;-)