フォルダとサブフォルダからすべてのファイル名をワークシートにリストするにはどうすればよいですか？

ディレクトリからExcelワークシートにファイル名の一覧を生成する必要がある場合、次の方法はこれを迅速かつ効率的に実行するのに役立ちます。ニーズに最適なアプローチを選んでください。

• ウェブブラウザを使用してフォルダ内のすべてのファイル名をワークシートにリストする
• 数式を使用してフォルダ内のすべてのファイル名をワークシートにリストする
• VBAコードを使用してフォルダ内のすべてのファイル名をワークシートにリストする
• Kutoolsを使用してフォルダとサブフォルダからすべてのファイル名をワークシートにリストする

ウェブブラウザを使用してフォルダ内のすべてのファイル名をワークシートにリストする

ウェブブラウザを使用してフォルダ内のファイルをリストしたい場合、コンピュータにいずれかのウェブブラウザ（Firefox、Opera、Google Chrome）がインストールされていることを確認する必要があります。次のフォルダのファイルをワークシートにリストする必要があると仮定します。スクリーンショットをご覧ください：

1. エクスプローラでフォルダ（"Folder Test"）のパスをコピーします。例えば、このフォルダのパスは次のようになります："C:\Users\AddinTestWin10\Desktop\Folder Test"です。

2. ウェブブラウザ（FireFox、Opera、Google Chrome）のいずれかを開き、フォルダパスをアドレスバーに貼り付け、Enterキーを押します。スクリーンショットをご覧ください：

3. 「Ctrl+A」をクリックしてウェブブラウザ内のすべての内容を選択し、「Ctrl+C」を押してそれらをコピーします。

4. Excelを開き、直接（「Ctrl+V」ショートカットを使用して貼り付ける）ワークシートに貼り付けます。スクリーンショットをご覧ください：

数式を使用してフォルダ内のすべてのファイル名をワークシートにリストする

Excelでは、数式を使用してフォルダからすべてのファイル名または特定のタイプのファイル名のリストを取得することもできます。以下の手順に従ってください：

1. ファイルパスをセルにコピーして貼り付け、次に下のスクリーンショットに示すようにファイルパスの後に \* を入力します：

2. 次に、「数式」＞「名前マネージャー」をクリックします。スクリーンショットをご覧ください：

3. 「名前マネージャー」ダイアログボックスで、「新規」ボタンをクリックします。スクリーンショットをご覧ください：

4. 表示された「新しい名前」ダイアログボックスで、「名前」テキストボックスに名前を指定し、次に「参照先」テキストボックスに以下の数式を入力します。スクリーンショットをご覧ください：

注: この数式では、「Sheet1!$A$1」はステップ1で挿入したファイルパスを含むワークシートのセルです。

5. そして、「OK」＞「閉じる」をクリックしてダイアログを閉じ、次にファイル名をリストしたい空白のセルに次の数式を入力し、空白のセルが表示されるまでフィルハンドルを下にドラッグします。これで、指定されたフォルダ内のすべてのファイル名が以下のようにリストされます。スクリーンショットをご覧ください：

注: この数式では、「Filenames」はステップ4で作成した範囲名であり、「A1」はファイルパスを含むセルです。

VBAコードを使用してフォルダ内のすべてのファイル名をワークシートにリストする

次のVBAを使用して、ワークシート内のフォルダ内のファイルをリストします：

1. ワークシートを開き、ファイル名を配置したいセルを選択します。

2. Excelで「ALT + F11」キーを押し続け、「Microsoft Visual Basic for Applications」ウィンドウを開きます。

3. 「挿入」＞「モジュール」をクリックし、以下のコードを「モジュール」ウィンドウに貼り付けます。

VBAコード: フォルダからすべてのファイル名をワークシートにリストする

Sub listfiles()
'Updateby Extendoffice
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim I As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    For Each xFile In xFolder.Files
        I = I + 1
        ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
    Next
End Sub

4. 次にF5キーを押してコードを実行すると、「参照」ウィンドウが表示されます。ファイル名をリストしたいフォルダを選択します。

5. 「OK」をクリックすると、特定のフォルダ内のファイルがハイパーリンク付きでワークシートにリストされます。スクリーンショットをご覧ください：

Kutoolsを使用してフォルダとサブフォルダからすべてのファイル名をワークシートにリストする

「Kutools for Excel」の「ファイル名リスト」機能を使用すると、ワークシート内のディレクトリから簡単にファイルのリストを生成できます。

1. Excelを開き、「Kutools Plus」＞「インポート/エクスポート」＞「ファイル名リスト…」をクリックします。スクリーンショットをご覧ください：

2. 「ファイル名リスト」ダイアログボックスで、次の操作を行います：

(1) クリック ボタンを押して、リストしたいファイルを含むフォルダを指定します；

(2) 「サブディレクトリ内のファイルを含める」オプションをチェックして、サブフォルダ内のすべてのファイル名をリストするか、「非表示ファイルとフォルダを含める」オプションをチェックして、隠しファイルおよび隠しフォルダ内のすべてのファイル名をリストします；

(3) 「ファイルの種類」セクションでリストしたいファイルの種類を指定します；

(4) 「ファイルサイズの単位」セクションから表示したいファイルサイズの単位を選択します。

(5) 必要に応じて「ハイパーリンクを作成する」オプションをチェックします。

3. 「OK」をクリックします。これにより、ディレクトリまたはサブディレクトリ内のファイルのリストが新しいワークシートに生成されます。スクリーンショットをご覧ください：

関連記事：