Bagaimana cara batch mengkonversi beberapa file CSV ke file XLS (X) di Excel?
Untuk mengonversi file CSV ke file XlS atau XLSX sangat mudah sekali bagi Anda dengan menerapkan fitur Save As. Namun, untuk mengonversi beberapa file CSV ke file XLS atau XLSX dari sebuah folder memakan waktu dengan menyimpan satu per satu secara manual. Di sini saya memperkenalkan kode makro untuk dengan cepat mengonversi semua file CSV ke file XLS (x) dari folder.
Batch mengkonversi file CSV ke file XlS (X) dengan kode makro
Batch mengkonversi file CSV ke file XlS (X) dengan kode makro
Untuk mengonversi beberapa file CSV dari satu folder ke file XLS (X), Anda dapat melakukan langkah-langkah di bawah ini:
1. Aktifkan buku kerja baru, tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela, dan klik Menyisipkan > Modul. Lihat tangkapan layar:
Note: Pastikan semua file CSV yang ingin Anda konversi ditutup.
2. Kemudian tempelkan kode makro di bawah ini ke Modul skrip, dan tekan F5 kunci untuk menjalankan kode.
VBA: Konversi CSV ke XLS
Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath As String
Dim xCSVFile As String
Dim xWsheet As String
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Select a folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xCSVFile = Dir(xSPath & "*.csv")
Do While xCSVFile <> ""
Application.StatusBar = "Converting: " & xCSVFile
Workbooks.Open Filename:=xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
ActiveWorkbook.Close
Windows(xWsheet).Activate
xCSVFile = Dir
Loop
Application.StatusBar = False
Application.DisplayAlerts = True
End Sub
3. Pada dialog popping out, pilih folder tertentu yang berisi file CSV yang ingin Anda konversi. Lihat tangkapan layar:
4. klik OK, semua file CSV di folder yang dipilih telah diubah menjadi file XLS di dalamnya.
jenis: Jika Anda ingin mengonversi file CSV ke file XLSX, Anda menggunakan kode VBA di bawah ini.
VBA: Konversi file CSV ke XLSX
Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath As String
Dim xCSVFile As String
Dim xWsheet As String
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Select a folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xCSVFile = Dir(xSPath & "*.csv")
Do While xCSVFile <> ""
Application.StatusBar = "Converting: " & xCSVFile
Workbooks.Open Filename:=xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
ActiveWorkbook.Close
Windows(xWsheet).Activate
xCSVFile = Dir
Loop
Application.StatusBar = False
Application.DisplayAlerts = True
End Sub
dengan cepat mengonversi atau mengekspor berbagai lembar untuk memisahkan XLS / Word / PDF atau file format lainnya sekaligus
|
Biasanya, Excel tidak mendukung Anda dengan opsi untuk mengekspor atau menyimpan rentang dengan cepat sebagai file CSV atau Excel. Jika Anda ingin menyimpan rentang data sebagai CSV atau buku kerja di Excel, Anda mungkin perlu menggunakan Makro VBA untuk melakukan ini atau menyalin rentang ke clipboard dan menempelkannya di buku kerja baru lalu menyimpan buku kerja sebagai CSV atau Buku Kerja. Kutools untuk Excel menambah Excel dengan Ekspor Rentang ke File utilitas untuk pengguna Excel yang ingin memproses operasi berikut dengan cepat: Klik untuk uji coba gratis berfitur lengkap selama 30 hari! |
Kutools for Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. |
Artikel Relatif:
- Bagaimana cara mengonversi file csv ke file xls atau mengimpor / membuka csv di Excel?
- Bagaimana cara mengubah dokumen kata menjadi lembar kerja 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!