ExcelワークシートのWindowsフォルダ内のすべてのファイルを再帰的に一覧表示する3つの簡単な方法

エクセルソリューション 2025 年 10 月 3 日

多くのユーザーは、Windowsフォルダー内のすべてのファイルとそのすべてのサブフォルダーをExcelワークシートにすばやく一覧表示する必要があります。したがって、この記事では、それを実現するための3つの迅速な方法を紹介します。

ExcelワークシートのWindowsフォルダー内のすべてのファイルを再帰的に一覧表示する場合は、ファイル名を手動でExcelにコピーすることをお勧めします。間違いなく、それは面倒で時間がかかりすぎます。したがって、ここでは、3つのはるかにスマートで便利なアプローチをお教えします

方法1：FirefoxまたはGoogleChromeを介してWindowsフォルダー内のファイルを一覧表示する

まず、Windowsエクスプローラーで、特定のWindowsフォルダーにアクセスし、フォルダーパスをコピーします。
次に、FirefoxまたはGoogleChromeを起動します。
次に、コピーしたフォルダのパスをインターネットブラウザのアドレスバーに貼り付けます。
その後、「Enter」キーを押します。
一度に、このWindowsフォルダ内のすべてのファイルがブラウザに一覧表示されます。
次に、「Ctrl + A」を押してすべてのコンテンツを選択し、「Ctrl + C」を押してそれらをコピーします。
最後に、それらをExcelワークシートに貼り付けます。

方法2：「名前マネージャー」を介してWindowsフォルダー内のファイルを一覧表示する

まず、新しいExcelワークシートを作成します。
次に、セルA1を選択します。
次に、「式」タブに移動し、「名前マネージャー」ボタンをクリックします。
ポップアップダイアログボックスで、「新規」ボタンをクリックします。
続いて、次のダイアログボックスで、「名前」フィールドに「ファイル」と入力します。
そして、「参照先：」フィールドの「= Sheet1！$ A $ 1」を「= FILES（Sheet1！$ A $ 1）」に変更します。
その後、「OK」をクリックして「ネームマネージャ」ダイアログボックスを閉じます。
後で、セルA1のWindowsフォルダパスをコピーして、「\パスの最後にある*」。
次に、セルA3を選択し、関数「= INDEX（Files、ROW（）-2）」を入力します。
次の画像のように、このWindowsフォルダ内のファイルがすぐに一覧表示されます。
最後に、この関数を数行下にコピーして、「＃REF！」が表示されるまで他のファイルを一覧表示します。エラー。このエラーは、すべてのファイルがリストされていることを意味します。

方法3：ExcelVBAを介してWindowsフォルダー内のファイルを再帰的に一覧表示する

まず、新しいExcelファイルを作成してください。
次に、「」を参照してExcelVBAエディターにアクセスします。ExcelでVBAコードを実行する方法"
次に、次のコードを「ThisWorkbook」プロジェクトにコピーします。

Sub BatchListAllFiles_FolderSubfolders()
    Dim strWindowsFolder As String
 
    'Select the source Windows folder
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder to list Files from"
        .InitialFileName = "E:\"
        .Show
        If .SelectedItems.Count > 0 Then
           strWindowsFolder = .SelectedItems(1) & "\"
        End If
    End With
 
    With ActiveSheet
         .Cells(1, 1) = "Name"
         .Cells(1, 1).Font.Bold = True
         .Cells(1, 2) = "Path"
         .Cells(1, 2).Font.Bold = True
         .Cells(1, 3) = "Size(Bytes)"
         .Cells(1, 3).Font.Bold = True
         .Cells(1, 4) = "Type"
         .Cells(1, 4).Font.Bold = True
         .Cells(1, 5) = "Created"
         .Cells(1, 5).Font.Bold = True
    End With
 
    Call LoopFolders(strWindowsFolder)
End Sub

Sub LoopFolders(strFolderPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim nLastRow As Integer
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strFolderPath)
 
    For Each objFile In objFolder.Files
        With ActiveSheet
            nLastRow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
            .Range("A" & nLastRow) = objFile.Name
            .Range("B" & nLastRow) = objFile.Path
            .Range("C" & nLastRow) = objFile.Size
            .Range("D" & nLastRow) = objFile.Type
            .Range("E" & nLastRow) = objFile.DateCreated
            .Columns("A:E").AutoFit
       End With
    Next
 
    'Process all folders and subfolders recursively
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubFolder In objFolder.SubFolders
           'Skip the system and hidden folders
           If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then
              LoopFolders (objSubFolder.Path)
           End If
       Next
    End If
End Sub

次に、最初のサブルーチンをクリックして、「F5」キーを押します。
ポップアップダイアログボックスで、ファイルを一覧表示するWindowsフォルダーに移動して選択し、[OK]をクリックします。
最終的に、マクロが終了したら、Excelワークシートに戻ります。次のスクリーンショットに示すように、Windowsフォルダーとそのサブフォルダー内のすべてのファイルが一覧表示されています。

Excelが時々クラッシュする

他のソフトウェアと同様に、Excelも時々クラッシュすることがあり、その場合、現在開いているExcelファイルが直接破壊される可能性があります。このような場合、多くのユーザーは、Excelが再起動時にファイルを自動的に復元してくれることを期待します。しかし、多くの場合、現実は期待どおりではありません。その場合、 Excelの修復のようなツール DataNumen Excel Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 mdfを回復すると見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com