EXCEL VBAメモ - パスの取得

Sub msgCurPath()
    MsgBox ActiveWorkbook.path ' 本ブックのあるパス
    MsgBox CurDir              ' カレントパス(本ブックのあるパスではない）
End Sub