Bagaimana cara membagi spreadsheet excel menjadi beberapa file csv?

Saat menggunakan Excel, Anda dapat menyimpan lembar kerja secara manual 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 terpisah, bagaimana caranya?

Simpan, ekspor, atau konversi semua sheet ke csv atau file teks dengan kode VBA

Dengan kode VBA di bawah ini, Anda dapat menyimpan semua lembar kerja dalam buku kerja ke file csv atau teks terpisah. Silakan lakukan sebagai berikut

Ekspor atau konversikan semua sheet ke file csv

1. Tekan tombol Alt + F11 secara bersamaan untuk membuka jendela Aplikasi Microsoft Visual Basic

2. Di jendela Aplikasi Microsoft Visual Basic, klik Sisipkan > Modul. Kemudian salin dan tempel kode berikut ke jendela Modul

kode VBA. Ekspor semua sheet ke file csv yang 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 tombol F5 untuk menjalankan kode. Anda akan melihat semua file csv yang diekspor berada di folder Documents. Lihat tangkapan layar

Ekspor atau konversikan semua lembar ke file Teks

Kode berikut dapat membantu Anda mengekspor atau mengonversi semua lembar dalam 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 folder Dokumen. Lihat tangkapan layar

Simpan, ekspor, atau konversi beberapa/semua lembar ke csv atau file teks dengan Kutools for Excel

Y Anda dapat dengan cepat mengekspor atau mengonversi beberapa atau semua lembar ke file csv individual, file teks atau format file xls di Excel dengan buku kerja terpisah utilitas dari Kutools for Excel.

Sebelum menerapkan Kutools for Excel, silakan unduh dan instal terlebih dahulu

1. Klik Kutools Plus > Buku Kerja > Pisahkan Buku Kerja. Lihat tangkapan layar

2. Di kotak dialog Pisahkan Buku Kerja

• 1). Jika Anda ingin mengonversi semua sheet menjadi file csv atau teks, biarkan semua nama sheet dicentang di kotak Nama lembar kerja;
• 2). Di bagian Opsi, centang kotak Simpan sebagai tipe, lalu pilih Teks Unicode(*. txt) atau CSV (Macintosh)(*. csv) dari daftar drop-down
• 3). Klik tombol Pisah

3. Di kotak dialog Telusuri Folder, tentukan folder untuk menyimpan file yang diekspor, lalu klik tombol OK

Sekarang semua sheet atau sheet tertentu dikonversi menjadi file csv atau teks terpisah, dan cari di folder seperti yang Anda tentukan di atas

  Jika Anda ingin mendapatkan uji coba gratis ( 30 -hari) utilitas ini, klik untuk mendownloadnya, lalu buka .

Simpan, ekspor, atau konversi beberapa/semua lembar ke csv atau file teks dengan Kutools for Excel

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

• Gunakan kembali. Masukkan dengan cepat rumus kompleks, bagan  dan apa pun yang pernah Anda gunakan sebelumnya; . Encrypt Cells with password; Create Mailing List and send emails...
• Super Formula Bar (mengedit beberapa baris teks dan formula dengan mudah); . Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Menggabungkan Sel/Baris/Kolom tanpa kehilangan Data; . Cegah Sel Duplikat; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
• Pilih Baris Duplikat atau Unik ; . Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Exact Copy Beberapa Sel tanpa mengubah referensi rumus; . Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Ekstrak Teks , Tambah Teks, Hapus berdasarkan Posisi, Hapus Spasi ; . Convert Between Cells Content and Comments...
• Filter Super (simpan dan terapkan skema filter ke sheet lain); . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Menggabungkan Buku Kerja dan Lembar Kerja ; . Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• Lebih dari 300 fitur canggih . Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.

Baca selengkapnya. Download Gratis. Pembelian.  

Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Lebih Mudah

• Aktifkan pengeditan dan pembacaan bertab 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 hingga 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari

Baca selengkapnya. Download Gratis. Pembelian.  

Terlama Pertama

Urutkan komentar menurut

Terlama Pertama

Pertama Terbaru

Komentar ( 36 )

Belum ada peringkat. Jadilah yang pertama menilai

Alex K123456789

sekitar 7 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Apakah ada cara untuk menyimpan file CSV ke folder selain folder Dokumen?

Membalas

0

0

Paul     Alex K123456789

sekitar 6 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

[quote] Apakah ada cara untuk menyimpan file CSV ke folder selain folder Dokumen? Oleh Alex K123456789[/quote] Saya belum mengujinya, tapi saya cukup "\" di baris ini adalah . xcsvFile = CurDir & "\" & xWs. Nama & ". csv" Jika Anda ingin mengubah direktori kerja, Anda harus menambahkan perintah lain. Jika Anda ingin menyimpannya ke folder di dalam direktori kerja, katakanlah di folder bernama baru Anda cukup mengganti "\" dengan "\Baru\". Sesuatu di sepanjang garis itu

Membalas

0

0

ALEX K123456789     Paulus

sekitar 6 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Terima kasih banyak Paulus. Saya akhirnya mengetahuinya beberapa waktu lalu, tetapi solusi Anda persis seperti yang saya lakukan

Membalas

0

0

Paul     ALEX K123456789

sekitar 6 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Bagus. Terima kasih atas jawabannya, itu juga sangat berarti bagi saya untuk mengetahui bahwa solusi saya adalah yang benar. Bersulang

Membalas

0

0

Fajar     ALEX K123456789

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai Alex, Bisakah Anda menunjukkan kepada saya baris kode yang Anda masukkan sebagai pengganti "\"? . csv ke lokasi di jaringan kami daripada di perpustakaan WS lokal saya. Kami harus mengizinkan orang Layanan Pelanggan kami untuk dapat mengakses file dan mengganti nama lokasi setiap kali digunakan. Saya mengalami masalah bug dengan hanya mengubah "\" menjadi "\Baru\" (kode VBA berfungsi seperti yang diharapkan saat disalin langsung dari info di atas). Saya bukan ahli kode, tetapi saya dapat mengikuti petunjuk dengan cukup baik, jadi bantuan apa pun sangat kami hargai

Membalas

0

0

Alex K123456789     Subuh

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

[quote]Hai Alex, Bisakah Anda menunjukkan kepada saya baris kode yang Anda masukkan sebagai pengganti "\"? . csv ke lokasi di jaringan kami daripada di perpustakaan WS lokal saya. Kami harus mengizinkan orang Layanan Pelanggan kami untuk dapat mengakses file dan mengganti nama lokasi setiap kali digunakan. Saya mengalami masalah bug dengan hanya mengubah "\" menjadi "\Baru\" (kode VBA berfungsi seperti yang diharapkan saat disalin langsung dari info di atas). Saya bukan ahli kode, tetapi saya dapat mengikuti petunjuk dengan cukup baik, jadi bantuan apa pun sangat kami hargai. Oleh Dawn[/quote] Hai Dawn, saya akhirnya harus menulis ulang bagian-bagian dan seperti yang disarankan Paul, menggunakan perintah yang sedikit berbeda. Di bawah ini adalah perintah yang saya tulis untuk menyegarkan data di buku kerja saya dari Gudang Data kami, lalu menyegarkan tabel pivot dan akhirnya menyimpan salah satu lembar sebagai PDF ke drive saya. ActiveWorkbook. Segarkan Semua Lembar("Karth"). Pilih Rentang ("B22"). Pilih Lembar Aktif. PivotTable("Karth_Appd_Wkly"). PivotCache. Segarkan Lembar("Mulai"). Pilih Lembar ("Karth"). ExportAsFixedFormat Type. =xlTypePDF, Nama file. = _"K. \K\Analytics\Reports\Sales\SM Reports\SM Summary_Karth. pdf" _ , Kualitas. =xlQualityStandard, SertakanDocProperties. =Benar, AbaikanPrintAreas_. =Salah, OpenAfterPublish. =Salah Akhir Sub

Membalas

0

0

Nicolas

sekitar 6 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai, terima kasih atas kodenya, apakah mungkin melewatkan beberapa lembar dan hanya menyimpan beberapa? . Bisakah kamu membantuku?

Membalas

0

0

Mike

sekitar 6 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Terima kasih untuk makronya, itu yang saya butuhkan. Namun, menggunakan "CurDir" untuk membangun jalur file keluaran sangat berbahaya karena belum tentu folder dari file Excel yang dibuka - umumnya folder saat ini di penjelajah sehingga file Anda dapat ditulis secara praktis di mana saja. Anda harus menggunakan Aplikasi. Buku Kerja ini. Jalan sebagai gantinya

Membalas

0

0

tinggi

sekitar 6 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Saya menulis untuk menentukan apakah aplikasi Anda dapat mengonversi beberapa lembar xls menjadi satu file teks dan bagaimana urutan barisnya. Saya perlu memiliki opsi untuk mengurutkan baris dalam urutan tampilan, satu baris dalam satu waktu, satu lembar dalam satu waktu. Lembar 1, baris 1; . saya menunggu umpan balik Anda

Membalas

0

0

Amit Chaudhary

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai, Terima kasih atas kodenya, saya hanya punya sedikit klarifikasi. Saat ini ketika file CSV menghasilkan itu dipisahkan dengan koma ",". meskipun pengaturan sistem saya adalah untuk CSV yang dibatasi harus berupa pipa ". ". Tidak yakin mengapa CSV dibuat dengan pembatas koma dengan kode di atas. Apakah ada cara saya dapat secara eksplisit menentukan pembatas untuk file CSV. Mencari balasan Anda cepat. Terima kasih. Salam, Amit

Membalas

0

0

abu

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

halo alex tolong bisakah Anda menampilkan kode untuk menyimpan file dalam format csv kecuali folder dokumen

Membalas

0

0

Tauseef Kundalia

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

hai saya butuh makro yang mengubah pipa ". " pisahkan csv ke dalam xlsx menanyakan nama folder bukan satu file. saya membutuhkannya secara mendesak


Salam,

Membalas

Laporan

0

0

kristal     Tauseef Kundalia

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Maaf tidak bisa menyelesaikan masalah ini

Membalas

Laporan

0

0

Abhishek Jha™

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Saya memerlukan makro untuk mengonversi semua tab dalam file excel ke kumpulan file yang berbeda

Membalas

Laporan

0

0

kristal     Abhishek Jha™

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Selamat tinggal,
File mana yang ingin Anda sertakan dalam "kumpulan file berbeda"?

Membalas

Laporan

0

0

R

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

1) Saya memiliki buku kerja dengan banyak lembar di dalamnya
2) Banyak lembar itu memiliki banyak kolom
3) Saya memiliki satu kolom di setiap lembar yang merupakan gabungan dari semua kolom lainnya
4) Sekarang, saya ingin mengekstrak kolom gabungan itu ke file teks dengan nama yang sama dengan nama sheet
5) Cara yang saya inginkan adalah saya cukup menekan satu tombol dan itu akan mencari semua tab, ekstrak kolom itu (katakanlah kolom gabungan adalah AA) dari setiap lembar, masukkan ke dalam file teks, beri nama file teks sama dengan nama lembar

Membalas

Laporan

0

0

kristal     R

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Selamat tinggal,
Maaf tidak dapat membantu dengan ini, Anda dapat memposting pertanyaan Anda di forum kami. https. // www. extendoffice. com/forum. html untuk mendapatkan lebih banyak dukungan Excel dari profesional kami

Membalas

Laporan

0

0

Ken

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

A, saya melihat sekarang bahwa baris "kode VBA. Ekspor semua lembar ke file csv yang terpisah" tidak boleh disalin ke area kode. Mungkin itu bisa lebih eksplisit untuk pemula, dan untuk orang yang mengikuti instruksi secara eksplisit

Membalas

0

0

kristal     Ken

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Ayam,
Itulah baris deskripsi kode. Baris "Sub ExportSheetsToCSV()" harus menjadi baris pertama kode
saya minta maaf atas ketidaknyamanannya

Membalas

Laporan

0

