Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk mengeksport dan menyimpan setiap lembaran kerja sebagai buku kerja yang berasingan dalam Excel?

Katakan anda ingin mengeksport dan menyimpan satu atau beberapa lembar kerja sebagai buku kerja baru, bagaimana anda akan berurusan dengannya? Biasanya anda boleh menyalin setiap lembaran kerja dan tampal ke buku kerja baru. Tetapi di sini kami membawa anda beberapa helah berguna untuk menangani:

Eksport dan simpan lembaran kerja sebagai buku kerja baru dengan arahan Pindah atau Salin

Eksport dan simpan lembaran kerja sebagai buku kerja baru dengan kod VBA

Eksport dan simpan lembaran kerja sebagai buku kerja baru dengan Kutools untuk Excel idea yang baik3


Segerakkan pelbagai lembaran kerja ke dalam buku kerja berasingan dalam Excel

Dalam Microsoft Excel, anda boleh menyimpan atau membahagi lembaran kerja dari satu buku kerja sebagai fail Excel baru dengan menyalin dan menampal lembaran kerja ini ke dalam buku kerja baru. Nampaknya menyusahkan, jika anda mahu memecahkan setiap helaian / lembaran kerja buku kerja yang besar sebagai Excel, txt, csv, fail pdf yang berasingan. Tetapi dengan Kutools untuk Excel'S Buku Kerja Split utiliti, anda boleh dengan cepat berurusan dengannya. Klik untuk percubaan percuma 60 hari dengan ciri penuh!
buku kerja berpecah doc 1
Kutools untuk Excel: dengan lebih daripada 300 berguna Excel tambahan, bebas untuk mencuba tanpa had pada hari 60.

anak panah gelembung kanan biru Eksport dan simpan lembaran kerja sebagai buku kerja baru dengan arahan Pindah atau Salin


Menggunakan Pindah atau Salin arahan akan membantu anda mengeksport atau menyalin satu atau beberapa lembaran kerja ke buku kerja baru dengan cepat.

Langkah 1: Pilih nama lembaran kerja dalam bar tab. Anda boleh memilih berganda dengan menahan Ctrl kunci atau peralihan utama.

Langkah 2: Klik kanan nama lembaran kerja, dan klik Pindah atau Salin dari menu konteks.
lembaran eksport doc 1

Langkah 3: Di Pindah atau Salin kotak dialog, pilih (buku baru) item dari senarai drop down Pindahkan helaian terpilih untuk menempah.

lembaran eksport doc 2

Langkah 4: Kemudian klik OK, sekarang anda telah bertukar kepada buku kerja baru dengan lembaran kerja yang dieksport atau disalin, klik File > Simpan untuk menyelamatkan buku kerja baru.

Catatan: Dalam Pindah atau Salin kotak dialog, terdapat a Buat salinan pilihan. Jika anda tidak menyemaknya, ia akan mengalihkan lembaran kerja yang dipilih daripada buku kerja asal; jika periksa, ia akan menyalin lembaran kerja yang dipilih.


anak panah gelembung kanan biru Eksport dan simpan lembaran kerja sebagai buku kerja baru dengan kod VBA

Kod berikut ini akan mengeksport setiap lembaran kerja yang kelihatan dalam buku kerja baru dan menyimpan buku kerja dengan nama lembaran asal dalam folder yang baru dibuat dalam laluan yang sama dengan buku kerja yang aktif. Sila buat langkah berikut:

Langkah 1: Tahan ALT + F11 kunci, dan ia membuka Microsoft Visual Basic untuk Aplikasi tingkap.

Langkah 2: Klik Memasukkan > Modul, dan tampal makro berikut dalam Tetingkap Modul:

VBA: Eksport dan simpan lembaran kerja sebagai buku kerja baru dalam folder baru.

Sub SplitWorkbook()
'Updateby20140612
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook
DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString
MkDir FolderName
For Each xWs In xWb.Worksheets
    xWs.Copy
    If Val(Application.Version) < 12 Then
        FileExtStr = ".xls": FileFormatNum = -4143
    Else
        Select Case xWb.FileFormat
            Case 51:
                FileExtStr = ".xlsx": FileFormatNum = 51
            Case 52:
                If Application.ActiveWorkbook.HasVBProject Then
                    FileExtStr = ".xlsm": FileFormatNum = 52
                Else
                    FileExtStr = ".xlsx": FileFormatNum = 51
                End If
            Case 56:
                FileExtStr = ".xls": FileFormatNum = 56
            Case Else:
                FileExtStr = ".xlsb": FileFormatNum = 50
        End Select
    End If
    xFile = FolderName & "\" & Application.ActiveWorkbook.Sheets(1).Name & FileExtStr
    Application.ActiveWorkbook.SaveAs xFile, FileFormat:=FileFormatNum
    Application.ActiveWorkbook.Close False
Next
MsgBox "You can find the files in " & FolderName
Application.ScreenUpdating = True
End Sub

Langkah 3: Tekan butang F5 kunci untuk menjalankan kod ini. Dan kotak segera akan muncul untuk memberitahu anda lokasi buku kerja baru yang dieksport, dan semua lembaran kerja buku asal telah dieksport ke beberapa buku kerja berasingan yang bernama lembaran asal dalam folder khusus baru. Lihat tangkapan skrin:

lembaran eksport doc 7

anak panah gelembung kanan biru Eksport dan simpan lembaran kerja sebagai buku kerja baru dengan Kutools untuk Excel

Jika anda mempunyai banyak helaian kerja yang diperlukan untuk disimpan sebagai buku kerja yang berasingan, kaedah pertama tidak boleh menjadi pilihan yang baik. Dan kod VBA mungkin agak rumit untuk pemula Excel. Di sini anda boleh menggunakannya Buku Kerja Split utiliti Kutools untuk Excel untuk dengan cepat dan mudah mengeksport dan menyimpan setiap lembaran kerja satu buku kerja untuk memisahkan buku kerja baru.

