Sebenarnya di ms Excel sudah ada fungsi untuk merubah file xlsx ke xls, yaitu dengan cara melakukan save as terus pilih excel 97 - 2003 workbook.
Nah, bagi yang malas buka file dulu terus save as untuk merubah xlsx ke xls, kita bisa membuat aplikasi sederhana untuk itu. Kebetulah karena aku cuma bisa VB6 dan punya installernya juga itu heheheee maka berikut ini adalah cara membuatnya:
pertama buat tampilan seperti ini:
Aku anggap anda sudah bisa membuka / membuat project di vb6, jadi aku tunjukkan saja mulai dari koneksi / reference yang diperlukan supaya vb6 bisa terhubung dengan ms.excel.
1. Pilih project
2. pilih reference
Dengan demikian anda sudah bisa terhubung dengan fungsi excel.
Tahap selanjutnya:
buat declarasi seperti ini di form
Dim exc As New Excel.Application
Dim excb As New Excel.Workbook
kemudian di tombol convert masukkan code ini
Dim filetarget, tujuan As String
On Error GoTo pesan
filetarget = Label2.Caption
tujuan = Label4.Caption
If Label2.Caption = "" Or Label4.Caption = "" Then
MsgBox "Please insert file target or save as file name", vbCritical, "Excel Converter"
Exit Sub
End If
Set excb = exc.Workbooks.Open(filetarget, no, , , , , , , , , False, , False)
exc.Visible = False
excb.CheckCompatibility = False
excb.SaveAs tujuan, xlExcel7, "", "", , , , , False
exc.Quit
MsgBox "Selesai!", vbInformation, "Excel Convert To 2003"
Exit Sub
pesan:
MsgBox "Error Code: " & Err.Number & Chr(13) & "Error Description : " & Err.Description, vbCritical, "Excel Converter"
End Sub
keterangan:
Filetarget adalah nama file yang akan di convert
Tujuan adalah nama file baru hasil convert
False warna merah yang pertama adalah menghilangkan notify
False warna merah yang kedua adalah tidak memasukkan file dalam MRU (jejak di mydocument)
False warna meerah yang ketiga adalah untuk menghilangkan peringatan compatibilitas antara xlsx dan xls (kalau kita save as kan biasanya muncul peringatan itu)
xlExcel7 itu artinya file di convert ke bentuk xls
Tanda petik ("") warna biru artinya file baru tidak mempunyai password untuk membuka atau modify
Selesai!, sangat sederhana. Bagaimana memasukkan file target dan tujuan (save as) anda bisa menggunakan common dialog.
Gampang kan?, sekarang sudah punya software converter xlsx ke xls buatan sendiri. Keren kan???!
Kalau mau yang sudah jadi bisa didownload di sini
Nah, bagi yang malas buka file dulu terus save as untuk merubah xlsx ke xls, kita bisa membuat aplikasi sederhana untuk itu. Kebetulah karena aku cuma bisa VB6 dan punya installernya juga itu heheheee maka berikut ini adalah cara membuatnya:
pertama buat tampilan seperti ini:
Aku anggap anda sudah bisa membuka / membuat project di vb6, jadi aku tunjukkan saja mulai dari koneksi / reference yang diperlukan supaya vb6 bisa terhubung dengan ms.excel.
1. Pilih project
2. pilih reference
3. pilih microsoft excel 12.0 object library
Dengan demikian anda sudah bisa terhubung dengan fungsi excel.
Tahap selanjutnya:
buat declarasi seperti ini di form
Dim exc As New Excel.Application
Dim excb As New Excel.Workbook
kemudian di tombol convert masukkan code ini
Dim filetarget, tujuan As String
On Error GoTo pesan
filetarget = Label2.Caption
tujuan = Label4.Caption
If Label2.Caption = "" Or Label4.Caption = "" Then
MsgBox "Please insert file target or save as file name", vbCritical, "Excel Converter"
Exit Sub
End If
Set excb = exc.Workbooks.Open(filetarget, no, , , , , , , , , False, , False)
exc.Visible = False
excb.CheckCompatibility = False
excb.SaveAs tujuan, xlExcel7, "", "", , , , , False
exc.Quit
MsgBox "Selesai!", vbInformation, "Excel Convert To 2003"
Exit Sub
pesan:
MsgBox "Error Code: " & Err.Number & Chr(13) & "Error Description : " & Err.Description, vbCritical, "Excel Converter"
End Sub
keterangan:
Filetarget adalah nama file yang akan di convert
Tujuan adalah nama file baru hasil convert
False warna merah yang pertama adalah menghilangkan notify
False warna merah yang kedua adalah tidak memasukkan file dalam MRU (jejak di mydocument)
False warna meerah yang ketiga adalah untuk menghilangkan peringatan compatibilitas antara xlsx dan xls (kalau kita save as kan biasanya muncul peringatan itu)
xlExcel7 itu artinya file di convert ke bentuk xls
Tanda petik ("") warna biru artinya file baru tidak mempunyai password untuk membuka atau modify
Selesai!, sangat sederhana. Bagaimana memasukkan file target dan tujuan (save as) anda bisa menggunakan common dialog.
Gampang kan?, sekarang sudah punya software converter xlsx ke xls buatan sendiri. Keren kan???!