http://www.efcit.co.jp/cgi-bin2/wwwlng.cgi?print+200406/04060065.txt
より。
ファイル名のみなら
=REPLACE(LEFT(CELL("filename"),FIND(".",CELL("filename"))-1),1,FIND("[",CELL("filename")),)
シート名のみなら
=MID(CELL("filename"),FIND("]",CELL("filename"))+1,31)
だそうです。
ちょっと仕事でデータまとめるときに必要だったので。