Kiat: Bahasa lain adalah Terjemahan-Google. Anda dapat mengunjungi English versi link ini
Masuk
x
or
x
x
Daftar
x

or

Bagaimana cara mengekspor dan menyimpan setiap lembar kerja sebagai buku kerja baru yang terpisah di Excel?

Katakanlah Anda ingin mengekspor dan menyimpan satu atau beberapa lembar kerja sebagai buku kerja baru, bagaimana Anda akan menghadapinya? Biasanya Anda bisa menyalin setiap lembar kerja dan menempelkan ke buku kerja baru. Tapi di sini kami membawa beberapa trik berguna untuk menghadapinya:

Ekspor dan simpan lembar kerja sebagai buku kerja baru dengan perintah Move or Copy

Ekspor dan simpan lembar kerja sebagai buku kerja baru dengan kode VBA

Ekspor dan simpan lembar kerja sebagai buku kerja baru dengan Kutools for Excel ide bagus3


Dengan cepat membagi beberapa lembar kerja ke dalam buku kerja terpisah di Excel

Di Microsoft Excel, Anda dapat menyimpan atau membagi lembar kerja dari satu buku kerja sebagai file Excel baru dengan menyalin dan menempelkan lembar kerja ini ke dalam buku kerja baru. Tampaknya merepotkan, jika Anda ingin membagi setiap lembar / lembar kerja dari buku kerja besar sebagai Excel, txt, csv, file pdf terpisah. Tetapi dengan Kutools for Excel'S Buku kerja split utilitas, Anda dapat dengan cepat menghadapinya. Klik untuk uji coba gratis 60 hari dengan fitur lengkap!
buku kerja terbagi doc 1
Kutools for Excel: lebih dari sekedar 300 berguna untuk add-in Excel, bebas untuk mencoba tanpa batasan dalam 60 days.

panah biru kanan gelembung Ekspor dan simpan lembar kerja sebagai buku kerja baru dengan perintah Move or Copy


Menggunakan Pindahkan atau Salin perintah akan membantu Anda mengekspor atau menyalin satu atau beberapa lembar kerja ke buku kerja baru dengan cepat.

Langkah 1: Pilih nama worksheet di tab bar. Anda dapat memilih beberapa dengan menahan Ctrl kunci atau bergeser kunci.

Langkah 2: Klik kanan nama worksheet, dan klik Pindahkan atau Salin dari menu konteks
lembar ekspor dokumen 1

Langkah 3: Masuk Pindahkan atau Salin kotak dialog, pilih (buku baru) item dari daftar drop down Pindahkan lembar yang dipilih ke buku.

lembar ekspor dokumen 2

Langkah 4: Lalu klik OK, sekarang Anda telah beralih ke buku kerja baru dengan lembar kerja yang diekspor atau disalin, klik fillet > Hemat untuk menyimpan workbook baru

catatan: Dalam Pindahkan atau Salin kotak dialog, ada Buat salinan pilihan. Jika Anda tidak memeriksanya, ia akan memindahkan lembar kerja yang dipilih dari buku kerja asli; Jika dicek, itu akan menyalin lembar kerja yang dipilih.


panah biru kanan gelembung Ekspor dan simpan lembar kerja sebagai buku kerja baru dengan kode VBA

Kode berikut ini akan mengekspor setiap lembar kerja yang terlihat di buku kerja baru dan menyimpan buku kerja tersebut dengan nama lembar asli di folder yang baru dibuat dengan cara yang sama seperti buku kerja yang aktif. Silahkan lakukan langkah-langkah berikut:

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

Langkah 2: Klik Menyisipkan > Modul, dan paste makro berikut di Module Window:

VBA: Ekspor dan simpan lembar kerja sebagai buku kerja baru di 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 tombol F5 kunci untuk menjalankan kode ini Dan sebuah kotak prompt akan muncul untuk memberi tahu Anda lokasi buku kerja yang baru diekspor, dan semua lembar kerja buku kerja asli telah diekspor ke beberapa buku kerja terpisah baru yang diberi label asli dalam folder spesifik baru. Lihat tangkapan layar:

lembar ekspor dokumen 7

panah biru kanan gelembung Ekspor dan simpan lembar kerja sebagai buku kerja baru dengan Kutools for Excel

