Loncat ke daftar isi utama

Bagaimana cara mengonversi beberapa file xls menjadi file xlsx di Excel?

Untuk mengonversi file xls Excel lama ke file xlsx baru, Anda dapat menerapkan fitur Save As di Excel, tetapi, jika ada beberapa file xls yang perlu dikonversi, bagaimana menangani tugas ini dengan cepat dan mudah?


Ubah beberapa format xls menjadi format xlsx dengan fungsi Save As satu per satu

Fungsi Simpan Sebagai di Excel dapat membantu Anda mengonversi format xls buku kerja lama ke format xlsx baru satu per satu.

1. Buka buku kerja Anda yang ingin Anda ubah formatnya.

2. Klik File > Save As, Dan Save As dialog akan ditampilkan, tentukan folder untuk menempatkan format baru dari file tersebut, lalu klik Save as type daftar drop-down untuk memilih Excel Workbook, lihat tangkapan layar:

3. Lalu klik Save untuk menutup dialog, dan format Excel ini telah diubah dari xls menjadi xlsx.

Tips: Dengan ini Save As fungsi, Anda hanya mengonversi satu file Excel pada satu waktu, jika Anda memiliki ratusan file Excel yang perlu dikonversi, metode ini bukanlah pilihan yang baik.

Ubah beberapa format xls menjadi format xlsx sekaligus dengan kode VBA

Jika Anda ingin mengonversi beberapa file xls menjadi file xlsx sekaligus tanpa menyimpan satu per satu, di sini, saya akan berbicara tentang kode VBA untuk Anda, lakukan dengan langkah-langkah berikut:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

Kode VBA: Konversi beberapa format xls ke format xlsx sekaligus

Sub ConvertToXlsx()
'Updateby Extendoffice
Dim strPath As String
Dim strFile As String
Dim xWbk As Workbook
Dim xSFD, xRFD As FileDialog
Dim xSPath As String
Dim xRPath As String
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.Title = "Please select the folder contains the xls files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
With xRFD
.Title = "Please select a folder for outputting the new files:"
.InitialFileName = "C:\"
End With
If xRFD.Show <> -1 Then Exit Sub
xRPath = xRFD.SelectedItems.Item(1) & "\"
strPath = xSPath & "\"
strFile = Dir(strPath & "*.xls")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While strFile <> ""
If Right(strFile, 3) = "xls" Then
Set xWbk = Workbooks.Open(Filename:=strPath & strFile)
xWbk.SaveAs Filename:=xRPath & strFile & "x", _
FileFormat:=xlOpenXMLWorkbook
xWbk.Close SaveChanges:=False
End If
strFile = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan sebuah jendela akan ditampilkan, pilih folder yang berisi file xls yang ingin Anda ubah, lihat tangkapan layar:

4. Lalu klik OK, jendela lain muncul, pilih jalur folder tempat Anda ingin mengeluarkan file baru yang dikonversi, lihat tangkapan layar:

5. Dan kemudian, klik OK, setelah menyelesaikan konversi, Anda dapat pergi ke folder yang ditentukan untuk melihat hasil konversi, lihat tangkapan layar:


Konversikan beberapa format xls ke format xlsx sekaligus dengan fitur canggih

Dengan ini Kutools untuk Excel'S Format Converter utilitas, Anda dapat mengonversi beberapa format xls ke format xlsx atau sebaliknya, itu juga dapat membantu Anda mengonversi beberapa buku kerja ke file PDF sekaligus.

Catatan:Untuk menerapkan ini Format Converter, pertama, Anda harus mengunduh Kutools untuk Excel, lalu terapkan fitur dengan cepat dan mudah.

Setelah menginstal Kutools untuk Excel, lakukan seperti ini:

1. Klik Kutools Ditambah > Buku catatan > Format Converter, lihat tangkapan layar:

2. Dan kotak prompt akan muncul untuk mengingatkan Anda harus menutup buku kerja yang ingin Anda ubah. Lihat tangkapan layar:

3. Klik OK, lalu, di Pengonversi Format File dialog, tentukan opsi berikut:

  • Di bawah Jenis konversi daftar drop-down, pilih Excel 97-2003 ke Excel 2007 atau lebih tinggi;
  • Kemudian klik Add tombol untuk menambahkan file xls yang ingin Anda konversi, Anda dapat menambahkan buku kerja dari disk komputer atau OneDrive sesuai kebutuhan;

4. Setelah memasukkan file xls, masih dalam file Pengonversi Format File kotak dialog, silakan klik untuk memilih satu jalur folder untuk mengeluarkan file yang dikonversi, dan kemudian tentukan beberapa operasi yang Anda butuhkan di bagian bawah kotak dialog, lihat tangkapan layar:

Catatan: Pada kotak dialog di atas:
  • Jika buku kerja di subfolder perlu diubah juga, silakan periksa Sertakan subfolder saat menambahkan folder kotak centang;
  • Jika Anda ingin menghapus file asli setelah mengonversi, silakan periksa Hapus file sumber setelah konversi kotak;
  • Jika Anda ingin mempertahankan tanggal modifikasi dari file asli, silakan periksa Simpan tanggal modifikasi dari file asli kotak;
  • Struktur direktori file dapat dipertahankan dengan memeriksa Struktur direktori file dipertahankan saat dikonversi kotak;

5. Lalu klik OK untuk memulai konversi, setelah menyelesaikan konversi, Anda dapat membuka folder tertentu untuk melihat hasil konversi. Lihat tangkapan layar:

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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...

Deskripsi Produk


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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Please could you change the VBA code so that it looks in subfolders of the chosen folder.
Could it also output a log file to show everything its converted?
This comment was minimized by the moderator on the site
Thank You!
This comment was minimized by the moderator on the site
Thanks so much for the VBA CODE. Very Useful
This comment was minimized by the moderator on the site
Can you save a xls as a xlsx and maintain 1,048,576 rows and XFD Columns?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations