ディレクトリをチェンジ

'　Excelを起動して、ブックを開くと、ディレクトリはチェンジされるが、
'　フォルダーでブックを開いて、関連づけで、Excelを起動すると、
'　ディレクトリはチェンジされない。
dim　path as string

'　マクロがあるブックのディレクトリを変数に代入する。
path = ThisWorkbook.path ' このマクロのあるpathをセット

'　ドライブをチェンジする。
ChDrive Mid(path, 1, 1)

'　ディレクトリをチェンジする。---　ドライブのチェンジは行われない。
ChDir path '　このマクロのあるpathにパス変更する。

'　パスをセルに代入する。
Range("b10") = path