Excel セルにファイル名やワークシート名を表示させる

以前、Excelのセルにファイル名やワークシート名を表示させる方法があることを知って驚いたけど、忘れてしまったので、再度調べ直してしまった。忘れないようにメモします。

次の関数で、ファイルパスとワークシート名が取得できました。

=CELL("filename",A1)

関数の結果、セルには次のような文字列（ファイルパス＋"["+ファイル名+"]"+シート名）が表示されました。

C:\Documents and Settings\xxx\デスクトップ\[book1.xls]Sheet1

で、ファイル名だけ、シート名だけ取り出すためには、次のようにします。

ディレクトリ付きファイル名

=LEFT(CELL("filename",A1),FIND("]",CELL("filename",A1)))

ディレクトリなしファイル名

=MID(CELL("filename",A1),FIND("[",CELL("filename",A1))+1,FIND("]",CELL("filename",A1))-FIND("[",CELL("filename",A1))-1)

シート名

=RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1)))