Hoe voer je een macro tegelijkertijd uit over meerdere werkmapbestanden?
In dit artikel zal ik het hebben over het tegelijkertijd uitvoeren van een macro in meerdere werkmapbestanden zonder ze te openen. De volgende methode kan u helpen om deze taak in Excel op te lossen.
Voer een macro tegelijkertijd uit in meerdere werkmappen met VBA-code
Voer een macro tegelijkertijd uit in meerdere werkmappen met VBA-code
Om een macro over meerdere werkmappen uit te voeren zonder ze te openen, past u de volgende VBA-code toe:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende macro in het Module Venster.
VBA-code: voer dezelfde macro uit op meerdere werkmappen tegelijk:
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem As Variant
Dim xFileName As String
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
If xFd.Show = -1 Then
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Do While xFileName <> ""
With Workbooks.Open(xFdItem & xFileName)
'your code here
End With
xFileName = Dir
Loop
End If
End Sub
Note: Kopieer en plak in de bovenstaande code uw eigen code zonder de Sub kop en End Sub voettekst tussen de Met Workbooks.Open (xFdItem & xFileName) en Eindigt met scripts. Zie screenshot:
3. Druk vervolgens op F5 sleutel om deze code uit te voeren, en een Blader venster wordt weergegeven, selecteer een map die de werkmappen bevat die u allemaal op deze macro wilt toepassen, zie screenshot:
4. En klik dan OK knop, wordt de gewenste macro in één keer uitgevoerd van de ene werkmap naar de andere.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!