【VBA】ファイル名を取得する3つの神技！初心者も5分でマスターする完全ガイド

 

毎日のファイル整理作業に30分かかっている。。。手作業でファイル一覧を作るのが面倒。。。

 

こんな問題は

『ファイル名を取得するVBA』の導入

で解決することができます。

 

『ファイル名を取得するVBA』があれば、

100個のファイル処理が数秒で完了させる。月20時間の作業時間を短縮させる

なんて処理が可能です。

 

この記事では、

Dir関数・FileSystemObject・ThisWorkbookプロパティという3つの『ファイル名を取得するVBA』

を初心者でも理解できるよう丁寧に解説しています。

 

手間のかかるファイル操作はVBAを使って自動化しちゃいましょう。

 

VBAでファイル名を取得する基本知識と重要性

『ファイル名を取得するVBA』を導入すると

ファイル管理や集計作業、レポート作成など、あらゆるエクセル業務の効率をアップさせる

ことができます。

 

実際に私が勤めていた職場でも、

手作業で行っていたファイル整理作業をVBAで自動化することで、3時間以上かかっていた作業をたったの30分に短縮

することができました。

 

『ファイル名を取得するVBA』を導入して、あなたの職場のエクセル業務の効率をアップさせちゃいましょう。

 

ファイル名取得が業務効率化に与える3つのメリット

『ファイル名を取得するVBA』導入のメリットがこちら

• ファイルのリスト化作業の時間短縮
• ヒューマンエラーの完全防止
• ルーティーン作業の完全自動化

 

2時間以上かけて100個以上あるファイルの名前を手作業でリスト化している。しかも、このような作業を定期的に行っている。

こんな状況で作業しているなら、絶対に『ファイル名を取得するVBA』を導入すべきです。

 

ファイル名のリスト化なら、ほんの数秒で処理（マクロを実行するだけ！）ができ、編集ミスが発生する心配もありません。

さらに、

一度設定したVBAは半永久的に使用することができるので作業内容の変更がない限りマクロを使い続けることができます。

 

VBA初心者が知っておくべき基本用語と概念

『ファイル名を取得するVBA』のコードを書く前に、基本的な用語を理解しておきましょう。

 

ファイルパスとは、

コンピュータ内でのファイルの住所のような概念で、「C:\Users\Documents\sample.xlsx」のような形で表現

されます。

 

このパスは「ドライブ名＋フォルダ名＋ファイル名」で構成されており、VBAではこれらを個別に取得することができます。

また、

ワイルドカードという特殊な記号を使うことで、複数のファイルを一度に検索することが可能です。

 

たとえば、

「*.xlsx」と指定すれば、すべてのExcelファイルを対象にできる

ということです。

 

これらの基本概念を押さえておけば、どんな複雑なファイル操作も簡単に理解できるようになります。

 

ファイル名取得でよくある失敗パターンと対策

VBA初心者がファイル名取得で最もつまずきやすいポイントは、

存在しないファイルやフォルダを指定してしまうエラー

です。

 

このような問題を避けるためには、まずファイルやフォルダの存在確認を行う習慣をつけることが重要です。

また、日本語ファイル名や特殊文字（&、%、#など）を含むファイルで予期しない動作が起こることも考慮しておきましょう。

 

たとえば、

「売上データ&分析.xlsx」のようなファイル名では、&記号が原因でエラーが発生する

ことがあります。

さらに、パスが長すぎる場合（255文字を超える）もエラーが発生することが多いので注意してください。

 

これらの失敗を防ぐために、

事前のエラーハンドリングと適切な文字列処理を組み込むこと

に注意しましょう。

 

関連記事「エラーを無視するResume Nextの使い方」では、効率的なエラーハンドリングの方法が解説されています。

 

【神技1】Dir関数を使った基本的なファイル名取得方法

Dir関数は、VBAでファイル名を取得する最も基本的で強力な方法です。

 

Dir関数を自由に扱えるようになれば、

フォルダ内のファイル一覧取得から特定条件でのファイル検索まで、幅広い操作が可能

になります。

 

Dir関数の最大の魅力は、

シンプルな構文で複雑なファイル操作ができること

です。

 

あらゆるエクセル業務で応用できる関数なので、「Dir関数を使ってファイル名を取得する方法」をマスターしておきましょう。

 

Dir関数の基本構文と使い方を3分で理解

