Bagaimana cara menyimpan lembar excel terpisah sebagai file terpisah?

Jika Anda menemukan artikel ini, kemungkinan Anda sedang mencari solusi yang memungkinkan Anda membagi file Excel menjadi beberapa file dengan cepat dan mudah. Jika Anda melakukan ini secara manual, Anda mungkin menghabiskan berjam-jam secara berulang menyalin setiap tab spreadsheet ke file buku kerja baru dan menyimpannya ke lokasi yang tepat

Dalam posting ini, saya akan memberi Anda beberapa contoh bagaimana Anda dapat mengotomatiskan tugas ini dengan kode VBA. Jika Anda belum pernah menggunakan kode VBA sebelumnya, Anda harus membaca artikel saya Cara Menggunakan Makro VBA yang Anda Temukan Di Internet. Ini akan memberi Anda langkah-langkah langsung dan non-teknis untuk menggunakan kode yang ada di artikel ini

Di setiap contoh kode saya, saya akan memberi Anda cara untuk menyimpan file baru dalam format Excel atau sebagai file PDF (atau Anda dapat melakukan keduanya jika Anda mau). Nama file akan cocok dengan nama tab Excel dan akan disimpan di folder yang sama tempat file Excel sumber Anda berada

Kode VBA. Salin Semua Tab (Terlihat) ke File Individual

Dalam contoh kode VBA ini, semua tab spreadsheet yang terlihat akan disalin ke file Excel baru dan juga disimpan sebagai PDF. Anda dapat menghapus salah satu bagian dari kode jika Anda hanya ingin menyimpan sebagai PDF atau hanya menyimpan sebagai file Excel baru

Sub CopyTabsToIndividualFiles()
'TUJUAN. Salin semua tab yang terlihat ke file individual
'SUMBER. www. TheSpreadsheetGuru. com

Dim FolderPath Sebagai String
Dim sht Sebagai Lembar Kerja

'Tentukan Jalur Folder
FolderPath = Aplikasi. ActiveWorkbook. Jalur

'Optimalkan Kode (Matikan)
  Aplikasi. Pembaruan Layar = Salah
  Aplikasi. DisplayAlerts = Salah

'Ulangi setiap lembar di ActiveWorkbook
   Untuk Setiap sht Dalam ThisWorkbook.Worksheets
    
     'Pastikan sheet terlihat sehingga kami dapat menyalinnya
       Jika sht. Terlihat = xlSheetVisible Kemudian
        
         'Salin Sheet ke buku kerja baru
sht. Salinan
Lakukan Acara
    
         'Simpan tab sebagai File Excel (gunakan nama Lembar)
Aplikasi. ActiveWorkbook. Simpan Sebagai Nama File. =FolderPath & "\" & sht. Nama & ". xlsx"
        
         'Simpan tab sebagai File PDF (gunakan nama Lembar)
Aplikasi. Lembar aktif. ExportAsFixedFormat Type. =xlTypePDF, _
Nama file. =FolderPath & "\" & sht. Nama & ". pdf"
        
         'Tutup File
          Aplikasi. ActiveWorkbook. Tutup Salah
    
       Akhiri Jika
    
   Berikutnya

'Optimalkan Kode (Aktifkan kembali)
  Aplikasi. DisplayAlerts = Benar
  Aplikasi. Pembaruan Layar = Benar

'Beri tahu pengguna bahwa semua salinan telah dibuat
MsgBox "Semua lembar telah disimpan ke file individual"

Akhir Sub

Kode VBA. Salin Semua Tab yang Dipilih ke File Individual

Contoh kode makro VBA ini sangat mirip dengan contoh kode sebelumnya, namun menambahkan kemampuan untuk hanya mengekspor lembar kerja yang telah Anda pilih. Ini berguna jika Anda hanya ingin mengekspor dan membagi sebagian dari tab Excel Anda

Sub CopySelectedTabsToIndividualFiles()
'TUJUAN. Salin semua tab yang dipilih ke file individual
'SUMBER. www. TheSpreadsheetGuru. com

Dim FolderPath Sebagai String
Dim sht Sebagai Objek

'Tentukan Jalur Folder
FolderPath = Aplikasi. ActiveWorkbook. Jalur

