Note: The other languages of the website are Google-translated. Back to English

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 Plus > 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
-day) 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

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

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan 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.
tab kte 201905

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!
officetab bawah
Urutkan komentar berdasarkan
komentar (36)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara untuk menyimpan file CSV ke folder selain folder Dokumen?
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 singkatan dari direktori kerja: xcsvFile = CurDir & "\" & xWs.Name & ".csv" Jika Anda ingin mengubah direktori kerja, Anda harus menambahkan perintah lain. Jika Anda ingin menyimpannya ke folder di dalam direktori kerja, katakan di folder bernama baru Anda cukup mengganti "\" dengan "\Baru\". Sesuatu di sepanjang garis itu.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak Paulus. Saya akhirnya mencari tahu beberapa waktu lalu, tetapi solusi Anda persis seperti yang saya lakukan.
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!
Komentar ini diminimalkan oleh moderator di situs
Hai Alex, Bisakah Anda menunjukkan kepada saya baris kode yang Anda masukkan sebagai pengganti "\" tolong? Saya harus dapat menyimpan file .csv ini ke lokasi di jaringan kami daripada di perpustakaan WS lokal saya. Kami perlu 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 ketika disalin langsung dari info di atas). Saya bukan ahli kode, tetapi saya dapat mengikuti petunjuk dengan cukup baik, jadi bantuan apa pun dihargai!
Komentar ini diminimalkan oleh moderator di situs
[quote]Hai Alex, Bisakah Anda menunjukkan kepada saya baris kode yang Anda masukkan sebagai pengganti "\" tolong? Saya harus dapat menyimpan file .csv ini ke lokasi di jaringan kami daripada di perpustakaan WS lokal saya. Kami perlu 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 ketika disalin langsung dari info di atas). Saya bukan ahli kode, tetapi saya dapat mengikuti petunjuk dengan cukup baik, jadi bantuan apa pun dihargai!Oleh Fajar[/quote] Hai Dawn, akhirnya saya harus menulis ulang beberapa 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.RefreshAll Sheets("Karth").Select Range(" B22").Pilih ActiveSheet.PivotTables("Karth_Appd_Wkly").PivotCache.Refresh Sheets("Start").Pilih Sheets("Karth").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "K:\K\Analytics\ Reports\Sales\SM Reports\SM Summary_Karth.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai, terima kasih atas kodenya, apakah mungkin melewatkan beberapa lembar dan hanya menyimpan beberapa? Saya tidak tahu bagaimana saya harus memulai. Bisakah kamu membantuku? Nicolas
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 file Excel yang dibuka - umumnya folder saat ini di explorer sehingga file Anda bisa berakhir ditulis hampir di mana saja. Anda harus menggunakan Application.ThisWorkbook.Path sebagai gantinya.
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 ia akan memesan baris. Saya perlu memiliki opsi untuk memesan baris dalam urutan penampilan, satu baris pada satu waktu satu lembar pada satu waktu. Lembar 1, baris 1; lembar 2, baris 1, lembar 3, baris1, dll. Saya menantikan tanggapan Anda.
Komentar ini diminimalkan oleh moderator di situs
Hai, Terima kasih atas kodenya, saya hanya punya klarifikasi kecil. Saat ini ketika file CSV dibuat, itu dibatasi oleh koma ",". meskipun pengaturan sistem saya adalah untuk CSV yang dibatasi harus 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 paling cepat. Terima kasih. Salam, Amit
Komentar ini diminimalkan oleh moderator di situs
halo alex, bisakah Anda menampilkan kode untuk menyimpan file dalam format csv kecuali folder dokumen?
Komentar ini diminimalkan oleh moderator di situs
hai saya butuh makro yang mengonversi pipa "|" memisahkan csv menjadi xlsx menanyakan nama folder, bukan satu file. saya membutuhkannya secara mendesak.


