Tips cara mengecek apakah Ms Excel sudah terinstall ?
Jika Anda sering membuat laporan dengan format Ms Excel, maka adalah hal yang wajar jika sudah mengetahui cara ini tetapi jika belum juga jangan sungkan-sungkan untuk melanjutkan membaca artikel kali ini
Cara yang paling gampang adalah dengan mengecek key dibawah ini di windows registry :
HKEY_CLASSES_ROOT\Excel.Application
Jika ditemukan berarti Ms Excel sudah terinstall, nah sekarang bagaimana cara mengimplementasikannya di Visual Basic 6.
Pertama adalah kita harus mendeklarsikan beberapa fungsi API dan konstanta untuk mengakses windows registry, berikut deklarasi lengkapnya :
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Const HKEY_CLASSES_ROOT = &H80000000
Kemudian kita buat sebuah fungsi, misal saja dengan nama isExcelInstalled
Private Function isExcelInstalled() As Boolean
Dim ret As Long
On Error GoTo errHandle
RegOpenKey HKEY_CLASSES_ROOT, "Excel.Application", ret
RegCloseKey ret
isExcelInstalled = (ret <> 0)
Exit Function
errHandle:
isExcelInstalled = False
End Function
Selanjutnya kita panggil fungsi diatas dengan cara berikut :
Private Sub cmdExportToXLS_Click()
If Not isExcelInstalled Then
MsgBox "Maaf Ms Excel belum terinstall, proses ekspor batal", vbExclamation, "Peringatan"
Else
'TODO : Lanjutkan proses ekspor
End If
End Sub
Selamat mencoba
Comments