Máte sešit s mnoha listy. Chcete poslat každý list jiné osobě. Dnes makro na rozdělení těchto dat.
Sledovat video
- Joe + Jiní hledají způsob, jak uložit každý list do jiného souboru
- Užitečné pro Power Query nebo po použití Zobrazit stránky filtrů zpráv
Přepis videa
Naučte se Excel z Podcastu, epizoda 2107 - Rozdělte každý list do nového sešitu
Ahoj vítej zpět. Jsem a netcast. Jsem Bill Jelen.
Zezadu jsem věděl, že to musím dělat už dlouho, ale dva nedávné podcasty to opravdu přinesly, přinesly domů.
Nedávno v epizodě 2106, kde jsme vytvářeli PDF ze všech kombinací průřezů. Pozdní v této epizodě jsem ukázal alternativní metodu, kdy jsme vytvořili mnoho pivotních zpráv, ale všechny je umístí do stejného sešitu a dostal jsem e-mail od Joe v Kalifornii, říká dobře, podívej, musím poslat každý list jinému zákazníkovi a to samé, na mých živých seminářích Power Excel, kde ukážu ten trik, říkají lidé, no ne, nechceme to všechno ve stejném sešitu, chceme to zvlášť a pak pravděpodobně ještě důležitější než to, je zpět epizoda 2077, kde jsem hovořil o tom, jak má nyní Power Query schopnost kombinovat všechny soubory aplikace Excel do složky, že? A to je zázračné. Funguje to skvěle. Pokud jste měli 400 souborů Excel, každý s jedním pracovním listem, popadne všechna tato data ze všech těchto pracovních listů a umístí je do jedné mřížky.Což je úžasné, ale kdybychom měli téměř stejný problém. Jeden sešit se 400 listy? Nemůže to udělat, správně. S tím se nemůže vypořádat - zatím. Správně, takže právě teď, 1. července 2017, se s tím nemůže vypořádat. Možná to za šest měsíců zvládne, ale právě teď to musí být sešity jednoho listu.
Takže potřebujeme způsob, jak být schopni rozdělit věci do jednotlivých souborů. Dobře, tak to pojďme nastavit. Máme sešit, který jsem udělal v roce 2106, kde máme data a pak původní kontingenční tabulku a přejdeme do části Analýza, Možnosti, Zobrazit stránky filtrů sestav a zobrazit stránky klíče a vytvoří pro mě celou řadu různých pracovních listů a Chci vzít tyto pracovní listy a vytvořit každý z nich je samostatný soubor, ale i když to máme, existují věci jako Sheet2 a Data, které nechci rozdělit.
V pořádku? A samozřejmě pro každého jednotlivce bude ta věc, ta, ten seznam pracovních listů, které nechceme rozdělit, jiná, ale budu hádat, že téměř každý má nějaké pracovní listy, které nemá. “ Nechci se rozdělit.
Dobře, takže tady je nástroj, který si budete moci stáhnout. Rozdělovač pracovních listů a tady mám sekci ve sloupci B a je to opravdu jediná věc ve sloupci B, kde můžete uvést ty listy, které nechcete rozdělit. Může to být více než dva. Zde můžete vyplnit tolik, kolik chcete. Můžete vložit nové řádky a můj levný způsob, nechtěl jsem je muset procházet v Makru, tak daleko mimo váš pohled tady, mám místo, kde Makro může napsat aktuální název listu a pak jednoduchý malý VLOOKUP. Říká, jděte hledat tento pracovní list, na kterém právě pracujeme, podívejte se, jestli je ve sloupci B konec, a pokud ano, budeme vědět, že to je ten, který nechceme exportovat.
V pořádku a pak znovu, aby to bylo co nejobecnější, mám zde několik pojmenovaných rozsahů, moji cestu, moji předponu, moji příponu, můj typ a moji pastu. Dobře, takže přijdete na to, kam chcete tyto věci dostat. c: Zprávy . Chci, aby každý soubor měl název listu, ale před název listu vložím předponu WB, File Suffix a nic a pak zde máte na výběr: PDF nebo XLSX.
Začneme tedy s XLSX, před uložením si promluvíme o těchto hodnotách vložení. Dobře a právě teď je to verze 1. července 2017, první. Pokud to vylepšíme, nahradím to na webové stránce a webovou stránku najdete dole v popisech YouTube. Dobře, tak tady to bude fungovat. Je to soubor XLSM. Musíte se tedy ujistit, že jsou povolena makra. alt = "" T, M, S, z bezpečnostních důvodů musíte být alespoň na této nebo nižší úrovni. Pokud jste nahoře, musíte to změnit, zavřít sešit a znovu otevřít. Když otevřete sešit, řekne se, hej, jste ochotni zde přijmout Makra a vůbec to není velké Makro: šedesát osm řádků kódu a mnoho z toho se zabývá pouze získáváním hodnot z nabídky Prostěradlo,jaké jsou nyní proměnné.
Důležité zde však je, že to bude fungovat na ActiveWorkbooku. Chystáte se tedy přepnout na sešit, který má data, a poté jej spustit stisknutím klávesy CTRL SHIFT S a bude detekovat ActiveWorkbook a bude to ten, který se rozdělí. Chytí („MyPath“) a je to jen proto, že vždy zapomenu uvést zpětné lomítko, pokud poslední znak není zpětné lomítko, přidám zpětné lomítko a tady dole je to skutečná práce.
U každého pracovního listu, v originálu, v aktivním WBO. Pracovní listy, budeme testovat, abychom zjistili, jestli je to ten, který je tam a sloupec B. Pokud ano, pokud tomu tak není, budeme exportovat tento list a já miluji tento řádek kódu. WS.copy říká, že když vezmu tento sešit, tento sešit, z tohoto velkého sešitu, znáte 20 nebo 400 pracovních listů a půjdeme na WS.copy, který z něj vytvoří kopii a přesune jej do nového pracovního sešitu a víme, víme, že se tento nový sešit nyní stane aktivním sešitem v makru a v tomto sešitu je samozřejmě pouze jeden list a tento list je aktivním listem.
Správně, tady mohu zjistit název sešitu. Nastavit, Použít na tuto proměnnou objektu, Sešit nový, Sešit nový a později, až budu muset zavřít, můžu po dokončení práce udělat WBN.close. Zjistili jsme nový název souboru pomocí všech proměnných. Tento soubor zabijte, pokud již existuje, a pokud je to soubor Excel, provedeme uložení jako, pokud je to PDF.
Mimochodem, tento kód PDF funguje pouze v systému Windows, pokud používáte Mac, je nám líto, budete muset jít někam jinam, abyste zjistili ekvivalentní kód Mac. Nemám Mac. Vím, že existuje způsob, jak uložit PDF na počítači Mac. Vím, že kód je jiný. Budete muset přijít na to, nebo se vrátit ke skutečnému Excelu ve Windows a pak jsme hotovi, zavřeme.
Dobře, takže je to jen jednoduché malé makro, jako je toto, přepněte zde na náš datový sešit, ten, který obsahuje všechny pracovní listy. K dispozici je 20 různých pracovních listů, plus dva, které nechci dělat, a potom CTRL SHIFT S takhle a budeme sledovat, jak bliká, když vytváří každý. Tady jsme: 21 vytvořených souborů.
Pojďme se podívat na Průzkumníka Windows a tady je můj OS (C :) Reports, který vytvořil pro každý pracovní list, pojmenovaný v původním sešitu, vytvořil novou verzi s WB vpředu. Dobře, Joe, když mi Joe poslal tuto poznámku, řekl, že pošle tato data zákazníkům, a já zpočátku trochu zpanikařil, protože jsem řekl, počkej, Joe, budeme mít problém, protože ty pošlu Garyho, jeho data, že? Ale to je, ah, znáte živou, živou datovou sadu, je to živá kontingenční tabulka. Všechno tady, možná budete schopni získat všechny informace pro další takové zákazníky, že? Chlapče, nechceš odeslat zákazníkovi informace o všech ostatních zákaznících. To by mohlo být potíže a ve skutečnosti, když jsem si přečetl přehlídku, byl chytřejší než já, protože řekl:Chci je vytvořit jako soubory PDF. Byl jsem rád, dobře, dobře, jo, nemusíme se starat o soubory PDF, to je v pořádku, ale to, co jsem sem přidal, do Makra byla schopnost říci Paste Values Before Saving? SKUTEČNÝ.
Takže nastavíte, že se rovná TRUE, a to vyvolá tento malý kousek kódu zde, kde říkáme: If PasteV Then the UsedRange.Copy and then UsedRange.PasteSpecial (xlPasteValues), UsedRange, spíše než kopírování a vkládání všech 17 miliard buněk , omezí to dobře na UsedRange.
Dobře, tak pojďme přepnout zpět, přepnout list, který má data, CTRL SHIFT S pro rozdělení a pak tuto novou verzi v adresáři sestav, uvidíte, že se zbavil kontingenční tabulky a nechal tam jen data. Takto se nemohou dostat ke všem datům.
Dobře, zkusíme další funkci. Zkusíme to, když přepneme z Excelu do PDF, změníme předponu na PDFFileOf, ať už tam chceme cokoli. Ani nezkusím příponu, něco. Dobře a pak přepnout na data, CTRL SHIFT S. Alrighty, takže dostaneme stejné soubory PDFFileOf the Worksheet name, something of PDF and we should have just nice little PDFs like that that.
Dobře, takže to máte Splitter pracovního listu the.com. Doufejme, že dostatečně obecný, pro vše, co potřebujete. Stáhněte si jej znovu z odkazu v komentářích na YouTube. Chcete-li se dozvědět více o VBA, podívejte se na tuto knihu Excel 2016 VBA a makra od sebe a Tracy? 08: 50,640. Kliknutím na I v pravém horním rohu si přečtete více o knize.
Joe z Kalifornie a spousta dalších požádali o způsob, jak uložit každý list do jiného souboru, buď jako PDF v Joeově případě, nebo jako soubor Excel pro případ, že budete kombinovat soubory pomocí Power Query. Takže jsem vytvořil pěkný malý Generic Freeware Utility. Můžete si stáhnout a vyzkoušet to.
Chci poděkovat Joeovi za to, že položil tuto otázku, a chtěl bych vám poděkovat, že jste se zastavili. Uvidíme se příště na dalším netcastu z.
Stáhnout soubor
Stáhněte si ukázkový soubor zde: Podcast2107.xlsm
