Vytvorenie tabuliek z hárkov v Exceli

Všetko o programoch, problémoch...
POZOR: žiadny WAREZ
Používateľov profilový obrázok
red98
Používateľ
Používateľ
Príspevky: 640
Dátum registrácie: Ne 19. Júl, 2009, 22:50

Vytvorenie tabuliek z hárkov v Exceli

Príspevok od používateľa red98 »

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!
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.
Používateľov profilový obrázok
adam102
Nový používateľ
Nový používateľ
Príspevky: 190
Dátum registrácie: Št 10. Jan, 2008, 14:00
Bydlisko: Košice 13

Re: Vytvorenie tabuliek z hárkov v Exceli

Príspevok od používateľa adam102 »

Od najhorsieho po najlepsie:
  • 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:

    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
    → Run Macro (F5). Vo foldri s originalnym *.xlsm povyskakuju nove *.xlsx s jednym harkom, kazdy zvlast.
Ak by nahodou, Developer sa zapina cez File → Options → Customize Ribbon → vpravo vyznacit Developer.

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: Samsung 970 EVO Plus 1 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 Pure White MX Blue MOUSE: Zowie FK2/Zowie P-SR HP: Sennheiser HD555 → HD595 mod | Beyerdynamic DT 990 PRO TV: Pioneer PDP-LX5090H
Používateľov profilový obrázok
michalesku
Používateľ
Používateľ
Príspevky: 688
Dátum registrácie: So 02. Jún, 2012, 11:56
Bydlisko: Zvolen

Re: Vytvorenie tabuliek z hárkov v Exceli

Príspevok od používateľa michalesku »

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..
Spoiler: ukázať
PC1: CPU Intel Core2 Quad Q9550 2.83GHz + Scythe Ashura SCASR-1000 | MB MSI P45-8D Memory Lover | RAM Kingston DDR2-1066 HyperX 4x2GB | VGA NVIDIA Quadro K4000 3GB | SSD Intel 520 Series 2x120GB RAID0 | HDD WD RE3 2x1TB RAID0 + WD Caviar Blue 2TB + WD Caviar Blue 500GB | DVD±RW Samsung SH-S224DB | DVD-ROM Plextor PX-130A | CD-RW Plextor Premium | FDD + Card Reader Teac FD-CR7 | Audio Creative SB Audigy 2 ZS Platinum | TV AVerTV Hybrid+FM PCI A16D | PS Gigabyte ODIN Pro 550W Modular | Keyboard Fujitsu KB955 | Mouse ROCCAT Kone v2 + SteelSeries QcK mini | LCD Fujitsu P27T-7 LED + Fujitsu P24W-6 IPS
PC2: HP ENVY Phoenix h9 | CPU Intel i7-3770K 3.50GHz | RAM Nanya DDR3-1600 4x4GB | VGA NVIDIA GeForce GTX 1060 6GB | SSD Samsung PM871a 512GB + Crucial MX500 500GB | HDD WD Gold 2TB | DVD±RW HP GH82N | LCD Fujitsu P27T-7 LED + Fujitsu P24W-6 IPS (shared)
PC3: Dell Precision T1650 | CPU Intel Xeon E3-1240 v2 3.40GHz | RAM Samsung DDR3-1600 4x4GB | VGA NVIDIA Quadro M2000 4GB | SSD Samsung PM871 256GB | HDD Seagate 500GB | DVD±RW Philips DH-16ACS
NB1: Fujitsu LIFEBOOK S782 vPro | 14" HD+ | CPU Intel Core i7-3540M 3.0GHz | RAM 2x8GB | SSD Samsung 850 PRO 2TB | 4G/LTE w/GPS | 2nd Battery | 2nd HDD | Port Replicator
NB2: Fujitsu LIFEBOOK E782 | 15.6" FHD | CPU Intel Core i7-3632QM 2.2GHz | RAM 2x4GB | SSD Plextor M6 PRO 256GB | 3G/UMTS w/GPS | 2nd Battery
2in1: Fujitsu STYLISTIC Q702 vPro | 11.6" IPS HD | CPU Intel Core i5-3427U 1.8GHz | RAM 4GB | SSD Toshiba 256GB mSATA | 4G/LTE w/GPS
NAS: Synology DS1515+ | CPU Intel Atom C2538 2.4GHz | RAM 2x8GB | Storage HDD Seagate IronWolf 4x4TB RAID5 + SSD Intel 520 Series 180GB
Používateľov profilový obrázok
adam102
Nový používateľ
Nový používateľ
Príspevky: 190
Dátum registrácie: Št 10. Jan, 2008, 14:00
Bydlisko: Košice 13

Re: Vytvorenie tabuliek z hárkov v Exceli

Príspevok od používateľa adam102 »

Zalezi, ci je plateny od hodiny. :D
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: Samsung 970 EVO Plus 1 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 Pure White MX Blue MOUSE: Zowie FK2/Zowie P-SR HP: Sennheiser HD555 → HD595 mod | Beyerdynamic DT 990 PRO TV: Pioneer PDP-LX5090H
Používateľov profilový obrázok
red98
Používateľ
Používateľ
Príspevky: 640
Dátum registrácie: Ne 19. Júl, 2009, 22:50

Re: Vytvorenie tabuliek z hárkov v Exceli

Príspevok od používateľa red98 »

Ď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.
Používateľov profilový obrázok
Miso122
Používateľ
Používateľ
Príspevky: 1951
Dátum registrácie: St 27. Nov, 2019, 21:36
Bydlisko: BA

Re: Vytvorenie tabuliek z hárkov v Exceli

Príspevok od používateľa Miso122 »

adam102 napísal: St 22. Feb, 2023, 19:55Zdlhavo 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;
Viacero harkov vies oznacit aj cez shift, co je rychlesjie ako klikat vsetky po jednom.
ITX >>> ATX

Návrat na "Programy a problémy s nimi"