数式があるブックのフォルダ名を取得する関数です。VBAで外部データの取り込みやファイルの出力をする場合などに使用できます。
VBEの標準モジュールに下のコードを登録して「Excelマクロ有効フォーム」で保存してください。
関数の登録方法は⇒♯000 ユーザー定義関数を登録する方法
登録されたら、シート上からユーザー関数「 FolderPath 」が使用できます。
使い方は
ワークシート上で = FolderPath () の関数として使用することで、 数式があるブックのフォルダ名を取得できます。
【例】
FolderPath() ⇒ C:\Users\Desktop
Function FolderPath()
’アクティブなファイルのフォルダ名を表示する関数
’ FolderPath()
On Error GoTo EXITFUN
FolderPath = ActiveWorkbook.Path
EXITFUN:
End Function
ここで紹介したコード使用による損害に対しては一切責任は負えません。