いきなりマニアックだ（＾＾；；
アクティブになってるEXCEL BOOKのpathは以下のように取得が出来る。

 ACTIVE_DIR = AtiveWorkbook.Path

 これだと、複数BOOKを開いてる場合、直前にSELECTしたBOOKのPATHが取得される。

最近はLINUXでシェルを書くことが多くてついつい../とかしたら1階層上を取得できるやん！！って思ってしまった（汗

さて、VBAの場合はどうするかというと、以下のコードで取得が可能

 BASE_DIR = Left(ActiveWorkbook.Path, InStrRev(ActiveWorkbook.Path, "\") - 1)

ちなみに、VBAを実行しているBOOKはThisWorkbookってのでも取得可能だよ（＾＾）