Kako zagnati makro hkrati v več datotekah delovnih zvezkov?

V tem članku bom govoril o tem, kako zagnati makro v več datotekah delovnega zvezka hkrati, ne da bi jih odprli. Naslednja metoda vam lahko pomaga pri reševanju te naloge v Excelu.

Zaženite makro istočasno v več delovnih zvezkih s kodo VBA

Zaženite makro istočasno v več delovnih zvezkih s kodo VBA

Če želite zagnati makro v več delovnih zvezkih, ne da bi jih odprli, uporabite naslednjo kodo VBA:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin v mapo prilepite naslednji makro Moduli Okno.

Koda VBA: zaženite isti makro na več delovnih zvezkih hkrati:

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

Opombe: V zgornjo kodo kopirajte in prilepite svojo kodo brez spodaj naslov in End Sub noga med Z delovnimi zvezki.Open (xFdItem & xFileName) in Končaj s skripte. Oglejte si posnetek zaslona:

3. Nato pritisnite F5 tipko za izvajanje te kode in a Brskanje okno se prikaže, izberite mapo, ki vsebuje delovne zvezke, za katere želite, da vsi uporabljajo ta makro, glejte posnetek zaslona:

4. In nato kliknite OK gumb, se bo želeni makro izvedel naenkrat iz enega delovnega zvezka v drugega.

---

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

• Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
• Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
• Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
• Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
• Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
• Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
• Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
• Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
• Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ... 

---

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

• Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
• Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
• Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

Preberite več ... Brezplačen prenos... Nakup ...