'Optimalkan Kode (Matikan)
  Aplikasi. Pembaruan Layar = Salah
  Aplikasi. DisplayAlerts = Salah

'Loop melalui lembar yang dipilih di ActiveWorkbook
   Untuk Setiap sht Dalam ActiveWindow.SelectedSheets
        
     'Salin Sheet ke buku kerja baru
sht. Salinan
Lakukan Acara

     'Simpan tab sebagai File Excel (gunakan nama Lembar)
Aplikasi. ActiveWorkbook. Simpan Sebagai Nama File. =FolderPath & "\" & sht. Nama & ". xlsx"
    
     'Simpan tab sebagai File PDF (gunakan nama Sheet)
Aplikasi. Lembar aktif. ExportAsFixedFormat Type. =xlTypePDF, _
Nama file. =FolderPath & "\" & sht. Nama & ". pdf"
    
     'Tutup File
      Aplikasi. ActiveWorkbook. Tutup Salah
    
   Berikutnya

'Optimalkan Kode (Aktifkan kembali)
  Aplikasi. DisplayAlerts = Benar
  Aplikasi. Pembaruan Layar = Benar

'Beri tahu pengguna bahwa semua salinan telah dibuat
MsgBox "Semua lembar yang dipilih telah disimpan ke file individual"

Akhir Sub

Kode VBA. Salin Semua Lembar Biru ke File Individual

Jika Anda hanya ingin mengekspor tab spreadsheet dengan warna tertentu, Anda dapat menggunakan contoh kode di bawah ini. Yang perlu Anda lakukan adalah mengatur variabel TabColor ke kode warna RGB yang Anda pilih

Kode makro di bawah ini memiliki pengujian bawaan yang hanya akan menyalin tab jika warna tabnya cocok dengan warna yang Anda cari

Sub CopyColoredTabsToIndividualFiles()
'TUJUAN. Salin semua tab yang terlihat dengan warna tertentu ke file individual
'SUMBER. www. TheSpreadsheetGuru. com

Dim FolderPath Sebagai String
Dim sht Sebagai Lembar Kerja
Redup TabColor Sebagai Panjang

'Identifikasi Warna Tab
Warna Tab = RGB(0, 112, 192)

'Tentukan Jalur Folder
FolderPath = Aplikasi. ActiveWorkbook. Jalur

'Optimalkan Kode (Matikan)
  Aplikasi. Pembaruan Layar = Salah
  Aplikasi. DisplayAlerts = Salah

'Ulangi setiap lembar di ActiveWorkbook
   Untuk Setiap sht Dalam ThisWorkbook.Worksheets
    
     'Pastikan sheet terlihat sehingga kami dapat menyalinnya
       Jika sht. Terlihat = xlSheetVisible Dan sht. Tab. Color = TabColor Kemudian
        
         'Salin Sheet ke buku kerja baru
sht. Salinan
Lakukan Acara
    
         'Simpan tab sebagai File Excel (gunakan nama Lembar)
Aplikasi. ActiveWorkbook. Simpan Sebagai Nama File. =FolderPath & "\" & sht. Nama & ". xlsx"
        
         'Simpan tab sebagai File PDF (gunakan nama Lembar)
Aplikasi. Lembar aktif. ExportAsFixedFormat Type. =xlTypePDF, _
Nama file. =FolderPath & "\" & sht. Nama & ". pdf"
        
         'Tutup File
          Aplikasi. ActiveWorkbook. Tutup Salah
    
       Akhiri Jika
    
   Berikutnya

'Optimalkan Kode (Aktifkan kembali)
  Aplikasi. DisplayAlerts = Benar
  Aplikasi. Pembaruan Layar = Benar

'Beri tahu pengguna bahwa semua salinan telah dibuat
MsgBox "Semua lembar berwarna telah disimpan ke file individual"

Akhir Sub

Kode VBA. Salin Lembar Tertentu ke File Individual

Jika Anda hanya ingin menyalin nama sheet tertentu ke dalam file individual, Anda dapat menggunakan contoh kode VBA berikut

Makro ini menggunakan variabel SheetList yang memungkinkan Anda menuliskan setiap nama sheet yang ingin diisolasi. Pastikan Anda menambahkan titik koma (;) segera setelah setiap nama tab karena logika kode menggunakan simbol titik koma untuk memisahkan nama saat mencari kecocokan

