フルパスからファイル名を取得する簡単なファンクションです。

VBAの中で呼んでも良いし、Excelシートから直接呼び出してもOKです。

'***パラメータで与えられたフルパスから"/"とか"\"(円マーク)とかで区切って、ファイル名を返す。

Function fGetfname(a As String) As String

    asplit = Split(Replace(a, "/", "\"), "\")

    fGetfname = asplit(UBound(asplit))

End Function