F059 アクティブなファイルの拡張子なしのファイル名を表示する関数

　数式があるブックのファイル名を拡張子なしで取得する関数です。VBAで外部データの取り込みやファイルの出力をする場合などに使用できます。

VBEの標準モジュールに下のコードを登録して「Excelマクロ有効フォーム」で保存してください。
関数の登録方法は⇒♯000 ユーザー定義関数を登録する方法

登録されたら、シート上からユーザー関数「 FileNameB 」が使用できます。
使い方は　
ワークシート上で　= FileNameB () の関数として使用することで、アクティブなファイルのファイル名を拡張子なしで取得できます。

【例】
FileNameB() 　　⇒　Sample059

Function FileNameB()
’ アクティブなファイルの拡張子なしのファイル名を表示する関数
’ FileNameB()
On Error GoTo EXITFUN
FileNameB = Mid(ActiveWorkbook.Name, 1, _
InStr(ActiveWorkbook.Name, “.”)- 1)
EXITFUN:
End Function

ここで紹介したコード使用による損害に対しては一切責任は負えません。