Bagaimana cara menyimpan, mengekspor beberapa / semua lembar ke file csv atau teks terpisah di Excel?
Saat menggunakan Excel, Anda dapat secara manual menyimpan lembar kerja sebagai file csv atau teks dengan menggunakan fungsi Simpan Sebagai. Namun, untuk mengonversi beberapa atau semua lembar kerja dalam buku kerja menjadi file csv atau teks yang terpisah, bagaimana caranya? Pada artikel ini, kami akan menunjukkan kepada Anda metode untuk menyimpan atau mengonversi beberapa atau semua lembar ke file csv atau teks yang terpisah.
Simpan, ekspor, atau ubah semua lembar menjadi csv atau file teks dengan kode VBA
Simpan, ekspor, atau ubah beberapa / semua lembar menjadi csv atau file teks dengan Kutools for Excel
Simpan, ekspor, atau ubah semua lembar menjadi csv atau file teks dengan kode VBA
Dengan kode VBA di bawah ini, Anda dapat menyimpan semua lembar kerja di buku kerja ke file csv atau teks yang terpisah. Silakan lakukan sebagai berikut.
Ekspor atau ubah semua sheet menjadi file csv
1. tekan lain + F11 tombol secara bersamaan untuk membuka Aplikasi Microsoft Visual Basic jendela.
2. Dalam Aplikasi Microsoft Visual Basic window, klik Menyisipkan > Modul. Kemudian salin dan tempel kode berikut ke file Modul jendela.
Kode VBA: Ekspor semua lembar ke file csv terpisah
Sub ExportSheetsToCSV()
Dim xWs As Worksheet
Dim xcsvFile As String
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xcsvFile = CurDir & "\" & xWs.Name & ".csv"
Application.ActiveWorkbook.SaveAs Filename: = xcsvFile, _
FileFormat: = xlCSV, CreateBackup: = False
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End Sub
3. tekan F5 kunci untuk menjalankan kode. Anda akan melihat semua file csv yang diekspor berada di Documents map. Lihat tangkapan layar:
Ekspor atau konversi semua lembar ke file Teks
Kode berikut dapat membantu Anda mengekspor atau mengonversi semua lembar di buku kerja menjadi file teks terpisah.
Kode VBA: Ekspor semua lembar ke file Teks terpisah
Sub ExportSheetsToText()
Dim xWs As Worksheet
Dim xTextFile As String
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xTextFile = CurDir & "\" & xWs.Name & ".txt"
Application.ActiveWorkbook.SaveAs Filename: = xTextFile, FileFormat: = xlText
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End Sub
File teks yang diekspor juga terletak di Documents map. Lihat tangkapan layar:
Simpan, ekspor, atau ubah beberapa / semua lembar menjadi csv atau file teks dengan Kutools for Excel
YAnda dapat dengan cepat mengekspor atau mengonversi beberapa atau semua lembar ke file csv individual, file teks atau format file xls di Excel dengan Pisahkan Buku Kerja kegunaan Kutools untuk Excel.
Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.
1. klik Kutools Ditambah > Buku catatan > Pisahkan Buku Kerja. Lihat tangkapan layar:
2. Dalam Pisahkan Buku Kerja kotak dialog:
- 1). Jika Anda ingin mengonversi semua sheet menjadi csv atau file teks, biarkan semua nama sheet dicentang di Nama lembar kerja kotak; Jika Anda hanya ingin mengonversi beberapa lembar, terus periksa dan hapus centang pada lembar lain yang tidak ingin Anda ubah.
- 2). Dalam Opsi bagian, periksa Save as type kotak lalu pilih Teks Unicode (*. Txt) or CSV (Macintosh) (*. Csv) dari daftar drop-down
- 3). Klik Split .
3. Dalam Jelajahi Folder kotak dialog, tentukan folder untuk menyimpan file yang diekspor, dan kemudian klik OK .
Sekarang semua lembar atau lembar tertentu diubah menjadi file csv atau teks terpisah, dan temukan di folder seperti yang Anda tentukan di atas.
Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.
Simpan, ekspor, atau ubah beberapa / semua lembar menjadi csv atau file teks dengan Kutools for Excel
Alat Produktivitas Kantor Terbaik
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...
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!