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.

----------------------

IKLAN – Mengikuti jejak kesuksesan I heart NY, Eko Punto Pambudi berinisiatif membuat ikon baru untuk Jakarta seperti nampak pada gambar di samping. Menurutnya ikon ini dibuat simpel dan mudah dipahami. Penggunaan "GW", bukan "Gue" atau "Saya" mencerminkan dinamika kota yang dinamis dan compact. Heart dibuat terbalik agar—bersama hurup "T"—membentuk ikon Jakarta, yaitu tugu Monas.

Kini, ikon tersebut ada pada sebuah kaos yang dapat anda dapatkan di sini.

Posted in MS Office, TipsTricks

Tulisan lain yang mungkin terkait dengan tulisan di atas:

1. Fungsi Terbilang untuk OpenOffice.org
2. Formula Kompatibel Datedif untuk OpenOffice.org Calc
3. Fungsi Datedif Microsoft Excel
4. Ikon-ikon Yang Menghilang
5. Fungsi Terbilang Untuk PHP