WCM Forum - Excel Makro Frage

WCM Forum (http://www.wcm.at/forum/index.php)

- Programmierung (http://www.wcm.at/forum/forumdisplay.php?f=17)

- - Excel Makro Frage (http://www.wcm.at/forum/showthread.php?t=131449)

Excel Makro Frage

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

Dieser Code öffnet alle Dateien in einem Ordner:

Code:

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

Code:

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