[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