Zemāk mēs apskatīsim programmu Excel VBA ka importē lapas no citiem Excel failiem vienā Excel failā.
Lejupielādējiet Book4.xlsx, Book5.xlsx un pievienojiet tos mapei "C: \ test \"
Situācija:
Komandas pogai pievienojiet šādas koda rindiņas:
1. Pirmkārt, mēs deklarējam divus String tipa mainīgos, darblapas objektu un vienu Integer tipa mainīgo.
Dim direktoriju kā virkni, fileName kā virkni, lapu kā darblapu, kopā kā veselu skaitli
2. Izslēdziet ekrāna atjaunināšanu un brīdinājumu parādīšanu.
Application.ScreenUpdating = Nepareizi
Application.DisplayAlerts = Nepareizi
3. Inicializējiet mainīgo direktoriju. Mēs izmantojam funkciju Dir, lai atrastu pirmo *.xl ?? fails, kas saglabāts šajā direktorijā.
direktorijs = "c: \ test \"
fileName = Dir (direktorijs & "*.xl ??")
Piezīme. Funkcija Dir atbalsta vairāku rakstzīmju (*) un vienas rakstzīmes (?) Aizstājējzīmju izmantošanu, lai meklētu visu veidu Excel failus.
4. Mainīgajam fileName tagad ir katalogā atrastā pirmā Excel faila nosaukums. Pievienojiet cilni Darīt, kamēr.
Darīt, kamēr faila nosaukums ""
Cilpa
Pievienojiet cilpai šādas koda rindiņas (pie 5, 6, 7 un 8).
5. Nav vienkārša darba lapu kopēšanas no slēgtiem Excel failiem. Tāpēc mēs atveram Excel failu.
Darbgrāmatas. Atvērt (direktorija un faila nosaukums)
6. Importējiet lapas no Excel faila import-sheet.xlsm.
Par katru lapu darbgrāmatās (faila nosaukums). Darblapas
kopā = Darbgrāmatas ("import-sheet.xlsm"). Darblapas.skait
Darbgrāmatas (faila nosaukums). Darblapas (lapa. Nosaukums). Kopēt _
pēc: = darbgrāmatas ("import-sheet.xlsm"). Darblapas (kopā)
Nākamā lapa
Paskaidrojums: mainīgais total izseko kopējo import-sheet.xlsm darblapu skaitu. Mēs izmantojam darblapas objekta kopēšanas metodi, lai kopētu katru darblapu un ielīmētu to pēc pēdējās import-sheet.xlsm darblapas.
7. Aizveriet Excel failu.
Darbgrāmatas (faila nosaukums). Aizvērt
8. Dir funkcija ir īpaša funkcija. Lai iegūtu citus Excel failus, varat vēlreiz izmantot funkciju Dir bez argumentiem.
fileName = Režisors ()
Piezīme. Ja vairs neatbilst failu nosaukumi, funkcija Dir atgriež nulles garuma virkni (""). Tā rezultātā Excel VBA atstās cilni Do Do.
9. Ieslēdziet ekrāna atjaunināšanu un brīdinājumu parādīšanu vēlreiz (ārpus cilpas).
Application.ScreenUpdating = Patiesa
Application.DisplayAlerts = Patiesa
10. Pārbaudiet programmu.
Rezultāts:
