カレントディレクトリを取得するメモ。 common.bas Dim path As String 'カレントディレクトリ取得 path = ActiveWorkbook.Path MsgBox path 参考文献 Office VBA Reference