Programmieren eines Makros

Forumthread: Programmieren eines Makros

05.05.2009 13:27:06

Oliver

Hallo zusammen
Ich habe folgenes Problem:
Ich hab einen Ordner gefüllt mit .csv Dateien. Jetzt bräuchte ich ein Makro, welches mir alle csv-Dateinen zusammenfasst und zwar folgendermassen.
csv-Dateien im Ordner:
Die csv-Dateine haben nummern z.B "at200711.csv". 2007 ist das Jahr und 11 der Monat..dies geht so weiter bis jetzt und jeden Monat wird eine neue .csv-Datei in den Ordner hinzugefügt. Die jetztige Datei heisst in diesem Fall "at200904.csv", da der Monat April der letzte abeschlossene Monat ist.
zu dem Inhalt der Csv-Datei..
jede .csv-Datei besteht aus 7 Spalten und beliebig vielen Zeilen.
Zum Makro:
das Makro soll eine neue .xls-Datei erzeugen und diese wie folgt bearbeiten:
Es soll begonnen bei der kleinsten Zahl der csv.Datein (in diesem Fall "at200711.csv") den Inhalt der .csv-Datei zu kopieren und ihn in die .xls Datei einzufügen.
Dann kommt die zweitkleinste Datei "at200812.csv" und diese Daten (bestehen auch wieder aus 7 Spalten und beliebig vielen Zeilen) unmittelbar unterhalb der Daten der letzten Datei ("at200711.csv") einzufügen. Dies soll dann so weitergehen bis die .csv-Datei mit der grössten Nummer erreicht worden ist.
Die .xls Datei ist dann sozusagen eine Übersicht über alle .csv-Dateine.
Ich wäre sehr dankbar, wenn mir jemand bei diesem Problem helfen könnte, denn ich bin hilflos aufgeschmissen, da ich nur VBA mit Recorder beherrsche.
Vielen Dank für die Mühe und einen schönen Nachmittag noch!
Mit freundlichen Grüssen
Oli

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Rekorder .. Programmieren eines Makros

05.05.2009 13:38:37

Mike

Hey Oli,
etwas vorarbeit kannst Du schon leisten, denn der Inhalt der CSVs
kennst nur Du. Daher, importier mit dem Makrorekorder mal so 'ne
Datei und stell dann den Code rein.
Gruss
Mike

AW: Rekorder .. Programmieren eines Makros

05.05.2009 13:44:57

Oliver

Hallo Mike
Vielen Dank für deine Antwort!
Hast dus so gemeint:


Sub Makro1()
ChDir "C:\Dokumente und Einstellungen\o.steiner\Desktop"
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\o.steiner\Desktop\Meine Dateien\SA\Backup\at200807.csv"
End Sub

Mit freundlichen Grüssen
Oli

AW: Rekorder .. Programmieren eines Makros

05.05.2009 14:46:36

D.Saster

Hallo,
teste mal:


Sub lesen()
Dim strDatei As String, arrDaten(), strTmp As String, arrTmp, lCounter As Long, i As Integer
Const strPfad As String = "C:\Dokumente und Einstellungen\o.steiner\Desktop\Meine Dateien\SA\ _
Backup\"
strDatei = Dir(strPfad & "at*.csv")
Do While strDatei  ""
Open strPfad & strDatei For Input As #1
Do While Not EOF(1)
Line Input #1, strTmp
arrTmp = Split(strTmp, ";")
lCounter = lCounter + 1
ReDim Preserve arrDaten(1 To 7, 1 To lCounter)
For i = 1 To 7
arrDaten(i, lCounter) = arrTmp(i - 1)
Next
Loop
Close #1
strDatei = Dir
Loop
Worksheets.Add
Cells(1, 1).Resize(lCounter, 7) = WorksheetFunction.Transpose(arrDaten)
End Sub

Gruß
Dierk

funktioniert noch nicht ganz...

05.05.2009 15:05:48

Oliver

Hallo Dierk
Vielen Dank für das Makro, aber es funktioniert leider noch nicht ganz..
Es liest etwas ein, aus einer der richtigen .csv-Dateine, jedoch nur ein Bruchteil von dem was benötig wird. (Ich schätze mal es ist ein Bruchteil aus einer Datei). Leider kann ich dir nicht sagen, welche
Datei es genau ist, da alle Inhalte beinahe identisch sind.
Weisst du das Problem zu beheben?
Vielen Dank für deine Mühe!
Gruss

AW: funktioniert noch nicht ganz...

07.05.2009 14:05:51

Oliver

Thema erledigt..Danke allen für die Hilfe!

Beliebteste Forumthreads (12 Monate)

Forumthread: Programmieren eines Makros

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Programmieren eines Makros

Forumthread: Programmieren eines Makros

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread