Importujte tabuľky pomocou programu Excel VBA
Nižšie sa pozrieme na program v sekcii Excel VBA že importuje listy z iných súborov programu Excel do jedného súboru programu Excel.
Stiahnite si Book1.xls, Book2.xls a pridajte ich do "C: test"
situácie:

Do príkazového tlačidla pridajte nasledujúce riadky kódu:
1. Najprv deklarujeme dve premenné typu String, objekt pracovného hárka a jednu premennú typu Integer.
2. Vypnite aktualizáciu obrazovky a zobrazenie upozornení.
Application.DisplayAlerts = False
3. Inicializujte premenný adresár. Používame funkciu Dir na nájdenie prvého * .xl? súbor uložený v tomto adresári.
fileName = Dir(directory & "*.xl??")
Poznámka: Funkcia Dir podporuje použitie zástupných znakov (*) a jedného znaku (?) Na vyhľadávanie všetkých rôznych typov súborov programu Excel.
4. Premenná fileName teraz obsahuje meno prvého súboru programu Excel nájdeného v adresári. Pridajte funkciu Do While Loop.
Loop
Do slučky pridajte nasledujúce riadky kódu (na 5, 6, 7 a 8).
5. Nie je jednoduchý spôsob kopírovania pracovných hárkov z uzavretých súborov programu Excel. Preto otvoríme súbor programu Excel.
6. Importujte hárky zo súboru Excel do import-sheet.xls.
total = Workbooks("import-sheets.xls").Worksheets.count
Workbooks(fileName).Worksheets(sheet.Name).Copy _
after:=Workbooks("import-sheets.xls").Worksheets(total)
Next sheet
vysvetlenie: celková premenná sleduje celkový počet pracovných listov import-sheet.xls. Pri kopírovaní každého pracovného hárka používame metódu Kopírovanie objektu pracovného hárka a vložiť ho po poslednom pracovnom hárku import-sheets.xls.
7. Zatvorte súbor programu Excel.
8. Funkcia Dir je špeciálna funkcia. Ak chcete získať ďalšie súbory programu Excel, môžete použiť funkciu Dir znova bez argumentov.
Poznámka: Ak sa nezhodujú žiadne ďalšie názvy súborov, funkcia Dir vráti reťazec s nulovou dĺžkou (""). Výsledkom je, že program Excel VBA opustí cyklus Do While.
9. Zapnite aktualizáciu obrazovky a zobrazenie výstrah znova (mimo slučky).
Application.DisplayAlerts = True
10. Otestujte program.
výsledok:
