Fungsi Mendapatkan Direktori Kerja pada VBA
June 29, 2008 by maseko 
Saya sedang mencoba membuat script Visual Basic for Application (VBA) di Microsoft Excel yang salah satu tujuannya adalah untuk koneksi ke database Microsoft Access. Nantinya, meskipun dua file Excel dan Access tetap berada dalam satu direktori tetapi ada kemungkinan alamat direktori tersebut bisa berbeda sat digunakan pada komputer berbeda, misalnya ketika langsung dijalankan dari hardisk eksternal atau flashdisk seperti saat pembuatannya saat sekarang. Apalagi ada kemungkinan yang menggunakan nanti bukan saya.
Untuk itu, saya memerlukan suatu fungsi untuk memanggil alamat direktori yang saat ini digunakan oleh file Excel yang juga merupakan alamat direktori database Access. Hasil pencarian, saya menemukan fungsi berikut yang sejauh ini memang dapat digunakan.
Function GetCurDir()
Dim str As String
Dim pos As Integer
str = ActiveWorkbook.FullName
pos = InStrRev(str, "\")
str = Mid(str, 1, pos)
GetCurDir = str
End Function
Sumbernya ada di sini.
Posted in MS Office, TipsTricks
pertamax!!! saya jadi ikut2an narciss gini siy?! :)