Dir関数の基本的な使い方は驚くほどシンプルで、たった1行のコードでファイル名を取得できます。

 

最も基本的な構文がこちら

Dir("ファイルパス")

 

指定したパスにあるファイル名を文字列として返します。

 

Dir関数を使ってテキストファイルを取得するサンプルコードがこちら

vbaSub BasicDirExample()
Dim fileName As String
fileName = Dir("C:\MyFolder\sample.txt")
MsgBox fileName '結果：sample.txt
End Sub

 

このコードは、

指定したパスにsample.txtが存在すれば「sample.txt」が返され、存在しなければ空文字列が返される

という内容です。

 

Dir関数は大文字小文字を区別せず、ファイルが見つからない場合は自動的に空文字列を返すためエラーハンドリングも簡単。

この基本パターンを理解すれば、より複雑なファイル操作をするマクロも作れるようになります。

 

関連記事「Dir関数の使い方」では、Dir関数の使い方やサンプルコードが紹介されています。

 

 

Dir関数の理解を深めたい方は併せてチェックしてみてください。

 

ワイルドカードを活用した効率的なファイル検索テクニック

ワイルドカードを使いこなすことで、Dir関数の検索能力は飛躍的に向上します。

 

 

 

 

これらを組み合わせることで、柔軟なファイル検索が可能になります。

 

たとえば、

Excelファイルのみを検索したい場合は「*.xlsx」、特定の文字で始まるファイルを探したい場合は「売上*.xlsx」

と指定します。

 

ワイルドカードを使ったサンプルコードがこちら

Sub WildcardExample()
Dim fileName As String
fileName = Dir("C:\Reports\売上*.xlsx")
Do While fileName <> ""
Debug.Print fileName '売上で始まるExcelファイルを表示
fileName = Dir()
Loop
End Sub

 

上記のコードは、

Reportsフォルダ内の「売上」で始まるエクセルファイル名を全て取得する

という内容です。

 

Dir関数とワイルドカードの組み合わせを使えば

数百個のファイルから必要なものだけを効率的に抽出

できるようになります。

 

Dir関数でフォルダ内の全ファイル名を一括取得するコード例

Dir関数を使ってフォルダ内の全ファイルを一括取得するには、ループ処理を組み合わせることが効果的です。

 

Dir関数は最初の呼び出しでパスを指定し、その後は引数なしで呼び出すことで次のファイル名を順次取得できるという特徴があります。

 

この仕組みを活用すれば、フォルダ内の全ファイル名を自動的に収集できます。

 

Dir関数を使ってフォルダ内のファイル名をまとめて取得するサンプルコードがこちら

Sub GetAllFileNames()
Dim folderPath As String
Dim fileName As String
Dim i As Integer

folderPath = "C:\MyDocuments\"
fileName = Dir(folderPath & "*.*")
i = 1

Do While fileName <> ""
Cells(i, 1).Value = fileName
fileName = Dir()
i = i + 1
Loop

MsgBox "ファイル一覧取得完了！"
End Sub

 

上記のコードは

指定フォルダ内の全ファイル名をA列に表示する

という内容です。

 

大量にあるファイルを瞬時にリスト化することができます。

 

【神技2】FileSystemObjectで高度なファイル名操作

FileSystemObjectは、Dir関数よりも高機能なファイル操作を可能にする上級者向けのツールです。

 

FileSystemObjectを使えば、

ファイルの詳細情報取得、サブフォルダの再帰的検索、そして複雑な文字列操作まで、

あらゆるファイル操作の自動化が可能。

 

特に大規模なファイル管理システムを構築の際に利用され、複雑なファイル操作が可能になります。

 

FileSystemObjectとは？Dir関数との違いを徹底比較

Dir関数が単純なファイル名検索に特化しているのに対し、FileSystemObjectはファイルの作成日時、サイズ、属性などの詳細情報まで取得することができます。

 

最大の違いは、

FileSystemObjectはファイルやフォルダをオブジェクトとして扱えるため、より直感的で読みやすいコードにできる

という点です。

 

FileSystemObjectを使ってファイル情報を取得するサンプルコードがこちら

Sub FileSystemObjectExample()
Dim fso As Object
Dim file As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.GetFile("C:\sample.xlsx")

MsgBox "ファイル名: " & file.Name & vbCrLf & _
"サイズ: " & file.Size & " bytes"
End Sub

 

