meerdere excel bestanden bewerken

[Ron Veenstra]

In een map heb ik vele excel bestanden staan die allemaal dezelfde opbouw hebben.
Ieder bestand moet hier en daar nog worden aangepast. Hiervoor heb ik een macro die dit keurig doet. Nu moet ik ieder bestand afzonderlijk openen en bewerken door die macro.
Heeft iemand een idee hoe ik alle bestanden een voor een kan openen en de macro vervolgens laten uitvoeren en opslaan. Zou me een hoop werk schelen.

mvg,
Ron

 

[snb]

Macro in Persnlk.xls
Voor de veiligheid worden de oorsponkelijke bestanden niet overschreven, maar een gewijzigde kopie met naam + 001 opgeslagen. Later kunnen de oorspronkelijke bestanden verwijderd worden.

sub werkuithanden()
   c0="C:\"
   c1=dir(c0 & "*.xls")
   do until c1=""
      workbooks.add c0 & c1
      with activeworkbook
        ------ zet hier de code van de aanpassingsmacro
        .SaveAs Replace(c0 & c1,".xls","001.xls")
        .close False
      end with
      c1=dir
   loop
End Sub