Jika Anda memiliki beberapa lembar kerja yang perlu disimpan sebagai buku kerja terpisah, metode pertama tidak bisa menjadi pilihan yang baik. Dan kode VBA mungkin sedikit rumit untuk pemula Excel. Di sini Anda dapat menggunakan Buku kerja split utilitas dari Kutools for Excel untuk dengan cepat dan mudah mengekspor dan menyimpan setiap lembar kerja dari satu buku kerja untuk memisahkan buku kerja baru.

Kutools for Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah.

Setelah instalasi gratis Kutools untuk Excel, silahkan lakukan seperti di bawah ini:

Langkah 1: Klik Kutools Plus > Buku catatan > Membagi Workbook .... Lihat tangkapan layar
lembar ekspor dokumen 3

Langkah 2: Di Buku kerja split kotak dialog, lakukan seperti di bawah ini:

lembar ekspor dokumen 4
1: semua nama lembar kerja telah diperiksa secara default, jika Anda tidak ingin membagi beberapa lembar kerja, Anda dapat menghapusnya;


2: Jika Anda ingin menghindari pemisahan lembar kerja yang tersembunyi atau kosong, Anda dapat memeriksa Lewati lembar kerja yang tersembunyi or Lewati lembar kerja kosong.);


3: dan juga kamu bisa cek Tentukan save format, dan untuk memilih split sheet kemudian simpan sebagai file teks, file pdf, atau file csv, di defualt, jika Anda tidak mencentang opsi ini, maka akan terbagi lembar dan simpan sebagai buku kerja.

Langkah 3: Lalu klik Membagi tombol, dan pilih folder yang ingin Anda masukkan ke buku kerja yang baru. Lihat tangkapan layar
lembar ekspor dokumen 6

Langkah 4: Dan kemudian klik OK, maka setiap lembar kerja diperiksa di Buku kerja split Kotak dialog diekspor dan disimpan sebagai buku kerja individu. Setiap workbook baru diberi nama dengan nama worksheet asli. Lihat tangkapan layar
lembar ekspor dokumen 5

Klik untuk mengetahui lebih banyak informasi tentang alat kerja buku kerja split ini.

panah biru kanan gelembung Ekspor dan simpan setiap lembar sebagai buku kerja baru


Dengan cepat membagi data menjadi beberapa lembar kerja berdasarkan kolom atau baris tetap di Excel

Misalkan Anda memiliki lembar kerja yang memiliki data di kolom A sampai G, nama salesman ada di kolom A dan Anda perlu memisahkan data ini secara otomatis ke dalam beberapa lembar kerja berdasarkan kolom A di buku kerja yang sama dan masing-masing salesman akan dibagi menjadi yang baru. lembar kerja Kutools for Excel'S Tanggal split utilitas dapat membantu Anda dengan cepat membagi data menjadi beberapa lembar kerja berdasarkan kolom terpilih seperti gambar di bawah ini yang ditampilkan di Excel. Klik untuk uji coba gratis 60 hari berfitur lengkap!
doc membagi data 2
Kutools for Excel: lebih dari sekedar 300 berguna untuk add-in Excel, bebas untuk mencoba tanpa batasan dalam 60 days.

Artikel terkait:



Alat Produktifitas yang Direkomendasikan

Office Tab

Bintang emas1 Bawa tab yang berguna ke Excel dan perangkat lunak Office lainnya, seperti Chrome, Firefox dan Internet Explorer baru.

Kutools for Excel

Bintang emas1Menakjubkan! Tingkatkan produktivitas Anda dalam 5 menit. Tidak perlu keahlian khusus, hemat dua jam setiap hari!

Bintang emas1300 Fitur Baru untuk Excel, Membuat Excel Lebih Mudah dan Hebat:

  • Gabungkan Sel / Baris / Kolom tanpa Kehilangan Data.
  • Menggabungkan dan mengkonsolidasikan beberapa lembar dan buku kerja.
  • Bandingkan Range, Copy Multiple Ranges, Konversi Teks ke Tanggal, Konversi Unit dan Mata Uang.
  • Hitung dengan Warna, Pager Subtotals, Filter Sort dan Super Tingkat Lanjut,
  • Lebih Pilih / Sisipkan / Hapus / Teks / Format / Link / Komentar / Buku Kerja / Lembar Kerja Alat ...

Tembakan layar dari 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 · 5 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??