上記のコードは

オブジェクトとしてsample.xlsxファイルを格納し、ファイルの名前とサイズを取得する

という内容です。

 

このように、Dir関数では不可能な詳細情報の取得が簡単に行えるのがFileSystemObjectの最大の利点です。

 

GetFileName・GetBaseName・GetExtensionNameの使い分け

FileSystemObjectの文字列操作メソッドは、ファイル名の各部分を正確に分離できる優れた機能です。

 

「GetFileName」「GetBaseName」「GetExtensionName」の違いがこちら

 

 

 

これらのメソッドを適切に使い分けることで、複雑な文字列処理を簡単に実現できるのです。

 

たとえば、

ファイル名を用途別に分類し、拡張子によって処理を分岐させる

といった処理条件にすることができます。

 

「GetFileName」「GetBaseName」「GetExtensionName」を比較するサンプルコードがこちら

Sub FileNameParsing()
Dim fso As Object
Dim fullPath As String

Set fso = CreateObject("Scripting.FileSystemObject")
fullPath = "C:\Documents\売上レポート2024.xlsx"

Debug.Print "フルファイル名: " & fso.GetFileName(fullPath) '売上レポート2024.xlsx
Debug.Print "ベース名: " & fso.GetBaseName(fullPath) '売上レポート2024
Debug.Print "拡張子: " & fso.GetExtensionName(fullPath) 'xlsx
End Sub

 

処理内容によって使い分けてください。

 

関連記事「ファイル情報を取得するマクロ」では、

FileSystemObjectを使ったファイル名を取得・編集するマクロが設定されたエクセルファイルをダウンロード

することができます。

 

 

めちゃくちゃシンプルなコードが設定されているのでアレンジも簡単。

 

サブフォルダまで含めた再帰的ファイル名取得の実装方法

FileSystemObjectの真の威力は、サブフォルダを含めた再帰的なファイル検索にあります。

Dir関数では困難な階層構造の深い検索も、FileSystemObjectなら簡潔なコードで処理可能です。

 

再帰処理を使うことで、指定フォルダ以下のすべてのサブフォルダを自動的に探索し、全ファイルを漏れなく取得できます。

 

再帰処理を使うサンプルコードがこちら

Sub FileNameParsing()
Dim fso As Object
Dim fullPath As String
Dim folder As String
folder = "H:\ブログ関係\Excel"
Set fso = CreateObject("Scripting.FileSystemObject")
Call RecursiveFileSearch(folder)
End Sub

 

Sub RecursiveFileSearch(folderPath As String)
Dim fso As Object
Dim folder As Object
Dim file As Object
Dim subFolder As Object
Dim i As Long
Dim LastColumns As Long
i = 1
LastColumns = Cells(1, Columns.Count).End(xlToLeft).Column
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderPath)
'現在フォルダのファイルを処理
For Each file In folder.Files
Cells(i, LastColumns + 1) = file.Name
i = i + 1
Next file
'サブフォルダを再帰的に処理
For Each subFolder In folder.SubFolders
RecursiveFileSearch subFolder.Path
Next subFolder
End Sub

 

実行結果がこちら

 

ファイル数が多くて表示しきれませんでした。

フォルダによっては最大で4階層ありましたが、全てのファイル名をリスト化することができます。

 

 

【神技3】実行中ファイル自身の名前を取得する裏技

VBAでは、現在実行中のExcelファイル自身の名前を取得することも可能です。

 

『実行中ファイル自身の名前を取得するVBA』は、

動的なファイル名生成やログ記録、バックアップファイル作成など、高度な自動化システムを構築する

という場面での利用が便利です。

 

複数のExcelファイルで同じマクロを使い回す、ファイル名に基づいて処理内容を変更したい、

というときに使用しましょう。

 

ThisWorkbook.Nameプロパティの効果的な活用法

ThisWorkbook.Nameプロパティは、現在実行中のExcelファイルの名前を瞬時に取得できる最もシンプルな方法です。

 

このプロパティの優れた点は、

ファイルがどの場所に保存されていても、また名前が変更されても、常に正確な現在のファイル名を返してくれる

ことです。

 

実際の業務では、

レポートの自動生成やログファイルの命名、バックアップファイルの作成時にファイル名を動的に組み込む

という場面で活用されます。

 

ThisWorkbook.Nameプロパティを使ったサンプルコードがこちら

