Menggunakan fungsi dasar di Excel, Anda hanya dapat menyimpan seluruh lembar kerja Anda sebagai file teks atau sebagai CSV. Jadi, bagaimana Anda mengonversi beberapa lembar Excel menjadi file CSV atau teks terpisah?
Atau, jika Anda ingin mengonversi ke CSV, silakan ikuti petunjuk di bawah ini
Cara Mengonversi Beberapa Lembar Excel menjadi File CSV
Langkah 1 - Buka Jendela VBA
- Pertama, pastikan Excel Spreadsheet Anda terbuka dan tekan ALT + F11 secara bersamaan untuk membuka jendela Microsoft Visual Basic Application [VBA]. Jika Anda tidak dapat membuka jendela VBA dengan menekan "ALT + F11", ada cara alternatif untuk melakukannya
- Di bawah Tab Pengembang, klik "Visual Basic" di sisi kiri dan tindakan itu akan membukanya
Langkah 2 - Masukkan Kode VSB
- Sekarang Aplikasi Microsoft Visual Basic Anda terbuka, Anda perlu mengklik Sisipkan -> Modul. Kemudian, salin/tempel kode ini ke Jendela Modul Anda
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
- Ini akan terlihat seperti ini
Langkah 3 - Langkah Terakhir
- Setelah Anda memasukkan kode, Anda perlu menekan F5 untuk menjalankannya. Kemudian, Anda akan melihat bahwa semua File CSV yang diekspor berada di Folder Dokumen Anda - seperti di tangkapan layar ini
Mengubah Beberapa Lembar Excel menjadi File Teks
Langkah 1 - Buka Jendela VBA
- Pertama, pastikan Excel Spreadsheet Anda terbuka dan tekan ALT + F11 secara bersamaan untuk membuka jendela Microsoft Visual Basic Application [VBA]. Jika Anda tidak dapat membuka jendela VBA dengan menekan "ALT + F11", ada cara alternatif untuk melakukannya
- Di bawah Tab Pengembang, klik "Visual Basic" di sisi kiri dan tindakan itu akan membukanya
Langkah 2 - Masukkan Kode VSB
- Sekarang Aplikasi Microsoft Visual Basic Anda terbuka, Anda perlu mengklik Sisipkan -> Modul. Kemudian, salin/tempel kode ini ke Jendela Modul Anda
_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
Langkah 3 - Langkah Terakhir
- Setelah Anda memasukkan kode, Anda perlu menekan F5 untuk menjalankannya. Kemudian, Anda akan melihat bahwa semua File CSV yang diekspor berada di Folder Dokumen Anda - seperti di tangkapan layar ini
Tahukah Anda bahwa kami juga mengerjakan Solusi Integrasi?
Chipkin memiliki solusi integrasi untuk hampir setiap situasi. Kami berspesialisasi dalam komunikasi protokol jaringan dan memiliki pengalaman lebih dari 20 tahun. Klik untuk informasi lebih lanjut
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 4 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 4 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 5 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?