Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
1. Povoľte kartu vývojára:
* Otvorte zošit programu Excel.
* Prejdite na možnosti súboru > Prispôsobte stuhu .
* Začiarknite políčko pre vývojára .
* Kliknite na ok .
2. Vložte modul VBA:
* Kliknite na vývojár> Visual Basic .
* V editore Visual Basic (VBE) prejdite na insert> modul .
3. Prilepiť a upraviť kód VBA:
`` `VBA
Sub Splitworksheets ()
Dim WB ako zošit, WS ako pracovný hárok
Dim NewWB ako zošit
Dim súborové meno ako reťazec
SET WB =ActiveWorkbook 'Nastavte aktívny zošit
'Služba cez každý pracovný hárok
Pre každé WS v wb.worksheets
„Vytvorte nový zošit
Set newWB =workbooks.add
„Skopírujte aktuálny pracovný hárok do nového zošitu
ws.copy pred:=newwb.sheets (1)
„Premenujte nový zošit na základe názvu pracovného hárka
filename =ws.name &".xlsx"
NEWWB.SAVEAS NAME
„Zatvorte nový zošit
newwb.close
Ďalší WS
Koncový
`` `
Vysvetlenie:
* `Dim WB ako zošit, ws ako pracovný hárok, newwb ako zošit, názov súboru ako String`: Vyhlasuje premenné na ukladanie zošita a pracovných objektov, ako aj názov súboru nového zošita.
* `Set wb =ActiveWorkbook`: Nastavuje premennú `WB` na aktuálne aktívny zošit.
* `Pre každé WS in wb.worksheets`: Slučky cez každý pracovný hárok v aktívnom zošite.
* `Set newWB =workbooks.add`: Vytvorí nový prázdny zošit.
* `Ws.Copy Pred:=newwb.Sheets (1)`: Skopíruje aktuálny pracovný hárok (`WS`) do novovytvoreného zošita (` newWB`) a vložte ho pred prvý list.
* `filename =ws.name &" .xlsx "`: Nastavuje názov súboru pre nový zošit pomocou názvu pracovného hárka a rozšírenia `.xlsx`.
* `newwb.Saveas filename`: Uloží nový zošit pomocou zadaného názvu súboru.
* `newwb.close`: Uzatvára novovytvorený zošit.
4. Spustite makro:
* Stlačte alt + f11 Vráťte sa do hárku Excel.
* Prejdite na vývojár> makry .
* Vyberte splitworksheets makro a kliknite na spustiť .
Makro vytvorí pre každý pracovný hárok v pôvodnom zošite samostatné zošity Excel a uloží ich do toho istého priečinka ako pôvodný zošit.
Ďalšie poznámky:
* Prispôsobte si názov súboru: Do uložených názvov súborov môžete upraviť premennú `filename` tak, aby obsahovala ďalšie informácie, napríklad dátum alebo čas.
* uložte do konkrétneho priečinka: Na uloženie nových zošitov môžete zadať iný priečinok zmenou premennej „FileName`.
* Spustite makro na inom zošite: Pred spustením makra nezabudnite vybrať zošit, ktorý chcete rozdeliť do samostatných súborov.