Van egy munkafüzete, amelyben sok munkalap található. Minden munkalapot más személynek szeretne elküldeni. Ma egy makró az adatok felosztására.
Videót nézni
- A Joe + Mások azt keresi, hogyan mentse el az egyes munkalapokat egy másik fájlba
- Hasznos Power Query esetén vagy a Jelentésszűrő oldalak megjelenítése használata után
Videó átirat
Ismerje meg az Excel programot a Podcast 2107-es epizódjából - Az egyes munkalapokat ossza fel új munkafüzetekre
Üdvözlöm. Én vagyok és netcast. Bill Jelen vagyok.
A fejem mögött tudtam, hogy ezt már régóta meg kell tennem, de két legutóbbi podcast valóban hozta, hazahozta.
Nemrégiben a 2106. részben, ahol az összes szeletelő kombinációból készítettünk egy PDF-et. Az epizód végén megmutattam egy alternatív módszert, ahol sok pivot jelentést készítünk, de mind ugyanazon a munkafüzeten van, és kaptam egy e-mailt Kaliforniából, Joe-tól. Ugyanaz, az élő Power Excel szemináriumaimban, ahol megmutatom ezt a trükköt, az emberek azt mondják, nos, nem, nem akarjuk mindazt ugyanabban a munkafüzetben, külön akarjuk, és akkor valószínűleg még ennél is fontosabb, 2077. epizód, ahol arról beszéltem, hogy a Power Query képes mostantól az összes Excel fájlt egyesíteni egy mappában, igaz? És ez csodálatos. Remekül működik. Ha 400 Excel fájlja volt, mindegyiknek egyetlen munkalapja volt, akkor az összes munkalap összes adatát megkapja, és egy rácsba fogja tenni.Ami fantasztikus, de ha majdnem ugyanaz a problémánk lenne. Egy munkafüzet 400 munkalappal? Nem tudja megtenni, ugye. Ezzel még nem tud megbirkózni. Helyes, így most, 2017. július 1-jén, nem tud ezzel foglalkozni. Talán hat hónap múlva képes kezelni ezt, de most egylapos munkafüzeteknek kell lenniük.
Tehát szükségünk van egy módra, hogy képesek legyünk bontani az egyes fájlokat. Oké, hát állítsuk csak ezt be. Megvan a Munkafüzet, amelyet 2106-ban készítettem, ahol megvan az adat, majd az eredeti kimutatási tábla, és belemegyünk az Elemzés, az Opciók, a Jelentésszűrő oldalak megjelenítése és a kulcs oldalainak megjelenítése elemre, és ez egy csomó különböző munkalapot hoz létre nekem Szeretném ezeket a munkalapokat létrehozni, és mindegyiket külön fájlként létrehozni, de annak ellenére, hogy ez megvan, vannak olyan dolgok, mint a Sheet2 és az Data, amelyeket nem akarok megosztani.
Rendben? És természetesen minden egyes ember számára az a dolog, az a Munkalapok listája, amelyet nem akarunk szétválasztani, más és más lesz, de azt hiszem, hogy szinte mindenkinek vannak olyan munkalapjai, amelyeket nem használ. nem akarok szétválni.
Rendben, szóval itt van a segédprogram, amelyet le tudsz tölteni. A munkalap-osztó és itt van egy szakaszom a B oszlopban, és valójában ez az egyetlen dolog a B oszlopban, ahol felsorolhatja azokat a munkalapokat, amelyeket nem szeretne felosztani. Kettőnél több lehet. Itt annyit tölthet ki, amennyit csak akar. Új sorokat és olcsó módjaimat illesztheti be, nem akartam, hogy ezeket a Makróban kelljen végiggurítanom, eddig a nézeten kívül, itt van egy helyem, ahová a Makró beírhatja az aktuális munkalap nevét, majd egy egyszerű kis VLOOKUP. Azt írja: keresse meg ezt a munkalapot, amelyen éppen dolgozunk, nézze meg, hogy vége van-e a B oszlopban, és ha mégis, akkor tudni fogjuk, hogy ezt nem akarjuk exportálni.
Rendben, majd megint csak azért, hogy ez a lehető legáltalánosabb legyen, van itt több megnevezett tartomány, az Útvonalam, az Előtagom, Az Utótagom, A Típusom és a Beillesztésem. Rendben, szóval kitalálod, hová akarsz eljutni. c: Jelentések . Azt akarom, hogy minden fájlnak legyen lapneve, de a lapnév elé beteszem a WB, File Suffix és semmi előtagot, majd itt választhat: PDF vagy XLSX.
Tehát az XLSX-el kezdjük, a későbbi mentés előtt beszélünk ezekről a beillesztési értékekről. Rendben, és most ez az első 2017. július 1-jei verzió. Ha javítunk ezen, akkor egyszerűen kicserélem a weboldalon, és ott megtalálhatja a weboldalt a YouTube leírásokban. Rendben, így fog ez működni. Ez egy XLSM fájl. Tehát meg kell győződnie arról, hogy a makrók engedélyezettek. alt = "" T, M, S, a biztonság érdekében legalább ezen a szinten vagy alatta kell lennie. Ha az első helyen állsz, akkor változtatnod kell, bezárja a Munkafüzetet, és újra megnyitja. Amikor kinyitja a Munkafüzetet, azt fogja mondani, hogy hé, hajlandó elfogadni a makrókat itt, és ez egyáltalán nem egy nagy makró: hatvannyolc sornyi kód, és sok minden csak azzal foglalkozik, hogy az értékeket eltávolítsuk a menüből Lap,melyek most a változók.
Itt azonban az a fontos, hogy az ActiveWorkbookon működni fog. Tehát áttér arra a munkafüzetre, amely rendelkezik az adatokkal, majd a CTRL SHIFT S megnyomásával futtathatja azokat, és felismeri az ActiveWorkbookot, és ez lesz az, amelyet szétválaszt. Fogja („MyPath”), és csak azért, mert mindig elfelejtem feltenni ezt a visszavágót, ha az utolsó karakter nem visszavágó, akkor hozzáadok egy visszavágót, majd itt lefelé ez a tényleges munka.
Minden egyes munkalapra, az eredeti, az aktív WBO műhelyekben teszteljük, hogy vajon ez van-e ott, és a B oszlop. Ha igen, akkor exportáljuk ezt a lapot, és én szeresse ezt a kódsort. A WS.copy azt mondja, hogy amikor elveszem ezt a munkafüzetet, ezt a munkalapot ebből a nagy munkafüzetből, akkor tudsz 20 vagy 400 munkalapot, és elmegyünk a WS.copy oldalra, amely másolatot készít belőle és áthelyezi egy új munkafüzetbe és tudjuk, tudjuk, hogy ez az új munkafüzet most a Makró aktív munkafüzetévé válik, és természetesen csak egy lap van abban a munkafüzetben, és ez a lap az aktív lap.
Szóval igaz, itt kitalálhatom a Munkafüzet nevét. Állítsa be, Alkalmazza erre az objektumváltozóra, Új munkafüzet, Új munkalap, majd később, amikor bezárnom kell, a munka elvégzése után megtehetem a WBN.close fájlt. Az összes változó felhasználásával kitaláljuk az új fájlnevet. Ölje meg a fájlt, ha már létezik, majd ha Excel fájl, akkor mentést készítünk, mintha PDF lenne.
És mellesleg ez a PDF-kód csak Windows rendszerben működik, ha Mac-et használ, sajnálja, máshová kell menned, hogy kitaláld az egyenértékű Mac-kódot. Nincs Mac-em. Tudom, hogy van mód arra, hogy mentse a PDF fájlt Mac-re. Tudom, hogy a kód más. Ezt ki kell találnia, vagy vissza kell térnie a Windows igazi Exceljéhez, és akkor készen vagyunk, bezárunk.
Rendben, szóval csak egy ilyen egyszerű kis makróról van szó, váltson át itt az adatmunkakönyvünkre, amelyre az összes munkalap tartozik. Itt 20 különböző munkalap található, plusz a kettő, amit nem akarok csinálni, majd a CTRL SHIFT S, mint ez, és meg fogjuk nézni, ahogy villog, amikor mindegyiket létrehozza. Itt vagyunk: 21 fájl létrehozva.
Nézzünk egy pillantást a Windows Intézőbe, és itt van az operációs rendszerem (C :) jelentéseim, amelyeket minden munkalapra létrehozott, az eredeti munkafüzetben megnevezve egy új verziót hozott létre WB-vel elöl. Rendben, Joe, amikor Joe elküldte nekem ezt a feljegyzést, azt mondta, hogy ezeket az adatokat elküldi az ügyfeleknek, és én először pánikba estem, mert azt mondtam, várj egy kicsit Joe, problémánk lesz, mert te vagy el fogja küldeni Gary-t, az ő adatait, igaz? De ez, ah, tudsz egy élő, egy élő adatsort, ez egy élő kimutató tábla. Az itt található összes anyag, lehet, hogy megszerez minden információt más ilyen ügyfelek számára, igaz? Fiú, nem akarod az A vevőnek elküldeni az összes többi ügyfélről szóló információkat. Ez gondot jelenthet, és valójában, amikor újraolvastam a műsorfüzetet, okosabb volt nálam, mert azt mondta:PDF fájlként szeretném létrehozni őket. Úgy voltam vele, rendben, akkor igen, igen, nem kell PDF fájlként aggódnunk, ez rendben van, de amit itt hozzáfűztem a Makróhoz, az az volt, hogy elmondhatom az Értékek beillesztése a mentés előtt? IGAZ.
Tehát azt állítja, hogy egyenlő az IGAZ értékkel, és ez itt meghívja ezt az apró kódot, ahol azt mondjuk, hogy Ha PasteV, akkor a UsedRange.Copy, majd a UsedRange.PasteSpecial (xlPasteValues), UsedRange, nem pedig mind a 17 milliárd cella másolása és beillesztése. , jól korlátozza, a UsedRange-et.
Rendben, váltsunk hátra, váltsunk át azokra a munkalapokra, amelyek tartalmazzák az adatokat, a CTRL SHIFT S-t az osztáshoz, majd ezt az új verziót a jelentések könyvtárában, látni fogja, hogy megszabadult a kimutató táblától, és csak az adatokat hagyta ott. Így így nem tudnak minden adathoz hozzáférni.
Rendben, megpróbáljuk a másik funkciót. Megpróbáljuk, ha Excelről PDF-re váltunk, az előtagot PDFFileOf-re változtatjuk, bármit is akarunk ott. Meg sem próbálom az utótagot, valamit. Rendben, majd váltson át az adatokra, a CTRL SHIFT S. Rendben, így ugyanazokat a fájlokat kapjuk a PDFFileOf the Worksheet névből, valami PDF-t, és csak szép kis PDF-eket kellene tartalmaznunk.
Rendben, így megvan a.com munkalap-osztó. Remélhetőleg elég általános, bármire szükséged van. Töltse le újra a YouTube megjegyzésében található linkről. Ha többet szeretne megtudni a VBA-ról, olvassa el ezt a könyvet: Excel 2016 VBA and Macros by my and Tracy? 08: 50.640. Kattintson a jobb felső sarokban található I gombra, ha többet szeretne megtudni a könyvről.
Joe, Kaliforniából, és sokan mások azt kérték, hogyan mentse el az egyes munkalapokat egy másik fájlba, akár PDF fájlként Joe esetében, akár Excel fájlként, arra az esetre, ha a Power Query-t használja fájlok egyesítésére. Így létrehoztam egy szép kis Generic Freeware Utility-t odakinn. Letöltheti és adhat egy képet.
Szeretnék köszönetet mondani Joe-nak, hogy feltette ezt a kérdést, és szeretném megköszönni, hogy betért. Legközelebb találkozunk egy újabb netcast-lal.
Fájl letöltése
Töltse le a minta fájlt innen: Podcast2107.xlsm
