Jums ir darbgrāmata ar daudzām darblapām. Katru darblapu vēlaties nosūtīt citai personai. Šodien makro, lai sadalītu šos datus.
Skatīties video
- Džo + citi meklē veidu, kā katru darblapu saglabāt citā failā
- Noderīgi Power Query vai pēc Show Report Filter Pages izmantošanas
Video atšifrējums
Apgūstiet programmu Excel no Podcast, 2107. sērija - sadaliet katru darblapu jaunā darbgrāmatā
Sveiki, laipni gaidīti. Es esmu un netcast. Es esmu Bils Jelens.
Pakausī es zināju, ka man tas bija jādara jau ilgu laiku, bet divi nesenie podkasti to tiešām atnesa, atveda mājās.
Nesen 2106. sērijā mēs izveidojām PDF failu no visām sagriezēju kombinācijām. Šīs epizodes beigās es parādīju alternatīvu metodi, kurā mēs izveidojam daudz rakursu atskaites, bet tā tos visus ievieto vienā darbgrāmatā, un es saņēmu e-pastu no Džo Kalifornijā. tas pats, manos tiešraides Power Excel semināros, kur es parādīju šo triku, cilvēki saka: labi, nē, mēs negribam to visu vienā darbgrāmatā, mēs to vēlamies atsevišķi un pēc tam, iespējams, vēl svarīgāk par to, ir atgriezies 2077. sērija, kurā es runāju par to, kā Power Query tagad spēj apvienot visus mapē esošos Excel failus, vai ne? Un tas ir brīnumaini. Tas darbojas lieliski. Ja jums bija 400 Excel faili, katrs ar vienu darblapu, tas satvers visus šos datus no visām šīm darblapām un ievietos tos vienā režģī.Kas ir lieliski, bet, ja mums būtu gandrīz tāda pati problēma. Viena darbgrāmata ar 400 darblapām? Tas to nevar izdarīt, labi. Ar to vēl nevar tikt galā. Pareizi, tāpēc šobrīd, 2017. gada 1. jūlijā, ar to nevar tikt galā. Varbūt sešu mēnešu laikā tas var tikt galā ar to, taču šobrīd tām jābūt vienas lapas darbgrāmatām.
Tāpēc mums ir nepieciešams veids, kā spēt sadalīt lietas atsevišķos failos. Labi, tāpēc pieņemsim to vienkārši iestatīt. Mums ir darbgrāmata, ko es izveidoju 2106. gadā, kur mums ir dati un pēc tam sākotnējā rakurstabula, un mēs ejam uz sadaļu Analizēt, Opcijas, Rādīt atskaites filtru lapas un parādīt atslēgas lapas, un tā man izveido veselu virkni dažādu darblapu un Es gribu ņemt šīs darblapas un izveidot katru no tām atsevišķu failu, taču, kaut arī mums tas ir, ir daži sīkumi, piemēram, Sheet2 un Data, kurus es nevēlos sadalīt.
Labi? Un, protams, katram cilvēkam tas, tas, tas darblapu saraksts, ko mēs nevēlamies sadalīt, būs atšķirīgs, bet es domāju, ka gandrīz ikvienam ir dažas darblapas, kuras viņi nedomā. negribu šķelties.
Labi, tāpēc šeit ir utilīta, kuru varēsiet lejupielādēt. Darblapu sadalītājs un vairāk šeit man ir sadaļa B slejā, un tā patiešām ir vienīgā lieta B slejā, kur jūs varat uzskaitīt tās darblapas, kuras nevēlaties sadalīt. Tas var būt vairāk nekā divi. Šeit jūs varat aizpildīt tik daudz, cik vēlaties. Jūs varat ievietot jaunas rindas un manu lēto veidu. Es negribēju, lai man būtu jāpāriet pa šīm makro, tik tālu ārpus jūsu skata šeit, man ir vieta, kur makro var uzrakstīt pašreizējo darblapas nosaukumu un pēc tam vienkāršs mazais VLOOKUP. Tajā teikts: ejiet meklēt šo darblapu, ar kuru mēs pašlaik strādājam, pārbaudiet, vai tā ir pabeigta B slejā un, ja tā ir, mēs zināsim, ka tā ir tā, kuru mēs nevēlamies eksportēt.
Labi, un tad atkal, lai tas būtu pēc iespējas vispārīgāks, man šeit ir vairāki nosaukti diapazoni, mans ceļš, mans prefikss, mans sufikss, mans tips un mana ielīmēšana. Labi, tāpēc jūs izdomājat, kur vēlaties nokļūt šajā saturā. c: Ziņojumi . Es vēlos, lai katram failam būtu lapas nosaukums, bet pirms lapas nosaukuma es ievietošu prefiksu WB, File Suffix un nekas, un tad jums šeit būs izvēle: PDF vai XLSX.
Tātad, mēs sāksim darbu ar XLSX, pirms saglabāšanas mēs parunāsim par šīm ielīmēšanas vērtībām. Labi, un šobrīd šī ir 2017. gada 1. jūlija versija. Ja mēs to uzlabosim, es to vienkārši nomainīšu tīmekļa lapā, un jūs to varat atrast YouTube aprakstos. Labi, tāpēc lūk, kā tas darbosies. Tas ir XLSM fails. Tāpēc jums jāpārliecinās, vai makro ir atļauts. alt = "" T, M, S, drošībai jums jābūt vismaz šajā līmenī vai zemāk. Ja esat pirmajā vietā, jums tas ir jāmaina, tā aizver darbgrāmatu, atkal atver. Atverot darbgrāmatu, tiks teikts: hey, vai jūs esat gatavs pieņemt makro šeit, un tas nemaz nav liels makro: sešdesmit astoņas koda rindiņas un daudz kas attiecas tikai uz vērtību izslēgšanu no izvēlnes Lapa,kādi ir mainīgie tagad.
Tomēr šeit ir svarīgi, ka tas darbosies pie ActiveWorkbook. Tātad jūs pāriet uz darbgrāmatu, kurā ir dati, un pēc tam nospiediet taustiņu kombināciju CTRL SHIFT S, lai to palaistu, un tā noteiks ActiveWorkbook, un tā būs tā, kuru tā sadalīs. Tas satver (“MyPath”), un tas ir tikai tāpēc, ka es vienmēr aizmirstu ielikt šo slīpsvītru, ja pēdējais varonis nav slīpsvītra, tad es pievienošu slīpsvītru, un tad šeit ir šis faktiskais darbs.
Katrai darblapai, oriģinālā, aktīvajā WBO. Darba lapās mēs pārbaudīsim, vai tā ir kāda, kas atrodas tur un B slejā. Ja tā ir, ja tā nav, mēs eksportēsim šo lapu un es mīlu šo koda rindiņu. WS.copy saka: kad es paņemu šo darbgrāmatu, šo darblapu no šīs lielās darbgrāmatas, jūs zināt 20 vai 400 darblapas, un mēs ejam uz WS.copy, kas izveido tās kopiju un pārvieto to uz jaunu darbgrāmatu un mēs zinām, mēs zinām, ka šī jaunā darbgrāmata tagad kļūs par aktīvo darbgrāmatu makro, un, protams, šajā darbgrāmatā ir tikai viena lapa, un šī lapa ir aktīvā lapa.
Tātad pareizi, šeit es varu uzzināt Darbgrāmatas nosaukumu. Iestatiet to, Lietot šim objekta mainīgajam, Jauna darbgrāmata, Jauna darblapa un pēc tam vēlāk, kad būs jāaizver, es varu paveikt WBN.close pēc darba pabeigšanas. Mēs izdomājam jauno faila nosaukumu, izmantojot visus mainīgos. Nogaliniet šo failu, ja tas jau pastāv, un tad, ja tas ir Excel fails, mēs saglabājam kā, ja tas ir PDF.
Un, starp citu, šis PDF kods darbojas tikai sistēmā Windows, ja jūs izmantojat Mac datoru, atvainojiet, jums būs jādodas kaut kur citur, lai noskaidrotu līdzvērtīgo Mac kodu. Man nav Mac. Es zinu, ka ir veids, kā saglabāt PDF failu Mac datorā. Es zinu, ka kods ir atšķirīgs. Jums būs jāizdomā viens vai jāatgriežas reālajā programmā Windows, un tad mēs esam pabeiguši, mēs aizveramies.
Labi, tāpēc tas ir tikai vienkāršs mazais makro, piemēram, pārejiet uz mūsu datu darbgrāmatu šeit, kurā ir visas darblapas. Šeit ir 20 dažādas darblapas, kā arī divas, kuras es nevēlos darīt, un pēc tam CTRL SHIFT S patīk šis, un mēs skatīsimies, kā tas mirgo, kad tas katru izveido. Tur mēs esam: izveidots 21 fails.
Apskatīsim Windows Explorer, un šeit ir manas OS (C :) atskaites, kuras tā izveidoja katrai darblapai, sākotnējā darbgrāmatā nosaukta tā izveidoja jaunu versiju ar WB priekšā. Labi, Džo, kad Džo man nosūtīja šo piezīmi, viņš teica, ka viņš sūtīs šos datus klientiem, un es sākumā kaut kā panikā, jo es teicu, pagaidiet sekundi Džo, mums būs problēma, jo jūs esat gatavojas nosūtīt Geriju, viņa datus, vai ne? Bet tas ir, ah, jūs zināt tiešraidi, aktīvu datu kopu, tā ir tiešā rakurstabula. Visu šeit pieejamo saturu, iespējams, varēsiet iegūt visu informāciju citiem līdzīgiem klientiem, vai ne? Zēns, jūs nevēlaties nosūtīt klientam A informāciju par visiem citiem klientiem. Tas varētu būt apgrūtinājums, un patiesībā, kad es pārlasīju izrādes piezīmi, viņš bija gudrāks par mani, jo viņš teica:Es vēlos tos izveidot kā PDF failus. Man bija kā, labi, labi, tad jā, mums nav jāuztraucas par PDF failiem, tas ir labi, bet tas, ko es šeit pievienoju makro, bija spēja pateikt Paste Values Before Saving? PATIESA.
Tātad jūs iestatījāt vienādu ar TRUE, un tas šeit izsauks šo mazo koda daļu, kur mēs sakām: If PasteV Tad UsedRange.Copy un pēc tam UsedRange.PasteSpecial (xlPasteValues), UsedRange, nevis kopējot un ielīmējot visas 17 miljardus šūnu , tas to ierobežos līdz lietotajam diapazonam.
Labi, tāpēc pārslēdzamies atpakaļ, pārslēdzam to darblapu, kurā ir dati, CTRL SHIFT S sadalīšanai un pēc tam šo jauno versiju pārskatu direktorijā, jūs redzēsiet, ka tā ir atbrīvojusies no rakurstabulas un atstājusi tikai datus. Tātad tādā veidā viņi nevar piekļūt visiem datiem.
Labi, mēs izmēģināsim citu funkciju. Mēs mēģināsim, ja pārslēgsimies no Excel uz PDF, mainīsim prefiksu uz PDFFileOf, neatkarīgi no tā, ko mēs tur vēlamies. Es pat nemēģināšu piedēkli, kaut ko. Labi un pēc tam pārejiet uz datiem, CTRL SHIFT S. Alrighty, tāpēc mēs iegūstam vienus un tos pašus failus PDFFileOf no darblapas nosaukuma, kaut kas no PDF, un mums tur vajadzētu būt tikai jaukiem maziem PDF failiem.
Labi, tāpēc jums tas ir ..com darblapas sadalītājs. Cerams, ka pietiekami vispārīgs visam, kas jums nepieciešams. Lejupielādējiet to vēlreiz no saites YouTube komentāros. Lai uzzinātu vairāk par VBA, skatiet šo grāmatu Excel 2016 VBA and Macros by ise un Tracy? 08: 50.640. Noklikšķiniet uz I augšējā labajā stūrī, lai uzzinātu vairāk par grāmatu.
Džo no Kalifornijas, kā arī daudzi citi ir lūguši veidu, kā katru darblapu saglabāt citā failā, vai nu kā PDF Džo gadījumā, vai kā Excel failu, ja failu apvienošanai izmantojat Power Query. Tāpēc es izveidoju jauku mazu Generic Freeware Utility. Jūs varat lejupielādēt un dot tam kadru.
Es gribu pateikties Džo par šī jautājuma uzdošanu un paldies par apstāšanos. Tiksimies nākamreiz, lai skatītu citu netcast raidījumu no.
Lejupielādēt failu
Lejupielādējiet faila paraugu šeit: Podcast2107.xlsm