0

Cameron Stewart

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Terima kasih - skrip sangat berguna

Membalas

Laporan

0

0

sai

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Solusi luar biasa. Ini menghemat waktu saya. Terima kasih

Membalas

0

0

AK sharma

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Jika Anda hanya ingin mengonversi beberapa sheet, terus centang dan hapus centang pada sheet lain yang tidak ingin Anda konversi
Pak untuk langkah ini apakah Anda memiliki makro

Membalas

Laporan

0

0

kristal     AK sharma

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Selamat tinggal,
Tidak dapat membantu dengan kode VBA untuk ini. Mengapa tidak mencoba utilitas Buku Kerja Terpisah yang kami sediakan di pos?

Membalas

Laporan

0

0

Mirko

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Halo,
terima kasih banyak untuk makro yang hebat, ini berfungsi seperti pesona. Tapi saya punya pertanyaan, bagaimana jika saya ingin menyimpan makro ini (versi CSV) di PERSONAL. xlsb untuk membuatnya tersedia di contoh excel apa pun?

Ketika saya mencoba, CurDir mengambil direktori PERSONAL, bukan lembar kerja yang aktif

Terima kasih atas bantuannya

Membalas

Laporan

0

0

kristal     Mirko

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hi Mirko,
Metode dalam artikel ini dapat membantu Anda. https. //trumpexcel. com/personal-macro-workbook/

Membalas

Laporan

0

0

Tara Collins

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Apakah ada cara untuk menggunakan kode ini untuk mengekspor hanya rentang tertentu ke a. csv dari setiap lembar dalam sebuah buku?

Membalas

Laporan

0

0

kristal     Tarah Collins

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai,
Kode VBA dalam artikel ini dapat membantu Anda. https. // www. extendoffice. com/documents/excel/2897-excel-export-range-to-csv. html

Membalas

Laporan

0

0

Francia

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Jadi, ini bagus. TETAPI, bagaimana jika saya perlu membagi buku kerja menjadi. csv tapi untuk PC, bukan MAC? . Saya akan sangat berterima kasih

Membalas

Laporan

0

0

kristal     Francia

sekitar 2 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai,
Kode VBA pertama dalam posting ini dapat membantu Anda

Membalas

Laporan

0

0

nathan

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

bagaimana cara mengubah kode agar disimpan dalam format file yang berbeda seperti xlsx?

Membalas

0

0

Tim

sekitar 1 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

terima kasih. Saya menggunakan ini untuk menyimpan semua lembar saya. xlsx file menjadi berbeda. xlsx
Sub ExportSheetsToXLSX()
Dim xWs Sebagai Lembar Kerja
Redupkan xcsvFile Sebagai String
Untuk Setiap xW Dalam Aplikasi. ActiveWorkbook. Lembar kerja
xWs. Salinan
xlsxFile = CurDir & "\" & xWs. Nama & ". xlsx"
Aplikasi. ActiveWorkbook. Simpan Sebagai Nama File. = file xlsx, _
FileFormat. =xlBukaXMLWorkbook, Buat Cadangan. =Salah
Aplikasi. ActiveWorkbook. Disimpan = Benar
Aplikasi. ActiveWorkbook. Menutup
Lanjut
Akhir Sub

Membalas

0

0

DUA

sekitar 6 bulan yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai, terima kasih untuk kodenya yang luar biasa (Ekspor semua lembar ke file Teks terpisah). Menggunakannya pada banyak kesempatan tetapi mengalami file yang tidak berfungsi, debugger mengatakan runtime error 1004 dan metode itu menyalin lembar kerja gagal dan menandai baris xWs. Salinan. Apakah ada aturan tentang nama lembar kerja yang tidak mengizinkan kode dijalankan?

Bagaimana cara membagi file Excel menjadi beberapa file CSV?

Bagaimana cara membagi file CSV menjadi beberapa file CSV?

Bagaimana Anda membagi spreadsheet Excel menjadi file terpisah dengan mudah?

Bagaimana cara membagi spreadsheet Excel menjadi beberapa file berdasarkan baris?