excelVBAで、ファイルのあるカレントフォルダを取得する

CurDirでカレントフォルダが取得できるが、
欲しいのはそれじゃなくファイルを開いている場所のpathだよ！って場合

下記変数を参照する。

ActiveWorkbook.Path

例えば「名前をつけて保存」のデフォルトフォルダを
カレントに指定したい場合

ChDrive (ActiveWorkbook.Path)
ChDir (ActiveWorkbook.Path)

str_filename = Application.GetSaveAsFilename( _
    InitialFileName:="default_name", _
    fileFilter:="SQLクエリ (*.sql),*.sql" _
)