Coding4ever’s Blog

Just coding… coding… and coding… because coding should be fun :)

Tips Cara Mengecek Apakah Ms Excel Sudah Terinstall ?

| Comments

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 :D

Cara yang paling gampang adalah dengan mengecek key dibawah ini di windows registry :

1
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 :

1
2
3
4
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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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 :

1
2
3
4
5
6
7
8
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