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

フォルダ内のすべてのファイル名を、そのサブフォルダ内のファイルも含めてワークシートにリストしようとしたことはありますか？ 実際、Excelでフォルダとそのサブフォルダからファイル名を直接リストする方法はありませんが、今日はこの作業を解決するためのいくつかの簡単な方法をご紹介します。

VBAコードを使用してフォルダとサブフォルダ内のすべてのファイル名をリストする

Kutools for Excelを使用して、フォルダとサブフォルダ内のすべてのファイル名を迅速かつ簡単にリストする

VBAコードを使用してフォルダとサブフォルダ内のすべてのファイル名をリストする

通常、Excelにはこのタスクに対処するための組み込み機能はありませんが、次のVBAコードを適用してこの問題を解決できます。

1. ファイル名をリストする新しいワークシートをアクティブにします。

2. ExcelでALT + F11キーを押したままにすると、Microsoft Visual Basic for Applicationsウィンドウが開きます。

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

VBAコード: フォルダとサブフォルダ内のすべてのファイル名をリストする

Sub MainList()
'Updateby Extendoffice
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub
Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

4. コードをモジュールに貼り付けた後、F5キーを押してこのコードを実行すると、 マクロダイアログボックスが表示されます。「MainList」マクロ名を選択し、「実行」ボタンをクリックしてください。スクリーンショットをご覧ください：

5. 参照ウィンドウで、サブフォルダ内のすべてのファイル名をリストしたいフォルダを選択してください。スクリーンショットをご覧ください：

6. フォルダを指定した後、「OK」ボタンをクリックすると、フォルダとそのサブフォルダ内のすべてのファイル名が現在のワークシートのセルA2からリストされます。スクリーンショットをご覧ください：

Kutools for Excelを使用して、フォルダとサブフォルダ内のすべてのファイル名を迅速かつ簡単にリストする

上記のコードでは、ファイル名のみをリストできますが、時にはファイルサイズ、ファイルタイプ、作成日時、含まれるフォルダなどの他の属性をリストする必要があります。Kutools for Excelには、便利な機能である「ファイル名リスト」があり、この機能を使用すると、フォルダとそのサブフォルダ内のすべてまたは特定のタイプのファイル名をすばやくリストできます。

ダウンロードしてインストールした Kutools for Excel後、次の手順を実行してください：

1. 「エンタープライズ」>「インポート/エクスポート」>「ファイル名リスト」をクリックしてください。スクリーンショットをご覧ください：

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

A: クリック ボタンを押して、ファイル名をリストしたいフォルダを選択します；

B: 「ファイルの種類」セクションからリストしたいファイルタイプを指定します；

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

注: サブフォルダ内のファイル名をリストするには、「サブディレクトリ内のファイルを含める」をチェックしてください。必要に応じて、「非表示ファイルとフォルダを含める」もチェックできます。「ハイパーリンクを作成する」オプションをチェックすると、各ファイル名とフォルダにハイパーリンクが作成されます。

3. その後、「OK」ボタンをクリックすると、選択したフォルダとそのサブフォルダに含まれるすべてのファイルが、新しいワークシートに次の属性とともに表示されます。スクリーンショットをご覧ください：

この「ファイル名リスト」機能の詳細については、こちらをクリックしてください。

今すぐKutools for Excelをダウンロードして無料でお試しください！