Spodaj si bomo ogledali program v Excel VBA to uvozi liste iz drugih Excelovih datotek v eno Excelovo datoteko.
Prenesite Book4.xlsx, Book5.xlsx in jih dodajte v "C: \ test \"
Situacija:
Ukaznemu gumbu dodajte naslednje vrstice kode:
1. Najprej razglasimo dve spremenljivki tipa String, predmet delovnega lista in eno spremenljivko tipa Integer.
Zatemni imenik kot niz, ime datoteke kot niz, list kot delovni list, skupaj kot celo število
2. Izklopite posodabljanje zaslona in prikaz opozoril.
Application.ScreenUpdating = Napačno
Application.DisplayAlerts = Napačno
3. Inicializirajte imenik spremenljivk. Za iskanje prvega *.xl ?? uporabljamo funkcijo Dir. datoteko, shranjeno v tem imeniku.
directory = "c: \ test \"
fileName = Dir (imenik & "*.xl ??")
Opomba: Funkcija Dir podpira uporabo več znakov (*) in enojnih znakov (?) Za iskanje vseh različnih vrst datotek Excel.
4. Spremenljivka fileName zdaj vsebuje ime prve Excelove datoteke, najdene v imeniku. Dodajte zanko Do While.
Naredi While fileName ""
Zanka
V zanko dodajte naslednje kodne vrstice (pri 5, 6, 7 in 8).
5. Ni preprostega načina za kopiranje delovnih listov iz zaprtih Excelovih datotek. Zato odpremo datoteko Excel.
Delovni zvezki. Odpri (imenik in ime datoteke)
6. Uvozite liste iz Excelove datoteke v import-sheet.xlsm.
Za vsak list v delovnih zvezkih (ime datoteke). Delovni listi
skupaj = delovni zvezki ("import-sheets.xlsm"). delovnih listov
Delovni zvezki (ime datoteke). Delovni listi (ime. Lista). Kopiraj _
after: = Delovni zvezki ("import-sheets.xlsm"). Delovni listi (skupaj)
Naslednji list
Pojasnilo: spremenljivka skupaj spremlja skupno število delovnih listov import-sheet.xlsm. Za kopiranje vsakega delovnega lista uporabljamo metodo Kopiraj predmet Delovni list in ga prilepimo po zadnjem delovnem listu import-sheets.xlsm.
7. Zaprite datoteko Excel.
Delovni zvezki (ime datoteke). Zapri
8. Dir funkcija je posebna funkcija. Če želite dobiti druge Excelove datoteke, lahko znova uporabite funkcijo Dir brez argumentov.
ime datoteke = Dir ()
Opomba: Ko se ne ujema več imen datotek, funkcija Dir vrne niz ničelne dolžine (""). Posledično bo Excel VBA zapustil zanko Do While.
9. Vklopite posodabljanje zaslona in ponovno prikaz opozoril (zunaj zanke).
Application.ScreenUpdating = Res
Application.DisplayAlerts = Res
10. Preizkusite program.
Rezultat:
