超簡単！エクセルファイル名をフォルダから自動取得一覧化するコード

今回は、フォルダに保存されているファイル名をリスト化するエクセルVBAコードを紹介します。

ダイアログでフォルダを選択するだけで、そこにあるファイル名を一覧化表示できるというものです。

こんにちは、じゅんぱ店長（@junpa33）です。

超簡単に出来ます。

保存フォルダにあるエクセルファイルでそのファイル名を自動で一度に取得して、一覧表にするVBAコードを紹介します。

操作方法はフォルダの選択でダイアログでクリック選択するだけです。

コンテンツ

超簡単！エクセルファイル名をフォルダから
自動取得一覧化するコード

「エクセルVBAでフォルダに保存したファイルのファイル名を自動的にリスト化します。」

今回はこれがテーマです。

恐らく、皆さんはリスト化が最終目的ではなくて、そのリスト化をしてさらに何かをしたい、ということではないかなと思います。

そしてまた、その目的については、お読みいただいている方々個別いろいろだろうなと思います。

因みに、自分的には、リスト化のVBAコードが必要になったのは、

顧客別のある販売データを、月毎にエクセル1ファイルに纏めていましたが、ファイル内の特定の数値だけを通期の一覧表として作成する必要があった。
フォルダ内にあるすべてのファイルの「目次」（インデックス）を作成し、「その目次のクリックでそのファイルが開く」様にしたい。

という事でした。

これは、そういった目的達成のためのVBAコードの「主要部品」的なモノだろうと思います。

ファイル名の自動取得一覧化のコード全体

このコード作成の肝は、

Shell関数を使って、フォルダ選択ダイアログを表示し選択できるようにすること。

Dir関数を使って、選択フォルダ内のすべてのファイルを抽出できるようにすること。

になります。

サンプル

エクセルの「Sheet1」シートにファイル名の一覧表を表示します。

ファイル名リスト化コード

Sub ファイル名()

    Dim Shell As Object, FPath As String
    Dim i As Long, Fname As String
    Dim MB As Workbook
    Dim Patha As String, DA As Variant
    
    Set MB = ThisWorkbook
    
    Set Shell = CreateObject("Shell.Application") _
        .BrowseForFolder(0, "フォルダを選択してください", 0, CurDir)

'キャンセルを選択
    If Shell Is Nothing Then
        FPath = ""
        MsgBox "フォルダ選択がキャンセルされました。", vbExclamation
        Exit Sub
        
    Else

'フォルダを選択し「OK」をクリック
'選択したフォルダのフルパスを入手
        FPath = Shell.Items.Item.Path
    End If
    
    Patha = FPath & "\"

'Dir関数を使います
    Fname = Dir(Patha & "*.xls*")

'スタート行番号設定変数
    i = 0

'すべてのファイルが検索されるまで
    Do While Fname <> ""
    
        i = i + 1
        MB.Activate
        Worksheets("Sheet1").Select
        Cells(i, 1).Value = Fname

'再検査します
        Fname = Dir()
        
    Loop
    Worksheets("Sheet1").Columns(1).AutoFit
    MsgBox "全部で" & i & "個ファイルがありました"

End Sub

実行結果

フォルダを選択します。

リストアップしたファイル数をメッセージ表示します。

フォルダ選択ダイアログのポイント

コード

Set Shell = CreateObject("Shell.Application") _ .BrowseForFolder(0, "フォルダを選択してください", 0, CurDir)

「CurDir」（デフォルトで表示するフォルダ）

この「カレントディレクトリ」の部分をドライブからの絶対パスで記述することも出来ます。

コード

If Shell Is Nothing Then FPath = ""

ダイアログボックスのキャンセルは、If条件文で公式的記述でこのようになります。

フォルダ内ファイルの検索方法のポイント

コード

'Dir関数を使います 
Fname = Dir(Patha & "*.xls*")

「Dir関数」に検索するファイル名（変数）を代入します。

今回はエクセルファイルに限定していますが、拡張子が4つありますので「ワイルドカード」を使って指定しています。

因みに、全ての拡張子と指定する時は「Patha & “*.*”」と指定します。

コード

'すべてのファイルが検索されるまで
Do While Fname <> ""

・・・

'再検査します 
Fname = Dir() 
Loop

