Dobrý deň, pozdravujem všetkých!
Prosím Vás o radu s nasledovným problémom:
Mám jeden excelovský súbor, v ktorom sa nachádza 75 hárkov. V každom hárku je vytvorená jedna tabuľka (každá je iná). Potrebujem z týchto hárkov vytvoriť 75 samostatných excelovských súborov a to takých, aby v každom jednom z nich bola iba jedna jediná tabuľka. Dá sa to? Ak áno, ako???
Ďakujem!
Vytvorenie tabuliek z hárkov v Exceli
Vytvorenie tabuliek z hárkov v Exceli
Argumentum ad hominem (lat.) je argument, ktorým sa diskutujúci snaží vyvrátiť oponentovo tvrdenie poukazovaním na oponentove skutočné či domnelé nedostatky. Snaží sa previesť dialóg od diskusie o probléme samotnom k diskusii o mravnej či inej oponentovej integrite.
- adam102
- Nový používateľ
- Príspevky: 197
- Dátum registrácie: Št 10. Jan, 2008, 14:00
- Bydlisko: Košice 13
Re: Vytvorenie tabuliek z hárkov v Exceli
Od najhorsieho po najlepsie:
Mam to vsetko po anglicky, lebo sa lahko googlia rozne volovinky ako toto. Aj to s VBA som sa naucil len pred 5 minutami vdaka tejto teme. Funguje to.
- Zdlhavo a hlupo - nakopirovat si ten subor 75-krat a v kazdom zvlast vymazat vsetky harky okrem jedneho. Harky sa drzanim Ctrl daju oznacovat hromadne a mazat naraz;
- Kutools for Excel ma taku funkcionalitu, maju full-feature 30-dnovy trial, cize oplatilo by sa to na to vyplytvat, ak je to jednorazovy problem;
https://www.extendoffice.com/product/ku ... kbook.html - Najlepsie asi cez VBA. Save As do novej zlozky ako *.xlsm (Excel Macro-Enabled Workbook). Potom Developer → Visual Basic → pravy klik na Sheet 1 → Insert → Module → pastnut tam tento zazracny kod:
→ Run Macro (F5). Vo foldri s originalnym *.xlsm povyskakuju nove *.xlsx s jednym harkom, kazdy zvlast.
Kód: Vybrať všetko
Sub Split_Sheet_into_ExcelFiles() Dim FilePath As String FilePath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each Sheet In ThisWorkbook.Sheets Sheet.Copy Application.ActiveWorkbook.SaveAs Filename:=FilePath & "\" & Sheet.Name & ".xlsx" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
Mam to vsetko po anglicky, lebo sa lahko googlia rozne volovinky ako toto. Aj to s VBA som sa naucil len pred 5 minutami vdaka tejto teme. Funguje to.
MB: Gigabyte B550 Vision D CPU: AMD Ryzen 9 3900X/Noctua NH-D12L RAM: Gigabyte Designare 128 GB 3200 MHz CL16 GPU: AMD Radeon Pro Ⅶ SSD: 2 × Samsung 990 PRO 2 TB HDD: 2 × WD40EZRZ PSU: Seasonic PRIME Fanless TX-700 ODD: Pioneer BDR-XS07B-UHD CASE: Lian Li PC-O11 WXC FAN: 6 × Noiseblocker Multiframe M12-1 LCD: NEC PA301W | NEC LCD2090UXi KB: Filco Majestouch 2 MX Brown | Ducky One 2 Mini MX Blue MOUSE: Zowie FK2/Zowie P-SR HP: Beyerdynamic DT 990 PRO TV: Pioneer PDP-LX5090H
- michalesku
- Používateľ
- Príspevky: 766
- Dátum registrácie: So 02. Jún, 2012, 11:56
- Bydlisko: Zvolen
Re: Vytvorenie tabuliek z hárkov v Exceli
Samozrejme, ze da.. Pravym klik na nazov harka, "Premiestnit alebo kopirovat", ciel si vyberies (novy zosit) a zakliknes vytvorit kopiu, ak nechces v povodnom subore omylom o ten harok prist..
A ak to chces automaticky, co teda pri 75 harkoch chapem, len pohladat, ci niekto na to vytvoril makro..
//Doplnene: 75-krat mazat 74 harkov je milionkrat horsie, ako ta metoda, ktoru som pisal ako prvu..
Ak funguje ten skript, tak potom parada..
A ak to chces automaticky, co teda pri 75 harkoch chapem, len pohladat, ci niekto na to vytvoril makro..
//Doplnene: 75-krat mazat 74 harkov je milionkrat horsie, ako ta metoda, ktoru som pisal ako prvu..
Ak funguje ten skript, tak potom parada..
Spoiler: ukázať
- adam102
- Nový používateľ
- Príspevky: 197
- Dátum registrácie: Št 10. Jan, 2008, 14:00
- Bydlisko: Košice 13
Re: Vytvorenie tabuliek z hárkov v Exceli
Zalezi, ci je plateny od hodiny.
Ano, 75-krat mazat 74 harkov je na psychiatra, neviem, preco mi ako prve nenapadlo skor to ukladanie harkov po jednom.
Kazdopadne chvalabohu za mudrych ludi.
Ano, 75-krat mazat 74 harkov je na psychiatra, neviem, preco mi ako prve nenapadlo skor to ukladanie harkov po jednom.
Kazdopadne chvalabohu za mudrych ludi.
MB: Gigabyte B550 Vision D CPU: AMD Ryzen 9 3900X/Noctua NH-D12L RAM: Gigabyte Designare 128 GB 3200 MHz CL16 GPU: AMD Radeon Pro Ⅶ SSD: 2 × Samsung 990 PRO 2 TB HDD: 2 × WD40EZRZ PSU: Seasonic PRIME Fanless TX-700 ODD: Pioneer BDR-XS07B-UHD CASE: Lian Li PC-O11 WXC FAN: 6 × Noiseblocker Multiframe M12-1 LCD: NEC PA301W | NEC LCD2090UXi KB: Filco Majestouch 2 MX Brown | Ducky One 2 Mini MX Blue MOUSE: Zowie FK2/Zowie P-SR HP: Beyerdynamic DT 990 PRO TV: Pioneer PDP-LX5090H
Re: Vytvorenie tabuliek z hárkov v Exceli
Ďakujem michalesku, budem to robiť takto.
Argumentum ad hominem (lat.) je argument, ktorým sa diskutujúci snaží vyvrátiť oponentovo tvrdenie poukazovaním na oponentove skutočné či domnelé nedostatky. Snaží sa previesť dialóg od diskusie o probléme samotnom k diskusii o mravnej či inej oponentovej integrite.
Re: Vytvorenie tabuliek z hárkov v Exceli
Viacero harkov vies oznacit aj cez shift, co je rychlesjie ako klikat vsetky po jednom.
ITX >>> ATX