Hvordan køres en makro på tværs af flere projektmappefiler?
Denne artikel vil jeg tale om, hvordan man kører en makro på tværs af flere projektmappefiler på samme tid uden at åbne dem. Følgende metode kan hjælpe dig med at løse denne opgave i Excel.
Kør en makro på tværs af flere projektmapper med VBA-kode
Kør en makro på tværs af flere projektmapper med VBA-kode
Hvis du vil køre en makro på tværs af flere projektmapper uden at åbne dem, skal du anvende følgende VBA-kode:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende makro i Moduler Vindue.
VBA-kode: Kør den samme makro på flere projektmapper på samme tid:
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
Bemærk: I ovenstående kode skal du kopiere og indsætte din egen kode uden Under overskrift og End Sub sidefod mellem Med arbejdsbøger. Åben (xFdItem & xFileName) , Slut med scripts. Se skærmbillede:
3. Tryk derefter på F5 nøgle til at udføre denne kode, og a Gennemse vindue vises, skal du vælge en mappe, der indeholder de projektmapper, som du alle vil anvende denne makro, se skærmbillede:
4. Og klik derefter på OK knappen, udføres den ønskede makro på én gang fra en projektmappe til andre.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!