【Excel VBA】取り込んだファイルのファイル名を取得するには？

都度、対象CSVを指定できるようにして、処理するマクロを作りました。
その中で、以下の方法でCSVを選択できるようにしています。

MsgBox "ファイルを指定してください｡ "
Path = CurDir & "\"
Target = Application.GetOpenFilename("テキスト ファイル,*.csv", Title:="ファイルを指定してください")

ただし、Targetにはフルパスを含めたファイル名が代入されてしまいます。
Targetからファイル名のみを取り出すにはどうしたら良いでしょうか？
例えばFilenameみたいな変数に「〇〇〇〇.csv」の様にファイル名だけ入ると助かります。

No.1 回答者： くんこば 回答日時： 2021/09/27 01:13

がんばれ

https://www.google.com/amp/s/excelwork.info/exce …

この回答へのお礼

ありがとうございます。
ご案内いただいたサイトから出来ました。
fsoの場合、VBAのツール→参照設定を操作しないといけないのがちょっと難点ですね。(マクロを使う人にも設定させないといけない。)

お礼日時：2021/09/27 19:55

No.2 ベストアンサー 回答者： bonaron 回答日時： 2021/09/27 05:24

Filename = Dir(Taeget)

とか。

この回答へのお礼

ありがとうございます。
こんなに簡単にできちゃうんですね！

お礼日時：2021/09/27 19:54

No.3 回答者： Qchan1962 回答日時： 2021/09/27 13:42

こんにちは

FSO、Dir関数はすでに回答にあるので
文字列操作の場合
fname = Right(Target, InStr(StrReverse(Target), "\") - 1)