===== 1階層上のpathを取得 =====
いきなりマニアックだ（＾＾；；\\
アクティブになってるEXCEL BOOKのpathは以下のように取得が出来る。
<code>
 ACTIVE_DIR = AtiveWorkbook.Path

 これだと、複数BOOKを開いてる場合、直前にSELECTしたBOOKのPATHが取得される。
</code>
最近はLINUXでシェルを書くことが多くてついつい../とかしたら1階層上を取得できるやん！！って思ってしまった（汗\\
\\
さて、VBAの場合はどうするかというと、以下のコードで取得が可能
<code>
 BASE_DIR = Left(ActiveWorkbook.Path, InStrRev(ActiveWorkbook.Path, "\") - 1)
</code>
\\
ちなみに、VBAを実行しているBOOKはThisWorkbookってのでも取得可能だよ（＾＾）