Tips Membuka File Database Access dari Excel dengan Macro VBA
Dalam pembahasan-pembahasan sebelumnya menurut contoh kode macro Excel yang telah dijelaskan, tidak seperti aplikasi Office lainnya (baik Word atau PowerPoint) yang menggunakan perintah untuk membuka dan menutup aplikasi, untuk database Access sendiri pada kenyataannya yang Anda lakukan adalah menghubungkan aplikasi Access tersebut dengan Excel melalui adanya suatu sambungan database yang harus dibuat dahulu.
Tip singkat berikut ini akan menjelaskan cara membuka suatu file database Access dari Excel tanpa harus membuat sambungan database, jadi perintahnya cukup membuka file saja seperti yang banyak dilakukan seperti pada aplikasi Office lainnya.
Adapun perintah yang mampu mengerjakan tugas ini adalah perintah ShellExecute bersama dengan deklarasi fungsi ShellExecute dari API Windows yang tugasnya akan menjalankan operasi pada file tertentu yaitu membuka file database.
Dalam kasus ini, sebagai contoh Database1.accdb dalam alamat direktori komputer Anda.
Kode ini dapat bekerja sebagaimana mestinya pada versi Windows mulai dari XP bahkan Windows 8.1.
Jika Anda pengguna Excel dengan versi Office 64-bit, penjelasan tentang kata kunci PtrSafe telah dibahas pada postingan Cara Mengosongkan Recycle Bin dari Excel dengan Macro VBA.
Berikut ini kode macro yang dapat Anda tuliskan pada module VBE Excel:
Public Declare PtrSafe Function _
ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As LongPtr, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
#Else
Public Declare Function _
ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If
Sub BukaDBAccess()
Call ShellExecute(0, "Open", "Database1.accdb", "", _
"C:\Alamat\File\Anda", 1)
End Sub
Demikian cara membuka file database Access dari Windows dari Excel menggunakan macro tanpa membuka sambungan database.
Silakan dicoba dipraktekkan dan semoga postingan ini bermanfaat.