Excel でフォルダー内のすべての画像名またはファイル名をすばやく一覧表示するには?
画像やファイルのコレクションを扱う際、インベントリ管理やレポート作成、あるいは単なる迅速な参照のために、Excel でカタログや参照リストを作成することがよくあります。フォルダー内のすべての画像名やファイル名を手動でExcel シートに入力するのは、特にフォルダーに大量のファイルが含まれていたり、定期的に更新されたりする場合、非常に時間がかかり、ミスも起こりやすくなります。幸いにも、Excel にはこの作業を自動化し、正確性と効率を大幅に高めるための実用的な方法がいくつか用意されています。たとえば、組み込み機能、アドイン、スクリプトなどが活用できます。
このチュートリアルでは、右側のスクリーンショットに示されているように、指定したフォルダー内のすべての画像名やファイル名をExcel ワークシートに素早く一覧表示する実用的な手法を詳しく解説します。画像、ドキュメント、あるいは複数のファイル形式が混在している場合でも、ここで紹介する方法を使えば、作業フローが効率化され、大幅な時間短縮を実現できます。 クイックナビゲーション VBA を使用してExcel でフォルダー内の画像名を一覧表示 | ![]() |
VBA を使用してExcel でフォルダー内の画像名を一覧表示
標準では、Excel にはコンピューターのフォルダーからファイル名や画像名を自動的にワークシートに取り込むための組み込み機能は備わっていません。しかし、シンプルな VBA マクロを使えば、フォルダー内のすべての画像ファイル(または指定した他の種類のファイル)をExcel のセルに直接一覧表示できます。この方法は、こうした作業をたまに行う場合や、最大限のカスタマイズ性を求めたいとき、あるいは追加のアドインを使いたくない場合に特に適しています。また、画像ファイル以外にもさまざまなファイル拡張子に対応しており、コード内のファイルフィルターを必要に応じて調整するだけで簡単にご利用いただけます。
VBA メソッドは非常に強力ですが、慎重に実行する必要があります。コードを誤って編集すると、エラーが発生する可能性があります。スクリプトを実行する前に、必ずファイルパスと拡張子フィルターを確認してください。また、フォルダーの内容を一覧表示した後に変更を行っても、コードを再実行しない限りExcel 内は自動更新されませんのでご注意ください。以下にその使用方法を示します。
1.Excel で Alt+F11 を押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。
2.ポップアップウィンドウで、挿入>モジュールをクリックして新しいモジュールを追加し、ここに VBA コードを貼り付けてください。
3.以下のコードをモジュールウィンドウにコピー&ペーストします。
Sub PictureNametoExcel()
'UpdatebyExtendoffice
Dim I As Long
Dim xRg As Range
Dim xAddress As String
Dim xFileName As String
Dim xFileDlg As FileDialog
Dim xFileDlgItem As Variant
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xRg = xRg(1)
xRg.Value = "Picture Name"
With xRg.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
End With
xRg.EntireColumn.AutoFit
Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
I = 1
If xFileDlg.Show = -1 Then
xFileDlgItem = xFileDlg.SelectedItems.Item(1)
xFileName = Dir(xFileDlgItem & "\")
Do While xFileName <> ""
If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
I = I + 1
End If
xFileName = Dir
Loop
End If
Application.ScreenUpdating = True
End Sub 4.F5を押すか、VBA ウィンドウの実行ボタンをクリックしてスクリプトを実行すると、画像のファイル名リストを表示したいセルを選択するよう促すダイアログボックスが表示されます。
5.セルを確定した後、次に画像やファイルを一覧表示したいフォルダーの参照が求められます。正しいディレクトリに移動し、目的のフォルダーを選択してください。
6.OKをクリックすると、選択したフォルダー内のコードに記載された拡張子(.jpg、.png、.img、.ioc、.bmp)に一致するすべての画像ファイル名(フルパス付き)が、指定したExcel セルおよびその下のセルに即座に一覧表示されます。
注:条件内の拡張子を編集すれば、VBA コードをさまざまなファイル形式に対応させられます。If InStr(1, xFileName, 「.jpg」) + ... >0 Then。たとえば、Word ドキュメントのみを一覧表示したい場合は、If InStr(1, xFileName, 「.docx」) >0 Thenに変更してください。拡張子の前に必ずドット(.)を含めてください(例:「.pdf」は OK、「pdf」は NG)。複数の異なるファイル形式を一覧表示するには、図のようにプラス記号(+)で条件をつなげます。
重要な注意点:この VBA ソリューションは、選択したフォルダーの最上位レベルにあるファイルのみを一覧表示します。サブフォルダーや隠しフォルダー内のファイルを含めるには、コードを再帰処理に対応するよう調整する必要があります。
VBA ソリューションは高度なカスタマイズと柔軟性を提供しますが、ファイルリストを更新または再読み込みするたびにマクロを実行する必要があります。コードにあまり慣れていないユーザー、または定期的・自動的なワークフローを求めるユーザーにとっては、以下で説明するアドイン方式の方が効率的かもしれません。
![]() | 昇給と、家族とのんびり過ごす十分な時間が欲しいですか? Office Tab なら、Microsoft Office での作業効率が今すぐ50%アップします。
|
ファイル名リスト機能を使用してExcel でフォルダー内の画像名または特定のファイルタイプを一覧表示
さまざまなフォルダーからファイルや画像を頻繁に一覧表示する必要があり、さらにファイルの種類を絞り込んだり、サブフォルダーを含めるかどうかを選んだり、さらには直接ハイパーリンクを追加したりといった機能を求めているなら、Kutools for Excelに搭載されたファイル名リストユーティリティがまさにその目的に特化しています。このツールを使えば、次のような操作を効率的に行えます。
- あらゆるフォルダーからすべてのファイル拡張子を含む全ファイルを新しいワークシートに一覧表示し、追跡やカタログ作成を簡単にします。
- 画像、PDF、または任意のカスタム拡張子など、指定したファイルタイプのみをフィルターして一覧表示します。
- サブディレクトリ内のファイルを含め、隠しファイルと【Folder も表示することで、真に包括的なレポートを提供します。
300 もの高度なツールを搭載したKutools for Excel が、Excel 作業の80%を数秒で完了!何千回ものマウスクリックからあなたを解放します。
![]() |
|
Kutools for Excel をインストールした後(簡単かつ迅速なプロセス)、フォルダーからファイル名または画像名を一覧表示する手順は次のとおりです。
1.ファイルリストを表示したいExcel ワークブックを開きます。KUTOOLS PLUSタブに移動し、インポート/エクスポートを選択して、ファイル名リストをクリックします。
2.ファイル名リストダイアログボックスで、まずファイルや画像が保存されているフォルダーを選択するために
をクリックします。必要に応じて、サブディレクトリ内のファイルを含めるチェックボックスをオンにしてすべてのサブフォルダー内のファイルを含めたり、非表示ファイルとフォルダを含めるをオンにして隠しファイルも確実に一覧表示できるようにしたりしてください。
3.ファイルの種類セクションで、表示するファイルを指定できます。ここではいくつかのカスタマイズオプションをご利用いただけます。



4.詳細な追跡のために、ファイルサイズの単位ドロップダウン(バイト、KB、MB など)から希望のファイルサイズの単位を選択し、Excel 上の各ファイル名をシステム内の実際のファイルに直接リンクさせたい場合は、ハイパーリンクの作成にチェックを入れましょう。これにより、後でファイルを素早く開いたりナビゲートしたりするのに特に便利です。
![]() | ![]() |
5.OKをクリックすると、Kutools が指定したファイルの完全な一覧(オプションでファイルサイズ、種類、作成時刻などの追加情報付き)を新しいワークシートに生成します。
ヒントとトラブルシューティング:フォルダーに大量のファイルやサブフォルダーが含まれている場合、処理に数秒かかることがあります。期待通りのファイルがすべて含まれていない場合は、ファイルタイプフィルターやサブディレクトリオプションを再度確認し、隠しファイルやフォルダーが意図せず除外されていないかご確認ください。生成されたファイルが追加・更新され続けるディレクトリの場合は、ワークブック内のリストを最新の状態に保つために、ファイル名リストの作成プロセスを再度実行するだけで OK です。この方法は、定期的にドキュメントを作成する必要がある方や、デジタルアセットを一元管理したい方に特に便利です。
ファイル管理に役立つもう一つの便利なKutools 機能は、リンクテーブルの作成ツールです。Excel ファイル内のすべてのワークシートを簡単にドキュメント化したり、リンクしたりできます。これらのツールを組み合わせれば、ワークブックとファイルを包括的にドキュメント化することが可能です。
Kutools for Excel:Excel の複雑な操作を簡単に、そしてスピーディーに!使いやすくて多機能なツールが満載です。
Windows エクスプローラーからコピー&ペーストしてすべてのファイル名を一覧表示
スクリプトやアドインを使わずに、素早く基本的な要件を満たしたい場合は、Windows エクスプローラーと Excel を組み合わせてファイル名の一覧を取得できます。この方法は、ファイルタイプや高度なフィルタリングが不要な場合に効果的です。
1。目的のフォルダーを Windows エクスプローラー(ファイルエクスプローラー)で開いてください。
2。Ctrl+Aを押してすべてのファイルを選択し、Shiftキーを押しながらハイライトされたファイルのいずれかを右クリックします。コンテキストメニューでパスとしてコピーをクリックしてください。
3。Excel のワークシートに切り替えて開始セルを選択し、Ctrl+Vを押して貼り付けましょう。これにより、選択した各ファイルのファイルパス(ファイル名を含む)が挿入されます。
注:この方法では、フォルダー内のファイルを変更しても自動更新されず、サブフォルダーも含まれません。
ヒント:ファイル名のみを表示(フルパスは非表示)
フルパスではなくファイル名のみを表示したい場合は、Excel でパスからファイル名を抽出する数式を使用します。たとえば、ファイルパスが列 A にある場合、セル B1 に次の数式を入力します:
=TRIM(RIGHT(SUBSTITUTE(A1,"\",REPT(" ",255)),255)) B1 の数式を必要な行までコピーすれば、ファイル名のみを取得できます。必要に応じてセル参照を調整してください。
関連記事
どうすれば人と違う存在になって、ラクに働き、ゆとりある人生を楽しめるのでしょうか?
Kutools for Excel は、日々の業務効率を平均で80%向上させ、家族との時間や人生の楽しみを大幅に増やします。
300 もの高度なツールがExcel の課題の80%を解決。もはや解決策を検索して苦労する必要はなく、より簡単に業務を完了できます。
1500 ものExcel シナリオを簡単にこなして、毎日少なくとも1 時間節約できます。
5 分でExcel のエキスパートになって、周囲からの評価と昇進のチャンスを手に入れましょう。
ワンクリックのユーティリティで一括処理を実行し、何千回ものマウスクリックから解放されて、「マウス手」ともさよならしましょう。
定型的な数式の暗記や複雑な VBA から抜け出し、脳をリフレッシュしましょう。
110,000 社以上が選ぶこのソリューションは、高い効率を実現するビジネスパーソンや、世界に名だたる300 社以上の企業に支持されています。
わずか39 ドルの投資で、他社の4000 ドル相当のトレーニング以上の価値を提供します。
30 日間の無料トライアル(機能制限なし)を提供しており、いかなる理由でも30 日以内であれば全額返金いたします。
おすすめの生産性向上ツール
最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント:次に基づいてデータ分析を革新します:インテリジェント実行 | コード生成| カスタム数式作成 | データ分析とチャート生成| 拡張機能呼び出し… |
| 人気の機能:検索・ハイライト、または重複をマーキング | 空白行を削除する | データを失うことなく列の結合またはセルを | 数式を使用しない四捨五入... | |
| スーパー LOOKUP:複数条件 VLookup | 複数値 VLookup | 複数シート間 VLookup | ファジーマッチ.... | |
| 高度なドロップダウンリスト:ドロップダウンリストをすばやく作成 | 連動型ドロップダウンリスト | 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー:指定した数の列を追加|列の移動|非表示列の表示状態を切り替え|範囲および列の比較... | |
| 注目の機能:グリッドフォーカス | デザインビュー |強化された数式バー | ワークブックとシートマネージャー | リソースライブラリ(オートテキスト)| 日付ピッカー | ワークシートの統合 | 暗号化/セルの復号化 | リストからメール送信 | スーパーフィルター | 特殊フィルタ(太字のフォントを持つセルをフィルタリング/斜体/取り消し線。。。) 。。。 | |
| トップ15 ツールセット:12 テキストツール(テキストの追加、特定の文字を削除、...)| 50+チャートタイプ(ガントチャート、...)| 40+実用的関数(誕生日に基づいて年齢を計算します、...)| 19 挿入ツール(QR コードを挿入、パスから画像を挿入、...)| 12 変換ツール(単語に変換する、為替レートの変換、...)| 7 結合と分割ツール(高度な行のマージ、セルの分割、...)|さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50%も向上させ、毎日数百回ものマウスクリックを削減します!
すべてのKutools アドインが、たった1 つのインストーラーで完結。
Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。
- オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン+Office Tab Pro
- インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能(MSI 対応)
- 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
- 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得

信じがたいほど、2 つ以上のドキュメントを同時に扱う方が、1 つだけ扱うよりも簡単で高速です。
あらゆる1500 の業務シナリオを簡単にこなせます。解決策を探すために時間を浪費する必要はなく、人生を楽しむ時間が大幅に増えます。
