Anda mempunyai buku kerja dengan banyak lembaran kerja. Anda mahu menghantar setiap lembaran kerja kepada orang yang berbeza. Hari ini, makro untuk memisahkan data tersebut.
Tonton Video
- Joe + Yang lain sedang mencari cara untuk menyimpan setiap lembaran kerja ke fail yang berbeza
- Berguna untuk Kueri Kuasa atau setelah menggunakan Paparkan Halaman Penapis Laporan
Transkrip Video
Belajar Excel dari Podcast, Episode 2107 - Bahagikan setiap lembaran kerja ke Buku Kerja baru
Hai selamat datang kembali. Saya dan netcast. Saya Bill Jelen.
Saya tahu di bahagian belakang kepala bahawa saya perlu melakukan ini sejak lama, tetapi dua podcast baru-baru ini benar-benar membawanya, membawanya pulang.
Baru-baru ini dalam episod 2106, di mana kami membuat PDF dari All Slicer Combinations. Lewat episod itu, saya menunjukkan kaedah alternatif di mana kami membuat banyak laporan pangsi, tetapi semuanya meletakkannya di Buku Kerja yang sama dan saya mendapat e-mel dari Joe di California mengatakan dengan baik, lihat saya perlu menghantar setiap Lembaran Kerja kepada pelanggan yang berbeza, dan perkara yang sama, dalam Seminar Power Excel live saya di mana saya menunjukkan muslihat itu, orang berkata, tidak, kita tidak mahu semuanya dalam Buku Kerja yang sama, kita menginginkannya secara berasingan dan kemudian mungkin lebih penting daripada itu, kembali episod 2077, di mana saya bercakap tentang bagaimana Power Query kini mempunyai kemampuan untuk menggabungkan semua fail Excel dalam folder, bukan? Dan ini sangat ajaib. Ia berfungsi dengan baik. Sekiranya anda mempunyai 400 fail Excel, masing-masing dengan satu Lembaran Kerja, ia akan mengambil semua data dari semua Lembaran Kerja tersebut dan memasukkannya ke dalam satu grid.Yang mengagumkan, tetapi jika kita mempunyai masalah yang hampir sama. Satu Buku Kerja dengan 400 Lembaran Kerja? Tidak boleh melakukannya, betul. Ia belum dapat menangani perkara itu - belum. Betul, jadi sekarang, 1 Julai 2017, ia tidak dapat menanganinya. Mungkin dalam enam bulan ia dapat mengatasi perkara itu, tetapi sekarang, ia mesti menjadi Lembaran Kerja Lembaran tunggal.
Oleh itu, kita memerlukan kaedah untuk dapat memecah-belahkan perkara ke dalam fail individu. Baiklah, jadi mari kita siapkan ini. Kami mempunyai Buku Kerja yang saya buat pada tahun 2106 di mana kami mempunyai data dan kemudian Jadual Pivot yang asal dan kami masuk ke dalam Analisis, Pilihan, Tunjukkan Halaman Penapis Laporan dan tunjukkan halaman kunci, dan ia menghasilkan banyak Lembaran Kerja yang berbeza untuk saya dan Saya ingin mengambil Lembaran Kerja tersebut dan membuatnya masing-masing adalah fail yang berasingan, tetapi walaupun kami memilikinya, ada beberapa perkara seperti Helaian2 dan Data yang saya tidak mahu berpisah.
Baiklah? Dan tentu saja untuk setiap orang, barang-barang itu, senarai Lembaran Kerja, yang tidak mahu kita bahagikan, akan menjadi berbeza, tetapi saya akan meneka bahawa hampir setiap orang mempunyai beberapa Lembaran Kerja yang tidak mereka buat ' saya mahu berpecah.
Baiklah, jadi inilah utiliti yang akan dapat anda muat turun. Pemisah Lembaran Kerja dan di sini saya mempunyai bahagian di lajur B dan sebenarnya satu-satunya perkara di lajur B di mana anda boleh menyenaraikan Lembaran Kerja yang anda tidak mahu berpisah. Ia boleh lebih daripada dua. Anda boleh mengisi seberapa banyak yang anda mahukan di sini. Anda boleh memasukkan baris baru dan cara saya yang murah, saya tidak mahu melengkapkannya dalam Makro, jauh di luar pandangan anda di sini, saya mempunyai tempat di mana Makro dapat menulis nama Lembaran Kerja semasa dan kemudian VLOOKUP kecil sederhana. Dikatakan, cari Lembaran Kerja ini yang sedang kami jalankan sekarang, lihat apakah sudah ada di lajur B dan dan jika ada, kami akan tahu bahawa itu adalah satu yang kami tidak mahu eksport.
Baiklah dan sekali lagi hanya untuk menjadikannya sel generik mungkin, saya mempunyai beberapa julat bernama di sini, Laluan saya, Awalan saya, Akhiran saya, Jenis dan Tampal saya. Baiklah, jadi anda tahu ke mana anda mahu barang ini pergi. c: Laporan . Saya mahu setiap fail mempunyai nama helaian, tetapi sebelum nama helaian, saya akan meletakkan awalan WB, Akhiran Fail dan tidak ada apa-apa dan kemudian anda mempunyai pilihan di sini: PDF atau XLSX.
Oleh itu, kita akan memulakan dengan XLSX, kita akan membincangkan nilai tampal ini sebelum disimpan kemudian. Baiklah dan sekarang ini adalah versi 1 Julai 2017, yang pertama. Sekiranya kami memperbaikinya, saya akan menggantinya di halaman web dan anda boleh menemui halaman web di sana dalam keterangan YouTube. Baiklah, inilah cara ia berfungsi. Ini fail XLSM. Oleh itu, anda harus memastikan bahawa Makro dibenarkan. alt = "" T, M, S, untuk keselamatan anda harus sekurang-kurangnya berada di tahap ini atau di bawah. Sekiranya anda berada di kedudukan teratas, anda perlu mengubahnya, menutup Buku Kerja, buka semula. Apabila anda membuka Buku Kerja, katanya, adakah anda bersedia menerima Makro di sini dan sama sekali bukan Makro besar: enam puluh lapan baris kod dan banyak yang hanya berkaitan dengan mendapatkan nilai dari Menu Helaian,apakah pemboleh ubahnya sekarang.
Yang penting di sini adalah bahawa ia akan berfungsi pada ActiveWorkbook. Oleh itu, anda akan beralih ke Buku Kerja yang mempunyai data dan kemudian tekan CTRL SHIFT S untuk menjalankannya dan ia akan mengesan buku ActiveWork dan itulah yang akan dibahagikannya. Ia menarik ("MyPath") dan itu hanya kerana saya selalu lupa untuk meletakkan garis miring terbalik itu, jika watak terakhir bukan garis miring terbalik, maka saya akan menambahkan garis miring terbalik dan kemudian di sini inilah karya sebenarnya.
Untuk setiap Lembaran Kerja, dalam yang asli, dalam WBO yang aktif. Lembaran kerja, kami akan menguji untuk melihat apakah ia ada di sana dan lajur B. Sekiranya, jika tidak, maka kami akan Mengeksport helaian ini dan suka baris kod ini. WS.copy mengatakan, semasa saya mengambil Buku Kerja ini, Lembaran Kerja ini, dari Buku Kerja besar ini dengan, anda tahu 20 atau 400 Lembaran Kerja dan kami akan pergi ke WS.copy, yang membuat salinannya dan memindahkannya ke Buku Kerja kerja baru dan kita tahu, kita tahu bahawa Buku Kerja baru sekarang akan menjadi Buku Kerja aktif di Makro dan tentu saja hanya ada satu helaian di Buku Kerja itu dan lembaran itu adalah lembaran aktif.
So right, here I can figure out the name of the Workbook. Set it, Apply to This Object Variable, Workbook New, Worksheet New and then later on, when I have to close, I can do WBN.close after I've done the work. We figure out the new file name using all of the variables. Kill that file, if it already exists and then, if it's an Excel file, we do a save as, if it's a PDF.
And by the way this PDF code only works in Windows, if you're on a Mac, sorry, you're going to have to go somewhere else to figure out the equivalent Mac code. I don't have a Mac. I know there's a way to save a PDF on a Mac. I know the code is different. You'll have to figure that one out or come back to the real Excel in Windows and then we're done, we close.
Alright, so it's just a simple little Macro like that, switch over to our data Workbook here, the one that has all the Worksheets. There's 20 different Worksheets here, plus the two I don't want to do and then CTRL SHIFT S like this and we'll watch it flash as it creates each one. There we are: 21 files created.
Let's go take a look in Windows Explorer and here's my OS (C:) Reports, it created for each Worksheet, named in the original Workbook it created a new version with WB up front. Alright now, Joe, when Joe sent me this note, he said he's going to send this data to customers and I kind of panicked at first because I said, wait a second Joe, we're going to have a problem because you're going to send Gary, his data, right? But this is, ah, you know a live, a live data set, it's a live Pivot Table. All of the stuff in here, you might be able to get all the information for other customers like that, right? Boy, you don't want to send a customer A the information for all of the other customers. That could be a hassle and actually, when I reread the shows note, he was smarter than me, because he said: I want to create them as PDF files. I was like, alright, well then yeah, we don't have to worry about as PDF files, that's fine, but what I added in here, to the Macro was the ability to say Paste Values Before Saving? TRUE.
So you set that equal to TRUE and that's going to invoke this tiny bit of code here, where we say, If PasteV Then the UsedRange.Copy and then UsedRange.PasteSpecial (xlPasteValues), UsedRange, rather than copying and pasting all 17 billion cells, it'll limit it down to well, the UsedRange.
Alright, so let's switch back, switch those Worksheet that has the data, CTRL SHIFT S for split and then this new version in the reports directory, you'll see that it has gotten rid of the Pivot Table and left just the data there. So that way they can't get to all data.
Alright, we'll try the other feature. We'll try if we switch from Excel to PDF change the prefix to PDFFileOf, whatever we want there. I won't even try the suffix, something. Alright and then switch to the data, CTRL SHIFT S. Alrighty, so we get the same files PDFFileOf the Worksheet name, something of PDF and we should have just nice little PDFs in there, like that.
Alright so there you have it the.com Worksheet Splitter. Hopefully generic enough, for whatever you need. Download it again from the link there in the YouTube comments. To learn more about VBA, check out this book Excel 2016 VBA and Macros by myself and Tracy ?08:50.640. Click that I on the top right hand corner, to read more about the book.
Joe, dari California, dan banyak orang lain meminta cara untuk menyimpan setiap Lembaran Kerja ke fail yang lain, baik sebagai PDF dalam kes Joe atau fail Excel sekiranya anda akan menggunakan Power Query untuk menggabungkan fail. Oleh itu, saya mencipta Utiliti Freeware Generik kecil yang bagus di luar sana. Anda boleh memuat turun dan mencuba.
Saya ingin mengucapkan terima kasih kepada Joe kerana menetapkan soalan itu dan ingin mengucapkan terima kasih kerana berhenti. Kami akan berjumpa anda di lain kali untuk siaran net lain dari.
Muat turun fail
Muat turun fail contoh di sini: Podcast2107.xlsm