「Do ～ Loop」の構文を使います。条件に今回は「While」を使いました。

ファイルリスト化の時に他のデータも吸い上げるポイント

コード

'必要な数だけの変数の宣言をする
Dim ValA As Variant

'データを取るためにそのエクセルファイルを開く
       Workbooks.Open (FPath & "\" & Fname)

'変数に代入する。どこのデータを取るかはそれぞれ
       ValA = Worksheets("Sheet1").Range("B11")

'フォーカスが変わってしまったので、元に戻す
       MB.Activate
       Worksheets("Sheet1").Select

'取って来たデータをどこに置くかはそれぞれ
       Cells(i, 2) = ValA
       Workbooks(Fname).Close False

「Do While ～ Loop」の中にこういったコードをはめ込むことになります。

目次へ戻る

エクセルファイル名をフォルダから自動取得一覧化まとめ

今回紹介したコードは、リスト化だけの ”骨組み” 的コードだけですので、

またそれぞれに、脚色していただければどうかと思います。

定番的なコード組み立てですので、使い勝手のいいものに仕上げてください。

データ検索という事では、この

無料ＤＬ「複数エクセルファイルのデータ収集ＶＢＡ」使用方法を説明

という記事もあります。

今回の記事はここまでです。

最後までお読みいただき有難うございました。

　VBA最速理解の記事一覧

エクセルVBA 関数 Int・Fix・Abs・Signで数値の整数部分を完全に分離する

エクセルVBA関数で、数値の整数部分だけを分離します。整数値取得のFix関数でなくInt関数の使用の場合でも、他の関数との組み合わせで解決することが出来ます。こんにちは、じゅんぱ店長（@junpa33）です。今回のテーマは、数値の整 ...
続きを読む

エクセルVBA Rnd関数で乱数を取得。簡単な加工コードで発生値を変化させる

エクセルVBAのRnd関数で乱数を取得します。実用のためにはコードに簡単な加工をする必要があります。特に乱数値の整数化とRandomizeは必須です。 6.5兆通りのパスコードの生成方法も解説しています。こんにちは、じゅんぱ店長（@ju ...
続きを読む

エクセルVBA 数値の切り上げ、切り捨てに要注意「RoundUpとRoundDown関数」

エクセルVBA 数値の切り上げ、切り捨てをするときには注意しなければいけません。 RoundUp関数とRoundDown関数を使う時に負の数が混在していると、そのままだと誤った計算結果になることがあります。こんにちは、じゅんぱ店長（@ju ...
続きを読む

エクセルVBA 数値を四捨五入したい時のRound関数の使い方と注意点

エクセルVBAでも数値を四捨五入したい時は、Round関数を利用することが多いです。 Round関数の使い方はワークシートと同様ですが、ただ大きな注意点があります。ここではその注意点も含めて使い方の説明を行います。こんにちは、じゅんぱ店 ...
続きを読む

エクセルVBA ワークシート関数 Max・Min・Averageで最大値・最小値・平均を求める

エクセルVBAで、ワークシート関数 Max・Min・Averageを利用して最大値・最小値・平均を求めます。「簡単で短いエクセルVBAコード組み立て」を目指す上では、ワークシート関数は強い味方です。こんにちは、じゅんぱ店長（@junpa ...
続きを読む

エクセルVBA Instr関数・InstrRev関数で文字列を検索する

InStr関数・InStrRev関数は、文字列操作系の関数の中でも最重要です。この関数により指定の文字（列）の存在位置が取得できます。そしてそれを目盛基準として、文字列操作をすることもできます。こんにちは、じゅんぱ店長（@junpa3 ...
続きを読む

エクセルVBA Replace関数で文字列を置換・削除。VBA最速理解

エクセルVBAで使える関数にReplace関数があります。 Replace関数は検索の文字列を指定の文字列に置換したり、削除したり出来ます。利用価値の高い関数です。使い慣れておきましょう。こんにちは、じゅんぱ店長（@junpa33）です ...
続きを読む

エクセルVBA Select Case 条件分岐ステートメントの使い方の基本

エクセルVBAで、必須の条件文。その中の一つで、Select Case 条件分岐ステートメントの使い方を説明します。簡単なコード、可読性の向上が特徴のステートメントです。是非、知っておきましょう。こんにちは、じゅんぱ店長（@junp ...
続きを読む

エクセルVBA Val関数の使い方「値を文字列型から数値型へ変換する」

エクセルVBAのVal関数の使い方についてです。「値を文字列型から数値型へ変換する」という機能があります。データ型が不一致の場合、プログラムエラーでコード停止が発生することが良くあります。こんにちは、じゅんぱ店長（@junpa33）で ...
続きを読む

エクセルVBA String関数の使い方「文字を指定した数だけ並べることが出来る」

エクセルVBA String関数の使い方についてです。「文字を指定した数だけ並べることが出来る」という機能の関数です。この関数を使えば簡潔なコード記述で実行することが出来ます。こんにちは、じゅんぱ店長（@junpa33）です。今回は ...
続きを読む

エクセルVBA Join関数の使い方配列変数で文字列を要素化した時に効く

エクセルVBAでJoin関数の使い方について説明します。文字列を接続する関数ですが、配列変数で文字列を要素化した時にはこれを使います。また「区切り文字」も自由に設定できます。こんにちは、じゅんぱ店長（@junpa33）です。今回は ...
続きを読む

エクセルVBA Mid関数・Right関数・Left関数で文字列の一部を切り出す

エクセルVBAで文字列操作は、コード作成の中でも重要な部分です。 Mid・Right・Left関数は、その操作の中で重要な働きをする関数です。文字列を切り出すこの関数の基本部分を説明します。こんにちは、じゅんぱ店長（@junpa33）で ...
続きを読む

エクセルVBA スペースを取り除くTrim関数・RTrim関数・LTrim関数の使い方

Trim・RTrim・LTrimは文字列の端にあるスペースを取り除きます。ちょっとのことですが、取り込みデータにスペースが付いていることでのエラーは発見修正が結構厄介です。注意が必要です。こんにちは、じゅんぱ店長（@junpa33）で ...
続きを読む

エクセルVBA Str関数とCStr関数の知っておくべき違いと使い方を説明します

エクセルVBAで、Str関数とCStr関数に使い方とその違いについて説明します。戻り値にちょっとした違いがあります。使い方の違いでその後のコードの進行に影響が出ることがあり、なおざりにはできません。こんにちは、じゅんぱ店長（@junp ...
続きを読む

エクセルVBA Len関数で文字列の文字数を知る方法

Len関数の使い方ついて説明します。エクセルVBAでプログラミングを行う時に、テキストデータを加工処理するには必須の関数です。非常に有用な関数ですので、是非使えるようになっておきましょう。こんにちは、じゅんぱ店長（@junpa33）で ...
続きを読む

【2種類のチェックボックス】エクセルシートへの設置と使い方の違いを解説

エクセルシートで使う場合の、2種類あるチェックボックスの設置と使い方の違いを解説します。一見簡単そうですが、単純でない使い方をしたい時は、設置方法と設定方法を工夫する必要があります。こんにちは、じゅんぱ店長（@junpa33）です。 ...
続きを読む

エクセルワークシートへのオプションボタン設置方法の詳細と使い方のコツ

エクセルで書類を作成する時、項目を選択できるようにするのがオプションボタンです。これには2種類あり、使い方にかかわる違いもあります。詳しいオプションボタン設置方法と使い方のコツを解説します。こんにちは、じゅんぱ店長（@junpa33） ...
続きを読む

エクセルVBA ファイルの保存に年月日＋時刻を付けて管理する方法

エクセルVBAコードで、ファイルの保存時に名前を付けて保存について、その時の年月日を付けたい時の設定方法についてです。保存されたファイルがたくさん増えて行く中で、ファイルの判別で年月日を付けている（付けたいと思っている）人も多いでしょう。 ...
続きを読む

エクセルVBA 同じ項目をまとめる（重複データの整理）コード作成

今回は、同じ項目を一つにまとめるためのエクセルVBAコードを紹介します。多数銘柄の商品を複数の店で扱っている場合、商品銘柄集計表を作るには、商品銘柄の種類だけをリストにしないといけません。こんにちは、じゅんぱ店長（@junpa33）です ...
続きを読む

エクセルVBA 不要なフォルダを削除するコードの作成方法

今回は、不要なフォルダをサクッと削除するエクセルVBAコードを紹介します。削除の仕方は2つあります。VBA自身の機能を使うことと、FSOの機能を使うことの2つです。こんにちは、じゅんぱ店長（@junpa33）です。エクセルVBAで、不 ...
続きを読む

エクセルVBA 要らないファイルを自動削除するコードの作り方

今回は、フォルダに保存されている要らないファイルを削除するエクセルVBAコードを紹介します。フォルダを開いて一つずつファイル名を確認して、ではなくて、コード実行一発でササッと完了します。こんにちは、じゅんぱ店長（@junpa33）です。 ...
続きを読む

エクセルVBA カレントフォルダを簡単に変更できるChDirの使い方

エクセルVBAのステートメントで「ChDir（チェインジディレクトリ）」というのがあります。少々地味感のあるステートメントですが、この使い方のポイントを説明いたします。こんにちは、じゅんぱ店長（@junpa33）です。エクセルVBAの ...
続きを読む

エクセルVBA Findメソッドでの検索の方法とコード組み立てのコツ

今回は、データの検索方法で、エクセルVBAでできるメソッドについてです。「FindとFindNextメソッド」の使い方と最速理解のコードの組み立て方を説明したいと思います。こんにちは、じゅんぱ店長（@junpa33）です。エクセルの検 ...
続きを読む

ワークシート関数VLookupをエクセルVBAで使う。利用法と注意点

今回も、エクセルVBAで利用できるワークシート関数についてがテーマです。この記事では、データナンバーなどから、その必要な値や数値を抽出する「Vloolup関数」について使い方を説明します。こんにちは、じゅんぱ店長（@junpa33）です ...
続きを読む

エクセルVBA Index関数の使い方。行と列の指定で簡単にセル値の抽出

今回も、エクセルVBAで利用できるワークシート関数についてがテーマです。この記事では、データリストから必要な値や数値を取り出してくる「Index関数」について使い方を説明します。こんにちは、じゅんぱ店長（@junpa33）です。エクセ ...
続きを読む

エクセルVBAで使うMatch関数活用度アップでテッパン関数に！

エクセルVBAで利用できる関数についてがテーマです。今回は、データリストから必要な値や数値を取り出してくる「Match関数」について、使い方を説明します。こんにちは、じゅんぱ店長（@junpa33）です。エクセルVBAでよく使うワーク ...
続きを読む

エクセルVBA 2次元動的配列変数を実例的利用法で最速に理解

エクセルVBAで変数を利用するとき、二次元配列変数を知っていれば何かと便利なことがあります。今回はそんな配列変数をより実際に近い例題で説明していきます。こんにちは、じゅんぱ店長（@junpa33）です。エクセルVBAのプログラムでは、 ...
続きを読む

エクセルVBA 配列に関わる関数とステートメントを最速に理解

エクセルVBAで配列を利用する時、それに関わる関数やステートメントを利用すれば、より簡潔にコードを作成することが出来ます。こんにちは、じゅんぱ店長（@junpa33）です。エクセルVBA 配列を扱うときに利用できる関数とステートメント ...
続きを読む

エクセルVBA 1次元配列変数の利用法を最速に理解

エクセルVBAで変数を利用するとき、複数の同じ型で変数を設定したいときがあります。そんな時、出番となるのが配列変数ということです。こんにちは、じゅんぱ店長（@junpa33）です。エクセルVBAの1次元配列変数の使い方を説明します。 ...
続きを読む

エクセルVBA コマンドボタンをシートに簡単設置する方法

エクセルVBAのプログラムを実行するのに、ワークシート上に設置したボタンのクリックでワンポチっとで行いたい。そんなボタンの簡単設置方法を紹介します。こんにちは、じゅんぱ店長（@junpa33）です。エクセルVBAで、シートにマクロ（プ ...
続きを読む

エクセルVBA SUM関数で合計計算！実務で使えるコード作成

エクセルVBAで、羅列された数値の集計作業をパパッと熟していきたいときがありますよね。それを簡単に行える方法としてSUM関数があります。今回はこのSUM関数の使い方についてです。こんにちは、じゅんぱ店長（@junpa33）です。エクセ ...
続きを読む

エクセルVBA 2つのInputBox。特徴を生かした使い分け

エクセルVBAのプログラムで、利用者からの入力データを取り込んでコードを実行していくことがあります。その簡潔な方法としてInputBoxがあります。今回はこのInputBoxの使い方についてです。こんにちは、じゅんぱ店長（@junpa3 ...
続きを読む

エクセルVBA データ入力済セルの最終行番号を取得する方法

エクセルVBAのプログラム作成で、入力データをその都度蓄積していく場合など、既にデータの入っている最終セルの位置を調べたいという時が多くあります。こんにちは、じゅんぱ店長（@junpa33）です。エクセルVBAのコード組み立てで、デー ...
続きを読む

With～End Withの使い方。VBAコードを簡潔に記述する

エクセルVBAのコードの組み立てでは、視認性や可読性を上げるためにできるだけ記述を簡潔にしたいところです。 Withステートメントは、そういったコード記述を簡潔にする役割があります。こんにちは、じゅんぱ店長（@junpa33）です。エク ...
続きを読む

エクセルVBA シートのクリアーを目的のメソッド別に最速理解

エクセルVBAでシートを再利用するために、一度内容すべてをクリアしたい時があります。普通は、Clearメソッドを使ってクリア操作を行いますが・・・こんにちは、じゅんぱ店長（@junpa33）です。エクセルVBAを組み上げる中で、シート ...
続きを読む

エクセルVBA Offsetの使い方。セルや選択範囲を移動する

エクセルVBAで、セルやセルの選択範囲を移動させるのにOffsetプロパティがあります。今回の「VBA最速で理解」は、この便利な「Offsetプロパティ」の使い方について説明します。こんにちは、じゅんぱ店長（@junpa33）です。エ ...
続きを読む

VBA 新規作成ブックとシート。アクティブ状態でやっておくこと

エクセルVBAで、アクティブセル、アクティブシート、アクティブブックという「現在参照中の・・・」というオブジェクトがあります。今回の「VBA最速で理解」は、この「ActiveWorkbook」「ActiveSheet」「ActiveCel ...
続きを読む

VBA 似た者SelectとActivateの違いを最速に理解

エクセルVBAで、そのコードを実行する先のオブジェクトに、フォーカスするためのメソッドに、「Select」と「Activate」があります。今回は、このよく似た「Select」と「Activate」について説明します。こんにちは、じゅん ...
続きを読む

エクセルVBA 始めての起動。VBEの立ち上げ、保存と終了

エクセルVBAを始めようとしたときに一番最初に戸惑うのが、「どうしたらVBAコードを書く表示画面になるのか？」だと思います。今回は、この「どうしたら、その画面になるんだろう？」についての方法を説明します。こんにちは、じゅんぱ店長（@ju ...
続きを読む

メッセージボックス MsgBox実際の使い方を最速に理解

エクセルVBAでユーザーフォームを使わなくても、簡単なユーザーとのやり取りならメッセージボックスでも可能です。今回は、この「ユーザーへのメッセージや選択肢を提示する」ユーザーフォームについての説明をします。こんにちは、じゅんぱ店長（@j ...
続きを読む

VBA 回数不定のループ処理はDo LoopとFor Each

以前の記事でも書いたように、エクセルを使った業務で、「ループの処理」コードは重要な実行処理部分です。今回は、このもう一つの「ループの処理」である「実行回数が限定されないループ処理」を行うコードについて説明します。こんにちは、じゅんぱ店長 ...
続きを読む

Excel VBA 保存先フォルダをダイアログ指定で変数化

エクセルを使った業務で、「作成したファイルの保存」は作業の最後に必ず必要な部分です。今回は、この「作成したファイルの保存」を行うための重要部分。保存先フォルダをVBAで指定する方法を説明します。こんにちは、じゅんぱ店長（@junpa33 ...
続きを読む

エクセルVBA 変数の適用範囲を宣言方法でコントロールする

エクセルVBAのコード組み立てで使う変数。「この変数を使いますよ！」というのが「変数の宣言」です。今回は、この変数の宣言についてです。こんにちは、じゅんぱ店長（@junpa33）です。エクセルVBA のコード組立ての中で、変数の宣言は ...
続きを読む

エクセルVBA 「If条件文」を最速に理解。条件の絞り方

エクセルVBAのコード組み立てで最も必要な、最もよく使うメソッドの１つで「If~Then~Else」があります。今回はこの「If~Then~Else」メソッドについて設定条件の絞り方のポイントを説明します。こんにちは、じゅんぱ店長（@j ...
続きを読む

ワークシートのコピーを最速に理解！VBAコードで選ぶコピー結果

エクセルVBAのコード組み立てで、よく使うメソッドの１つで「Copy」メソッドがあります。今回はこの「Copy」メソッドの使い方を説明します。こんにちは、じゅんぱ店長（@junpa33）です。エクセルVBAで、ワークシートのコピーをを ...
続きを読む

Gotoステートメントの利用法を最速に理解。毒コードと薬コード

エクセルVBAのコードで、Gotoステートメントは嫌われ系のグループにはいっています。それでも、GotoがあるのでVBAコード組み立てがスムーズに、楽に、なる事も多いと言うのも事実です。こんにちは、じゅんぱ店長（@junpa33）です。 ...
続きを読む

エクセルVBA！For～Nextの入れ子ループを最速に理解する

エクセルVBAのコード組み立てで、非常によく使うステートメントの一つにFor～Nextでのループ処理があります。今回はこのFor～Nextステートメントの使い方を説明します。こんにちは、じゅんぱ店長（@junpa33）です。エクセルV ...
続きを読む

プチなＶＢＡコード一覧

１クリック！エクセルＶＢＡで同一データを複数セルに簡単入力する

こんにちは、じゅんぱ店長（@junpa33）です。今回は、ちょっとしたお遊び要素もあるエクセルＶＢＡの紹介です。同じデータを複数のセルに入力できる「データスタンプＶＢＡソフト」を紹介します。データの入力を、まるでスタンプを押すような感 ...
続きを読む

複数セルに簡単に入力できる「データスタンプＶＢＡソフト」の作り方

こんにちは、じゅんぱ店長（@junpa33）です。今回は、「データスタンプＶＢＡソフト」のＶＢＡコードの説明を行います。簡単なコードですので、すぐに出来てしまうと思います。どんなソフトかというのは、こちら↓でご覧いただけます。１クリ ...
続きを読む

エクセルVBAマルチページ作成。秘密鍵コードで非表示化！

こんにちは、じゅんぱ店長（@junpa33）です。今回は知識編、マルチページの設置方法です。ユーザーフォームはマルチページでデザイン数も広がります。使ってみる前は難しく思えますが、設置は至って簡単！非表示化で秘密コマンドも作れます。 ...
続きを読む

無料DL！エクセルシートの非表示ソフト。VBAで簡単ボタン操作

今回はエクセルVBAソフトのプチなバージョンです。こんにちは、じゅんぱ店長（@junpa33）です。無料ダウンロードできます。エクセルシートを非表示に変更するソフト。 VBAコードで「ボタンのONとOFF」で行います。使用中エクセルBO ...
続きを読む

取説！シート非表示VBAソフトの使い方を解説します。スキルで時短

今回は前記事のエクセルVBAソフトの使い方を解説します。こんにちは、じゅんぱ店長（@junpa33）です。エクセルシートを表示と非表示に変更できるソフトの使い方です。起動させるにはまずロックを外す必要があります。トグルボタンのONとO ...
続きを読む

エクセルVBA Gotoで移動！シート非表示ソフトのコード解説

今回は、エクセルシート非表示VBAソフトのコードの説明を行います。こんにちは、じゅんぱ店長（@junpa33）です。エクセルVBAのIf～Gotoで処理分岐します。シート非表示VBAソフトのコードの紹介です。コントロールのイベント処理 ...
続きを読む

超簡単！エクセルファイル名をフォルダから自動取得一覧化するコード

今回は、フォルダに保存されているファイル名をリスト化するエクセルVBAコードを紹介します。ダイアログでフォルダを選択するだけで、そこにあるファイル名を一覧化表示できるというものです。こんにちは、じゅんぱ店長（@junpa33）です。超 ...
続きを読む

Excel VBA 絶対パスを階層単位で変数化させ、ディレクトリ指定を超楽チンにする方法

エクセルVBAで、絶対パスはちょっと記述が面倒で、相対パスのほうが使いやすいという方も多いと思います。それぞれに利点と欠点はあります。今回は絶対パスを変数化して使用時の利便性UPを考えていきます。こんにちは、じゅんぱ店長（@junpa ...
続きを読む