ファイル名を取得【VBA】

環境

Windowsの仕様

エディション:Windows 10 Pro

バージョン:20H2

経緯

VBAを使って、データを抜き取るプログラムを作っていました。

抜き取るデータのファイル名も欲しかったので、

今回勉強しました。

「fso.GetFile」を使う

「fso.GetFile」を使うとうまくいきました。コードを載せます。

Dim fso As FileSystemObject
Set fso = New FileSystemObject

Dim f As File
Set f = fso.GetFile("C:\Users\morinokabu\デスクトップ\test.txt")

Dim s As String
s = f.Name

Set fso = Nothing

コードの説明をします。空白の行はカウントしません。

1行目、変数を宣言してます。

2行目、オブジェクト変数(fso)にオブジェクト(New FileSystemObject)への参照を代入しています。

3行目、変数を宣言してます。

4行目、ファイルを取得しています。私の場合はCドライブの中にtxtファイルが入っているので()内はこんな感じになっています。

5行目、変数を宣言しています。

6行目、ここでファイル名を取得しています。

7行目、後処理です。

この後の展開

今後の展開としては、取得したファイル名をセルに貼り付けたり、

ファイル名を削ったりして、使用したりできますよ。

ここまで読んでいただきありがとうございました。