Samenvoegen van meerdere excel bestanden

[Syphera]

Ik heb ongeveer 300 excelbestanden, allemaal met dezelfde indeling (qua kolommen)
Hoe kan ik deze bestanden makkelijk samenvoegen, want steeds kopieren en plakken gaat erg lang duren.

Weet iemand hier een oplossing voor?

 

[oeldere]

Ik heb ooit eens een macro hiervoor gezien (en opgeslagen).

Je dient in je voorbeeldje even aan te geven welke cellen er gecopieert dienen te worden.

Kijk eens of in deze vraag je tot een oplossing kunt komen.

http://www.helpmij.nl/forum/showthr...ijzingen-bij-het-openen-van-een-ander-bestand

 

[snb]

sub snb()
  c00="G:\OF\"
  c01=dir(c00 & "*.xls")

  do until c01=""
    with getobject(c00 & c01)
      sn= .sheets(1).usedrange
      .close false
    end with
    thisworkbook.sheets(1).cells(rows.count,1).end(xlup).offset(1).resize(ubound(sn),ubound(sn,2))=sn
    c01=dir
  loop
end sub

 

[Wigi]

Achteraan c00 moet nog een \ komen te staan.