Sub CopySpecificTabsToIndividualFiles()
'TUJUAN. Salin tab tertentu yang terlihat ke file individual
'SUMBER. www. TheSpreadsheetGuru. com

Dim FolderPath Sebagai String
Dim sht Sebagai Lembar Kerja
Dim SheetList As String

'Daftar Nama Lembar dipisahkan dengan titik koma
SheetList = "Sheet1; Sheet2; Instruksi; Laporan Saya;"

'Tentukan Jalur Folder
FolderPath = Aplikasi. ActiveWorkbook. Jalur

'Optimalkan Kode (Matikan)
  Aplikasi. Pembaruan Layar = Salah
  Aplikasi. DisplayAlerts = Salah

'Ulangi setiap lembar di ActiveWorkbook
   Untuk Setiap sht Dalam ThisWorkbook.Worksheets
    
     'Verifikasi Nama Sheet
       Jika InStr(1, SheetList, sht. Nama & ";") > 0 Kemudian
    
         'Pastikan sheet terlihat sehingga kami dapat menyalinnya
            Jika sht. Terlihat = xlSheetVisible Kemudian
            
             'Salin Sheet ke buku kerja baru
sht. Salinan
Lakukan Acara
        
             'Simpan tab sebagai File Excel (gunakan nama Lembar)
Aplikasi. ActiveWorkbook. Simpan Sebagai Nama File. =FolderPath & "\" & sht. Nama & ". xlsx"
            
             'Simpan tab sebagai File PDF (gunakan nama Sheet)
Aplikasi. Lembar aktif. ExportAsFixedFormat Type. =xlTypePDF, _
Nama file. =FolderPath & "\" & sht. Nama & ". pdf"
            
             'Tutup File
              Aplikasi. ActiveWorkbook. Tutup Salah
        
            Akhir Jika
          
       Akhiri Jika
      
   Berikutnya

'Optimalkan Kode (Aktifkan kembali)
  Aplikasi. DisplayAlerts = Benar
  Aplikasi. Pembaruan Layar = Benar

'Beri tahu pengguna bahwa semua salinan telah dibuat
MsgBox "Semua lembar yang diinginkan telah disimpan ke file individual"

Akhir Sub

Saya Harap Ini Membantu

Mudah-mudahan, saya bisa menjelaskan bagaimana Anda bisa menggunakan kode VBA untuk mengotomatiskan pemisahan tab Excel Anda menjadi file baru atau file PDF. Jika Anda memiliki pertanyaan tentang teknik ini atau saran tentang cara memperbaikinya, beri tahu saya di bagian komentar di bawah

Tentang Penulis

Hai. Saya Chris dan saya menjalankan situs web TheSpreadsheetGuru di waktu senggang. Pada siang hari, saya sebenarnya adalah seorang profesional keuangan yang sangat bergantung pada Microsoft Excel di dunia korporat. Saya suka mengambil hal-hal yang saya pelajari di "dunia nyata" dan membaginya dengan semua orang di situs ini sehingga Anda juga bisa menjadi guru spreadsheet di perusahaan Anda

Selama bertahun-tahun di dunia korporat, saya dapat memanfaatkan peluang untuk menjadikan bekerja dengan Excel lebih baik dan telah membuat berbagai add-in Excel, mulai dari menyisipkan simbol tanda centang hingga mengotomatiskan penyalinan/penempelan dari Excel ke PowerPoint. Jika Anda ingin terus mengikuti berita Excel terbaru dan langsung menerima email tips Excel paling berarti yang telah saya pelajari selama bertahun-tahun, Anda dapat mendaftar untuk mendapatkan buletin gratis saya. Saya harap saya dapat memberi Anda beberapa nilai hari ini dan saya berharap dapat melihat Anda kembali ke sini segera. - Kris

Bagaimana cara membagi spreadsheet Excel menjadi beberapa file?

Bagaimana cara menyalin lembar Excel ke file Excel lain tanpa kehilangan tata letak dan format?

Bagaimana cara menyimpan banyak tab di Excel sebagai file PDF terpisah?

Bagaimana cara mengekspor spreadsheet Excel ke file Excel lain?