• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Meerdere excel bestanden openen en kopieren

Status
Niet open voor verdere reacties.
S

Snijbloem

Gebruiker
Lid geworden
11 aug 2014
Berichten
7
Allen,

Ik moet van circa 200 bestanden de eerste 10 regels kopieeren. Daar staan alle koppen en specificaties voor het betreffende artikel. Handigst lijkt mij via een loop. Uitdaging is alleen hoe ik in VBA vertel dat "het volgende bestand" geopend moet worden. De bestanden hebben een nummer naam en zijn niet opeenvolgend. Dus: 405.xlsm, 406.xlsm, 407.xlsm, 421.xlsm en zo verder.

Ik hoor graag enige suggesties.
 
Bijvoorbeeld
Code: 
Sub Test()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With CreateObject("scripting.filesystemobject").GetFolder("zet hier padnaam")
        For Each fl In .Files
            Workbooks.Open fl
            Sheets(1).Range("A1").Resize(10, 10).Copy ThisWorkbook.Sheets(1).Range("A" & Rows.Count).End(xlUp).Offset(2)
            ActiveWorkbook.Close , False
        Next
    End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

PS bij resize laatste 10 aanpassen aan aantal kolommen dat gekopieerd moet worden.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan