vbaマクロからXlsファイルのパスを取得する

vba

ActiveWorkbook.Path=xlsファイルのパス
ThisWorkbook.path=もし実行しているマクロがアドインだったらアドインのパスが返る

ネタ元