Loncat ke daftar isi utama

Bagaimana cara menyimpan atau mengekspor setiap lembar sebagai file CSV / PDF di Excel?

Misalnya Anda memiliki buku kerja besar dengan beberapa lembar, dan Anda ingin menyimpan atau mengekspor setiap lembar sebagai file .csv atau file PDF, bagaimana cara menyelesaikannya dengan mudah dan cepat? Pada artikel ini, saya akan memperkenalkan beberapa metode untuk mengatasinya.


Simpan atau ekspor setiap lembar sebagai file CSV / PDF dengan fitur Simpan Sebagai

Seperti yang Anda ketahui, Microsoft Excel dapat menyimpan lembar kerja saat ini sebagai file .csv individual atau file PDF. Oleh karena itu, Anda dapat menyimpan atau mengekspor setiap lembar sebagai file .csv atau file PDF satu per satu secara manual.

1. Beralih ke lembar yang akan Anda simpan atau ekspor sebagai file .csv individual, dan klik File (Atau Tombol kantor)> Save As.

2. Pada kotak dialog pembuka, tentukan folder tujuan tempat Anda akan menyimpan file .csv, klik Save as type kotak dan pilih CSV (Dibatasi koma) (* .csv) or PDF (* .pdf) dari daftar drop-down, dan klik Save .

3. Akan ada dua kotak dialog peringatan yang keluar secara berurutan. Silakan klik OK > Yes.

Catatan: Jika Anda menyimpan lembar kerja aktif sebagai file PDF, kotak dialog ini tidak akan muncul. Lanjutkan saja ke langkah berikutnya.

4. Ulangi langkah 1-3 di atas untuk menyimpan sheet lainnya sebagai file .csv satu per satu.


Simpan batch atau ekspor setiap lembar sebagai file CSV dengan VBA

Jika ada sejumlah sheet yang ingin Anda simpan atau ekspor sebagai file .csv, metode pertama akan cukup memakan waktu dan membosankan. VBA ini dapat menyederhanakan pekerjaan dan memudahkan untuk menyimpan atau mengekspor setiap lembar sebagai file .csv.

1. tekan lain + F11 tombol secara bersamaan untuk membuka jendela Microsoft Visual Basic for Application.

2. klik Menyisipkan > Modul, lalu tempel kode VBA berikut ke jendela modul baru.

VBA: Simpan setiap lembar sebagai file CSV individual

Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub
3. Klik Run tombol atau tekan F5 kunci untuk menjalankan VBA ini.

4. Dalam kotak dialog Jelajah pembuka, tentukan folder tujuan tempat Anda akan menyimpan semua file .csv, dan klik OK .

Kemudian Anda akan melihat setiap lembar disimpan / diekspor sebagai file .csv individual di folder tujuan yang ditentukan.


Batch save atau ekspor setiap lembar sebagai file CSV / PDF dengan Kutools for Excel

Beberapa pengguna Excel mungkin menolak kode VBA karena beberapa alasan. Jangan khawatir! Metode ketiga juga dapat menyimpan atau mengekspor batch setiap lembar sebagai file .csv atau file PDF dengan mudah oleh Pisahkan Buku Kerja kegunaan Kutools untuk Excel.

Kutools untuk Excel - Tingkatkan Excel dengan lebih dari 300 alat penting. Nikmati uji coba GRATIS 30 hari berfitur lengkap tanpa memerlukan kartu kredit! Get It Now

1. Klik Enterprise > Buku catatan > Pisahkan Buku Kerja.

dok setiap lembar ke csv 2

2. Di kotak dialog Split Workbook pembuka,

dok setiap lembar ke csv 8

(1) Tetap pilih semua lembar. Jika tidak, Anda dapat mencentang kotak sebelumnya Nama lembar kerja untuk memilih semua lembar;

(2) Periksa Tentukan format penyimpanan pilihan;

(3) Klik kotak di bawah Tentukan format penyimpanan pilihan, dan pilih CSV (Macintosh) (*. Csv) or PDF (* .pdf) dari daftar drop down.

(4) Klik Split .

 

Note: Jika ada lembar kerja tersembunyi dan kosong yang ada di buku kerja Anda, periksa Lewati lembar kerja tersembunyi kotak dan Lewati lembar kerja kosong kotak akan mengabaikan semua lembar kosong atau tersembunyi saat mengekspor.

Kutools untuk Excel - Tingkatkan Excel dengan lebih dari 300 alat penting. Nikmati uji coba GRATIS 30 hari berfitur lengkap tanpa memerlukan kartu kredit! Get It Now

3. Dalam kotak dialog Browse for Folder yang terbuka, tentukan folder tujuan yang akan Anda gunakan untuk menyimpan semua file .csv atau file PDF, dan klik OK .

Sekarang Anda akan melihat setiap lembar diekspor dan disimpan sebagai file .csv individual di folder yang ditentukan.


Demo: simpan atau ekspor setiap lembar sebagai file CSV / PDF di Excel


Kutools untuk Excel: Lebih dari 300 alat praktis di ujung jari Anda! Mulai uji coba gratis 30 hari Anda tanpa batasan fitur hari ini. Download Sekarang!

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk


Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you so much - the VBA soultion worked great and saved me a ton of time!
This comment was minimized by the moderator on the site
Hello, thank you for these tips! I tried using the VBA code but I'm getting a run-time error code 91 for the following syntax:

If folder.Show <> -1 Then Exit Sub

Can you help me troubleshoot? I'm new to VBA. :)
This comment was minimized by the moderator on the site
Hi there,

Please make sure that there is only the VBA code from this tutorial in your Module window. If there are other codes, please delete or move them to a new module.

After that, please run the code. If it's still not working, please use the code below:
Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
On Error Resume Next
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub


Amanda
This comment was minimized by the moderator on the site
How to keep and maintain decimals values when exporting excel sheets to CSV? financial data requires accuracy of data till 3 decimals when export to CSV? please advise
This comment was minimized by the moderator on the site
Hi prashan9810,
Before exporting the sheets from Excel to CSV, you鈥檇 better change the formatting of currency numbers, and fix their decimal places to 3.
You can change the decimal places as follows:
1. In Excel, select the currency cells, right click, and select Format Cells from the context menu.
2. In the Format Cells dialog, select Currency or Accounting in the Category list box, enter 3 in the Decimal places box, and click OK.
This comment was minimized by the moderator on the site
Thank you for your very helpful tips. I used the vba code to convert an excel file with multiple sheets into individual csv files. I'm wondering, how can I specify that i'd like those csv files to be utf-8? Is there an addition to the code below that will add that feature? Public Sub SaveWorksheetsAsCsv() Dim xWs As Worksheet Dim xDir As String Dim folder As FileDialog Set folder = Application.FileDialog(msoFileDialogFolderPicker) If folder.Show -1 Then Exit Sub xDir = folder.SelectedItems(1) For Each xWs In Application.ActiveWorkbook.Worksheets xWs.SaveAs xDir & "\" & xWs.Name, xlCSV Next End Sub
This comment was minimized by the moderator on the site
ActiveWorkbook.SaveAs Filename:=Replace(Replace(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations