Ինչպե՞ս գործարկել մակրո միաժամանակ մի քանի աշխատանքային գրքերի ֆայլերի միջով:
Այս հոդվածում ես կխոսեմ այն մասին, թե ինչպես մակրո վարել միաժամանակ մի քանի աշխատանքային գրքերի ֆայլերի վրա, առանց դրանք բացելու: Հետևյալ մեթոդը կարող է օգնել ձեզ լուծել այս խնդիրը Excel- ում:
Գործարկել մակրո միևնույն ժամանակ VBA կոդով մի քանի աշխատանքային գրքերում
Գործարկել մակրո միևնույն ժամանակ VBA կոդով մի քանի աշխատանքային գրքերում
Բազմաթիվ աշխատանքային գրքերում մակրո գործարկելու համար ՝ առանց դրանք բացելու, կիրառեք հետևյալ VBA կոդը.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ մակրոը ՝ Մոդուլներ Պատուհանը:
VBA կոդ. Միևնույն ժամանակ աշխատեք միևնույն մակրոն մի քանի աշխատանքային գրքերի վրա.
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
ՆշումՎերոհիշյալ ծածկագրում խնդրում ենք պատճենեք և տեղադրեք ձեր սեփական ծածկագիրը առանց Sub վերնագիր եւ Վերջ Sub ստորոտը միջեւ Աշխատանքային տետրերով: Բաց (xFdItem & xFileName) և Վերջ սցենարներ Տեսեք,
3, Դրանից հետո սեղմեք F5 այս կոդը կատարելու բանալին և ա Թերթել ցուցադրվում է պատուհանը, ընտրեք այն թղթապանակը, որը պարունակում է աշխատանքային գրքեր, որոնք ցանկանում եք բոլորը կիրառել այս մակրոը, տե՛ս նկարը.
4. Եվ հետո կտտացրեք OK կոճակը, ցանկալի մակրոն կկատարվի միանգամից մեկ աշխատանքային գրքից մյուսը:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: