Excelブックの保存されているパスを取得する

ブックの保存されているパスがわかると，VBAからファイルなどを作成して保存するときに同一ディレクトリに保存したりするのが楽になると思います。結構簡単に取り出せます．

【事例】
Sub Get_Path()
path_name = ActiveWorkbook.Path
If path_name = "" Then
MsgBox "ブックを1度保存してから実行して下さい"
Exit Sub
End If
MsgBox "ブックのある場所は" & path_name & "です．"
End Sub

上記のActiveWorkbook.Pathで取り出すことができます．あとは，煮るなり焼くなりしてください．