Kutools untuk Excel, dengan lebih daripada 300 fungsi yang berguna, menjadikan pekerjaan anda lebih mudah.

selepas memasang percuma Kutools untuk Excel, sila lakukan seperti di bawah:

Langkah 1: Klik Kutools Lebih > Buku kerja > Buku Kerja Split .... Lihat tangkapan skrin:
lembaran eksport doc 3

Langkah 2: Di Buku Kerja Split kotak dialog, lakukan seperti di bawah:

lembaran eksport doc 4
1: semua nama lembaran kerja telah diperiksa secara lalai, jika anda tidak mahu memecahkan sebahagian daripada lembaran kerja, anda boleh menyahtanda mereka;


2: Jika anda ingin mengelakkan pemisahan lembaran kerja tersembunyi atau kosong, anda boleh menyemak Langkau lembaran kerja tersembunyi or Langkau kerja kosong.);


3: dan juga anda boleh menyemak Tentukan simpan format, dan untuk memilih pecahan helaian kemudian simpan sebagai fail teks, fail pdf, atau fail csv, dalam defualt, jika anda tidak menyemak pilihan ini, ia akan memecah lembaran dan simpan sebagai buku kerja.

Langkah 3: Kemudian klik Split butang, dan pilih folder yang anda mahu letakkan buku kerja baru. Lihat tangkapan skrin:
lembaran eksport doc 6

Langkah 4: Kemudian klik OK, maka setiap lembaran kerja yang diperiksa di Buku Kerja Split kotak dialog dieksport dan disimpan sebagai buku kerja individu. Setiap buku kerja baru dinamakan dengan nama lembaran kerja asal. Lihat tangkapan skrin:
lembaran eksport doc 5

Klik untuk mengetahui maklumat lanjut mengenai alat Buku Kerja Split ini.

anak panah gelembung kanan biru Eksport dan simpan setiap helaian sebagai buku kerja baru


Segerakkan data ke pelbagai lembaran kerja berdasarkan lajur atau baris tetap dalam Excel

Memandangkan anda mempunyai lembaran kerja yang mempunyai data dalam lajur A hingga G, nama penjual berada dalam lajur A dan anda perlu secara automatik memecahkan data ini ke berbilang lembaran kerja berdasarkan lajur A dalam buku kerja yang sama dan setiap penjual akan dibahagikan kepada yang baru lembaran kerja. Kutools untuk Excel'S Tarikh Split utiliti boleh membantu anda untuk memecah data dengan cepat ke beberapa lembaran kerja berdasarkan lajur yang dipilih sebagai tangkapan di bawah yang ditunjukkan dalam Excel. Klik untuk perbicaraan percuma 60 hari yang lengkap!
data berpecah doc 2
Kutools untuk Excel: dengan lebih daripada 300 berguna Excel tambahan, bebas untuk mencuba tanpa had pada hari 60.

Related articles:



Alat Produktiviti yang Disyorkan

Tab Pejabat

bintang emas1 Bawa tab berguna kepada Excel dan perisian Office lain, seperti Chrome, Firefox dan Internet Explorer baru.

Kutools untuk Excel

bintang emas1Hebat! Tingkatkan produktiviti anda dalam minit 5. Tidak memerlukan kemahiran khas, kecuali dua jam setiap hari!

bintang emas1Ciri-ciri Baru 300 untuk Excel, Buat Excel Banyak Mudah dan Berkuasa:

  • Merge Cell / Rows / Columns tanpa Kehilangan Data.
  • Menggabungkan dan Menyusun Lembaran Berbilang dan Buku Kerja.
  • Bandingkan Ranges, Salin Pelbagai Rang Undang-Undang, Tukar Teks hingga Tarikh, Penukaran Unit dan Mata Wang.
  • Count by Colors, Subtotal Paging, Urutkan Advanced dan Super Filter,
  • More Select / Insert / Delete / Text / Format / Link / Comment / Workbooks / Worksheets Tools ...

Skrin skrin Kutools untuk Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    PK · 1 months ago
    How to convert this macro so that I can save it in my personal workbook and can use to where ever I need it.
    • To post as a guest, your comment is unpublished.
      Sunny · 6 days ago
      Click Developer tab > Record Macro > select Personal Macro Workbook, and give the vba a name.
      Then in Microsoft Visual Basic for Applications window, click VBAProject(PERSONA_XLSB) > Modules > double click Module1, paste the code between Sub() and End Sub, save the code.
      When you want to use the code, click Developer > Macro, choose the code you name.
  • To post as a guest, your comment is unpublished.
    Sergii · 1 months ago
    February 2019 - after some update Excel silently exits macro right after Application.ActiveWorkbook.SaveAs
    It means, that commands Application.ActiveWorkbook.Close does not run and file stays opened... Could it be fixed? This happened all the machines in our office on several workbooks that were using such kind of Macro.
  • To post as a guest, your comment is unpublished.
    Jenne · 6 months ago
    Do you have the formula to make sure that each excel sheet when saved as a new work book is in total format Comma Delimited .CSV
  • To post as a guest, your comment is unpublished.
    Jenne · 6 months ago
    Love this and another info you have on splitting data into each worksheet. However I keep getting an error when trying to upload my single reports into my system

    I needed them as a csv file so just changed the last part of the module to .csv I am wondering if I missed something else that should've been changed.

    Thanks a million
  • To post as a guest, your comment is unpublished.
    Ananda · 1 years ago
    what is the use of Worksheet.Save??