Excel Makro Frage

[kansas]

Hallo!

Kann jemand einem Makrounerfahrenen kurz helfen?
Folgendes Problem...

Ein Excel Makro soll, wenn es gestartet wird, alle Excel-Dateien in einem vorgegebenen Ordner durchsuchen und zb. die zellen A1 bis B2 aller Dateien in eine neue Excel-Datei zusammenkopieren.

Blödes Problem ich weiß - aber ich kriegs nicht hin.
Muß aber dazu sagen dass ich das auch absolut nicht kann... und learning by doing wird langsam zeitaufwändig...

Vielen Dank für Eure Hilfe

lg
andi

[jak]

Dieser Code öffnet alle Dateien in einem Ordner:

Sub OpenUp(path,filename,x)
    Workbooks.Open(path,0,true)
End Sub
Sub FolderList(folderspec)
    Dim fs, f, f1, fc,x
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    x = 1
    For Each f1 in fc
        if (f1.name.indexOf(".xls")) Then OpenUp(folderspec,f1.name,x)
        x=x+2
	End if
    Next
End Sub

Es ist im Prinzip ein Copy&Paste aus der VBA-Editor Hilfe (suchwörter öffnen bzw. Ordner).
In der Methode OpenUp müsstest du jetzt noch irgendwie den Namen des Workbooks rausfinden und dann mit

Workbooks(Zielworkbook).Worksheets("Sheet1").Range("A"+x+":B"+(x+1)).Value =  Workbooks(Quellworkbook).Worksheets("Sheet1").Range("A1:B2").Value

den Bereich Kopieren und mit Workbooks(Quellworkbook).close das WB schließen.

Jak