Excel pomoč (macro/xml za združevanje dokumentov)

Pozdravljeni,

zanima me če obstaja kak macro ali programček za združevanje dokumentov.

Potrebujem sicer za Office 2010, kjer so računi izdani v Excelu.
Iz izdanih računov bi potreboval sicer par postavk (stranka, cena,...), da mi jih združi v eno preglednico (v Excelu).

Hvala

Lp
M

Sem že našel :)

Sub GetSheets()
Path = "C:\folder\"
Filename = Dir(Path & "*.xls")
Do While Filename 11 ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub

Evo če bo kdo potreboval ;)

Namesto 11 uporabite oglat oklepaj (levi in desni)