Bagaimana cara mengonversi banyak file Excel ke file CSV di Excel?
Di Excel, kita dapat mengonversi buku kerja ke file CSV dengan fungsi Simpan sebagai, tetapi apakah Anda tahu cara mengonversi banyak file Excel menjadi file CSV terpisah? Pada artikel ini, saya memperkenalkan kode VBA untuk mengonversi semua file Excel dalam folder menjadi file CSV di Excel.
Batch mengkonversi file Excel dari sebuah folder ke file CSV dengan VBA
Ubah lembar buku kerja menjadi file CSV terpisah dengan Kutools for Excel
Batch mengkonversi file Excel dari sebuah folder ke file CSV dengan VBA
Di Excel, tidak ada fungsi bawaan yang dapat menyelesaikan pekerjaan ini dengan cepat kecuali VBA.
1. Aktifkan Excel, dan tekan Alt + F11 kunci terbuka Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul untuk membuat Modul baru.
3. Salin kode di bawah ini dan tempelkan ke jendela Modul baru.
VBA: Batch mengkonversi file Excel ke CSV
Sub WorkbooksSaveAsCsvToFolder()
'UpdatebyExtendoffice20181031
Dim xObjWB As Workbook
Dim xObjWS As Worksheet
Dim xStrEFPath As String
Dim xStrEFFile As String
Dim xObjFD As FileDialog
Dim xObjSFD As FileDialog
Dim xStrSPath As String
Dim xStrCSVFName As String
Dim xS As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
On Error Resume Next
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjFD.AllowMultiSelect = False
xObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"
If xObjFD.Show <> -1 Then Exit Sub
xStrEFPath = xObjFD.SelectedItems(1) & "\"
Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjSFD.AllowMultiSelect = False
xObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"
If xObjSFD.Show <> -1 Then Exit Sub
xStrSPath = xObjSFD.SelectedItems(1) & "\"
xStrEFFile = Dir(xStrEFPath & "*.xls*")
Do While xStrEFFile <> ""
xS = xStrEFPath & xStrEFFile
Set xObjWB = Application.Workbooks.Open(xS)
xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"
xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV
xObjWB.Close savechanges:=False
xStrEFFile = Dir
Loop
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
4. tekan F5 kunci, pilih folder berisi file Excel yang ingin Anda konversi ke file CSV di dialog yang pertama muncul.
5. klik OK, lalu di dialog popping kedua, pilih folder untuk menempatkan file CSV.
6. klik OK, sekarang file Excel di folder tersebut telah diubah menjadi file CSV dan disimpan di folder lain.
Ubah lembar buku kerja menjadi file CSV terpisah dengan Kutools for Excel
Seperti yang kita ketahui, kita hanya bisa mengonversi seluruh workbook menjadi satu file CSV di Excel dengan fungsi Save As-nya. Namun terkadang, Anda ingin mengonversi satu lembar menjadi file CSV, dalam hal ini, file Pisahkan Buku Kerja kegunaan Kutools untuk Excel bisa membantumu.
Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. |
Setelah menginstal Kutools for Excel, lakukan seperti di bawah ini:(Unduh Gratis Kutools untuk Excel Sekarang!)
1. Aktifkan buku kerja yang ingin Anda ubah lembarannya sebagai file CSV terpisah, klik Kutools Ditambah > Buku catatan > Pisahkan Buku Kerja.
2. Dalam Pisahkan Buku Kerja dialog, centang nama lembar yang ingin Anda pisahkan (semua lembar dicentang secara default), centang Simpan sebagai ketik, pilih CSV (Macintosh) (* .CSV) dari daftar drop-down
3. klik Split untuk memunculkan Jelajahi Folder dialog, pilih atau buat folder untuk menempatkan file CSV.
4. klik OK, sekarang buku kerja telah dipisahkan sebagai file CSV terpisah.
Pisahkan Buku Kerja
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!