Sub GetCurrentFileName()
Dim currentFileName As String
Dim baseFileName As String

currentFileName = ThisWorkbook.Name '拡張子付きファイル名
baseFileName = Left(currentFileName, InStrRev(currentFileName, ".") - 1)

MsgBox "現在のファイル名: " & currentFileName & vbCrLf & _
"ベース名: " & baseFileName
End Sub

 

上記のコードは

currentFileName（拡張子付き）のファイル名とbaseFileName（拡張子なし）のファイル名を取得する

という内容です。

 

ファイルパスから拡張子なしのファイル名だけを抽出する方法

ファイルパスから拡張子を除いたファイル名のみを取得する技術は、ファイル名ベースの処理システムを構築する際の重要なスキルです。

この処理には複数のアプローチがありますが、最も確実で効率的な方法は文字列操作関数を組み合わせることです。

特に、InStrRev関数を使って後ろから文字を検索し、適切な位置で文字列を切り出すテクニックは、汎用性が高いので自由に扱えるようにしておきましょう。

 

拡張子の位置を特定すし、名前を取得するVBAのサンプルコードがこちら

Sub ExtractFileNameWithoutExtension()
Dim fullPath As String
Dim fileName As String
Dim baseName As String
Dim dotPosition As Integer

fullPath = ThisWorkbook.FullName 'フルパス取得
fileName = ThisWorkbook.Name 'ファイル名部分取得

'拡張子の位置を特定
dotPosition = InStrRev(fileName, ".")
If dotPosition > 0 Then
baseName = Left(fileName, dotPosition - 1)
Else
baseName = fileName '拡張子がない場合
End If

MsgBox "拡張子なしファイル名: " & baseName
End Sub

 

この方法により、どんな複雑なファイル名でも確実に拡張子を除去できます。

 

InStrRev関数を使った文字列操作テクニック

InStrRev関数は、

文字列を後ろから検索する関数

です。

 

通常のInStr関数が前から検索するのに対し、InStrRevは後ろから検索するため、パス区切り文字（\）や拡張子区切り文字（.）の最後の位置を確実に特定することができます。

この特性を活用すれば、複雑なパス構造やファイル名でも正確な文字列操作が可能になります。

 

たとえば、

「C:\Folder.Name\File.backup.xlsx」のような複雑な名前でも適切な処理

が可能です。

 

InStrRev関数を使ったVBAのサンプルコードがこちら

Sub AdvancedStringManipulation()
Dim fullPath As String
Dim folderPath As String
Dim fileName As String
Dim baseName As String
Dim extension As String

fullPath = "C:\Projects\Data.Analysis\Report.Final.xlsx"

'最後の\の位置を取得
Dim lastBackslash As Integer
lastBackslash = InStrRev(fullPath, "\")

'最後の.の位置を取得
Dim lastDot As Integer
lastDot = InStrRev(fullPath, ".")

'パスの各部分を抽出
folderPath = Left(fullPath, lastBackslash - 1)
fileName = Mid(fullPath, lastBackslash + 1)
baseName = Mid(fullPath, lastBackslash + 1, lastDot - lastBackslash - 1)
extension = Mid(fullPath, lastDot + 1)

Debug.Print "フォルダパス: " & folderPath
Debug.Print "ファイル名: " & fileName
Debug.Print "ベース名: " & baseName
Debug.Print "拡張子: " & extension
End Sub

上記のコードは

文字列を切り出す関数を使って「フォルダのパス」「ファイル名」「ベース名」「拡張子」を別々に取得する

という内容です。

 

文字列を切り出す関数を使えば、どんな複雑なファイル名でも自由自在に操作できるようになります。

 

関連記事「文字列を切り出す関数の使い方」では、拡張子を消すために利用されるInstr関数の使い方が紹介されています。

 

 

VBA初心者が『ファイル名を取得するVBA』を導入する方法

 

VBAなんて扱ったことないけど、業務内容に合わせた『ファイル名を取得するVBA』を導入したい！

 

こんな問題を解決する方法がこちら

• マクロの開発を外注に依頼する
• マクロが設定されたエクセルファイルをダウンロードする
• 参考書やネットでVBAスキルを身に付ける

 

VBAスキルを身に着ける前は、「マクロ開発の外注」で対応していましたが、

今では自分で効率化マクロをサクッと導入しちゃいます。

 

VBAは

他のプログラミングに比べて参考書やネットで紹介されている情報量が多いので初心者でも導入しやすい

という特徴があります。

 

外注した方が楽だけど、費用がかかる。自分で導入すれば費用は０円だけど時間がかかる。。

いずれにせよ、効率化マクロを導入できれば作業効率が飛躍的にアップするのは間違いありません。

 

あなたに合った方法で導入しちゃいましょう。

 

マクロ開発を外注に依頼する

マクロ開発を外注に依頼する方法は

VBAを全く扱えない方でもエクセル作業を自動化できる最も簡単な方法

です。

 

「こんな感じでファイル名をリスト化したい」「取得したファイル名を資料に転記したい」

こんな感じで、実現したい内容を依頼するだけで業務内容に合ったマクロを開発してくれます。

 

 

 

デメリットは、費用がかかることだけ。

開発内容、依頼先によってかかる費用は大きく異なります。

私が会社員の頃利用していた業者さんは１マクロあたり2万円～3万円の費用がかかりました。

 

 

ちなみに、マメBlogでもエクセルマクロ開発代行サービスを承っています。

開発内容の確認、VBAコードの設定、動作確認後の調整、など全ての工程を私（マメ父ちゃん）が行っているので、

費用が安い！スピード納期！！

でやらせてもらっています。

 

ほとんど独学で身に付けたVBAスキルなので、内容によっては開発できないこともあるのでご了承ください。

 

ご相談、見積もり依頼は完全無料ですので気になる方は下記のリンクよりお問合せ下さい。

 

 

マクロが設定されたエクセルファイルをダウンロードする

VBA初心者でも『マクロが設定されたエクセルファイルをダウンロード』することで、

すぐに使っているエクセルにマクロを導入することができます。

 

VBA初心者でも形になっているマクロをゲットできる、費用が安い、

というメリットがあります。

しかし、

想定するマクロを見つけることが難しい、業務内容に合わせるためのアレンジが必要

というデメリットもあります。

 

 

個人ブログやファイルを販売できるサイト「note」や「Tips」ではいろんなマクロの情報が掲載されているので是非参考にしてみてください。

 

今までマメBlogで受注した効率化マクロを下記のnoteで掲載していますので併せてチェックしてみてください。

 

 

 

参考書やネットでVBAスキルを身に付ける

先程も紹介しましたが、

VBAは他のプログラミングに比べて参考書やネットで紹介されている情報量が多いので初心者でも導入しやすい

プログラミングです。

 

言い換えると、

情報量が豊富なので自分で勉強できちゃう

ということです。

 

私のVBAスキルはほとんど独学で身に付けたもので、

考えた処理のほとんどをVBAで表現できるレベルにまで到達した！

と思っています。

 

私の作ったマクロをプロのプログラマーが見れば、

お前の書くコードはインチキだ！「変数の宣言」とか「引数」を正しく使えよ！！

と感じるはずです。

 

でも、

私からすればどうでもいい！！！想定した内容を正しく処理できればよくないですか！？

 

独学であっても『写真を貼り付けるマクロ』『全てのシートをPDF出力するマクロ』『連番を振るマクロ』など、

業務内容に合ったマクロを開発できるようになれます。

 

独学でVBAスキルを身に付けるコツは、

エラーが発生してもいいからひたすらコードを書く、なんでもいいからエクセル作業をマクロ化してみる

です。

 

とは言っても、全くの知識0の方は何をすればいいかわからないですよね。

 

VBA知識0の初心者の方は、参考書『たった1秒で仕事が片づくExcel自動化の教科書【増強完全版】』を読んでみてください。

 

VBAの知識0の方でもすいすい読み進められる内容になっています。

やさしい内容にも関わらず「え！！VBAを使えばこんなことできるの！？」と感動すると思います。

 

実際に私はこの参考書を読んでからVBAの勉強を始めました。

 

 

 

VBAの魅力を発見した後は、

ひたすら自動化したい内容のコードを書くだけ

です。

 

【VBA ファイル名取得】【VBA ファイル名 リスト化】でネット検索すれば知りたいコードをすぐにゲットできます。

 

実現したい処理に向かって、「調べる→書いてみる→エラーを改善する→調べる」を繰り返していると

自然といろんなマクロが作れるようになっているはずです。

 

VBAに興味が湧いてきたという方は今からVBA学習をスタートさせちゃいましょう。