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 dapat menyalin setiap lembar kerja dan menempelkannya ke buku kerja baru. Tetapi di sini kami memberikan beberapa trik praktis untuk menghadapinya:

Simpan lembar kerja sebagai buku kerja baru satu per satu dengan perintah Pindahkan atau Salin

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 lembar kerja di bilah tab. Anda dapat memilih beberapa dengan menahan Ctrl kunci atau bergeser kunci.

Langkah 2: Klik kanan nama lembar kerja, dan klik Pindahkan atau Salin dari menu konteks.

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

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

Catatan: Dalam majalah Pindahkan atau Salin kotak dialog, ada Buat salinan pilihan. Jika Anda tidak mencentangnya, ini akan memindahkan lembar kerja yang dipilih dari buku kerja asli; jika dicentang, itu akan menyalin lembar kerja yang dipilih.

Simpan lembar kerja secara batch dengan mudah sebagai buku kerja baru dengan Kutools for Excel

Jika Anda memiliki beberapa lembar kerja yang perlu disimpan sebagai buku kerja terpisah, metode pertama bukanlah pilihan yang baik. Dan kode VBA dibawah ini mungkin sedikit rumit untuk pemula Excel. Di sini Anda dapat menggunakan Pisahkan Buku Kerja kegunaan Kutools untuk Excel untuk dengan mudah menyimpan batch setiap lembar kerja dari satu buku kerja untuk memisahkan buku kerja baru.

Setelah menginstal Kutools untuk Excelklik Kutools Ditambah > Buku catatan > Pisahkan Buku Kerja untuk membuka Pisahkan Buku Kerja kotak dialog. Dan kemudian konfigurasikan sebagai berikut.

1. Centang lembar kerja yang ingin Anda simpan sebagai buku kerja baru. Secara default, semua lembar kerja dicentang.
2. Melewati lembar kerja yang tersembunyi dan kosong merupakan hal yang opsional dengan mencentang kotak yang sesuai di Opsi bagian.
3. Klik OK.

   

4. A Pilih Folder kotak dialog muncul, Anda kemudian perlu memilih folder tujuan untuk menyimpan buku kerja baru dan klik Pilih Folder .

Kemudian, lembar kerja tertentu atau semua lembar kerja akan segera disimpan sebagai buku kerja baru yang terpisah.

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 dengan nama lembar asli di folder yang baru dibuat di jalur yang sama dengan buku kerja aktif. Silakan 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 tempel makro berikut di jendela modul:

VBA: Ekspor dan simpan lembar kerja sebagai buku kerja baru di folder baru.

Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb 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

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

MkDir FolderName

For Each xWs In xWb.Worksheets
On Error GoTo NErro
    If xWs.Visible = xlSheetVisible Then
    xWs.Select
    xWs.Copy
    xFile = FolderName & "\" & xWs.Name & FileExtStr
    Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
    xNWb.SaveAs xFile, FileFormat:=FileFormatNum
    xNWb.Close False, xFile
    End If
NErro:
    xWb.Activate
Next

    MsgBox "You can find the files in " & FolderName
    Application.ScreenUpdating = True
End Sub

Langkah 3: Tekan F5 kunci untuk menjalankan kode ini. Dan kotak prompt akan muncul untuk memberi tahu Anda lokasi buku kerja baru yang diekspor, dan semua lembar kerja dari buku kerja asli telah diekspor ke beberapa buku kerja terpisah baru yang menamai lembar asli di folder spesifik baru. Lihat tangkapan layar:

Ekspor dan simpan setiap lembar sebagai buku kerja baru

Artikel terkait:

• Gabungkan beberapa buku kerja ke satu buku kerja
• Simpan pilihan sebagai file individual
• Pisahkan buku kerja untuk memisahkan file Excel