Salam,
Komentar ini diminimalkan oleh moderator di situs
Maaf tidak bisa menyelesaikan masalah ini
Komentar ini diminimalkan oleh moderator di situs
Saya memerlukan makro untuk mengonversi semua tab dalam file excel ke kumpulan file yang berbeda.
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
File mana yang ingin Anda sertakan dalam "kumpulan file yang berbeda"?
Komentar ini diminimalkan oleh moderator di situs
1) Saya memiliki buku kerja dengan banyak lembar di dalamnya.
2) Beberapa 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 hanya 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 dan simpan di beberapa direktori di desktop saya, katakan drive H.
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
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.
Komentar ini diminimalkan oleh moderator di situs
A, saya melihat sekarang bahwa baris "Kode VBA: Ekspor semua lembar ke file csv terpisah" tidak boleh disalin ke area kode. Mungkin itu bisa lebih eksplisit untuk pemula, dan untuk orang yang mengikuti instruksi secara eksplisit.
Komentar ini diminimalkan oleh moderator di situs
Hi Ken,
Itulah baris deskripsi kode. Baris "Sub ExportSheetsToCSV()" harus menjadi baris pertama kode.
Saya minta maaf atas ketidaknyamanannya.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih - skrip sangat berguna
Komentar ini diminimalkan oleh moderator di situs
Solusi luar biasa ..... Ini menghemat waktu saya ....... Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Jika Anda hanya ingin mengonversi beberapa lembar, terus centang dan hapus centang pada lembar lain yang tidak ingin Anda konversi
pak untuk langkah thuis apakah Anda memiliki makro?
Komentar ini diminimalkan oleh moderator di situs
Hari baik,
Tidak dapat membantu dengan kode VBA untuk ini. Mengapa tidak mencoba utilitas Split Workbook yang kami sediakan di postingan? Ini akan menghemat waktu Anda dan Anda akan menyukainya.
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 agar tersedia di semua instance excel?

Ketika saya mencoba, CurDir mengambil direktori PRIBADI, alih-alih yang aktif lembar kerja ...

Terima kasih atas bantuannya!
Komentar ini diminimalkan oleh moderator di situs
Hai Mirko,
Metode dalam artikel ini dapat membantu Anda: https://trumpexcel.com/personal-macro-workbook/.
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara untuk menggunakan kode ini untuk mengekspor hanya rentang tertentu ke file .csv dari setiap lembar dalam sebuah buku?
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
Komentar ini diminimalkan oleh moderator di situs
Jadi, ini bagus! TAPI, bagaimana jika saya perlu membagi buku kerja menjadi .csv tetapi untuk PC, bukan MAC? Jika ada yang punya cara melakukannya, tolong bantu saya. Saya akan sangat berterima kasih.
Komentar ini diminimalkan oleh moderator di situs
Hai,
Kode VBA pertama dalam posting ini dapat membantu Anda.
Komentar ini diminimalkan oleh moderator di situs
bagaimana saya mengubah kode untuk menyimpannya dalam format file yang berbeda seperti xlsx? atau ASCII.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih! Saya menggunakan ini untuk menyimpan semua lembar file .xlsx saya ke dalam .xlsx yang berbeda
Sub ExportSheetsToXLSX()
Redupkan xWs Sebagai Lembar Kerja
Redupkan xcsvFile Sebagai String
Untuk Setiap xW di Application.ActiveWorkbook.Worksheets
xWs.Copy
xlsxFile = CurDir & "\" & xWs.Name & ".xlsx"
Application.ActiveWorkbook.SaveAs Nama File:=xlsxFile, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.ActiveWorkbook.Saved = Benar
Application.ActiveWorkbook.Tutup
Next
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai, terima kasih atas kodenya yang luar biasa (Ekspor semua lembar ke file Teks yang terpisah)! Digunakan pada banyak kesempatan tetapi mengalami file yang tidak berfungsi, debugger mengatakan runtime error 1004 dan metode salinan lembar kerja gagal dan menandai baris xWs.Copy. Apakah ada aturan mengenai nama lembar kerja yang tidak mengizinkan kode untuk dijalankan?
Komentar ini diminimalkan oleh moderator di situs
Hai, terima kasih atas kode hebatnya (Ekspor semua lembar ke file Teks terpisah), sering menggunakannya. Baru saja masuk ke buku kerja yang tidak berfungsi, debugger mengatakan baris xWs.Copy bermasalah, popup mengatakan metode salinan buku kerja gagal. Apakah ada batasan mengenai nama lembar kerja atau yang serupa, seperti tidak ada sel yang digabungkan, dll.?

Terima kasih atas balasannya :)
Komentar ini diminimalkan oleh moderator di situs
hai BI,
Apakah lembar kerja Anda berisi tabel pivot? Bisakah Anda memberi kami data Anda untuk pengujian? Jika Anda tidak keberatan, unggah file sampel Anda di sini.
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL