Nevezz ki egy üres füzetet gyűjtőnek (nem kell, hogy ez legyen a neve).

Alt+F11-re bejön a VB szerkesztő. Bal oldalon kiválasztod ezt a füzetet, Insert menü, Module. Kapsz a füzetedben egy Module1 nevű modult a bal oldalon, erre állva a jobb oldalon kapott üres felületre másold be a makrót.

A 200 fájlod legyen azonos könyvtárban, ez az új füzet egy másikban.

A makró jelzett sorában írd át az útvonalat a 200 fájl útvonalára. Sajnos, a fórummotor eltünteti a \ jeleket, én meg mindig elfelejtem, hogy csak akkor mutatja (egyszer), ha kétszer ütöm be. A sor helyesen:

Const utvonal = "E:\Alkönyvtár\"    'Itt írd át az útvonalat

Remélem, most jól adja vissza.

 

A gyorsabb futás érdekében a Sub Osszevon sor alá írd be:

Application.ScreenUpdating = False

az End sub fölé pedig

Application.ScreenUpdating = True

 

Csak a gyűjtő füzeted legyen nyitva. Alt+F8-ra megjelenik a makrókat tartalmazó ablak, itt indíthatod az Osszevon makrót.