폴더 및 하위 폴더의 모든 파일을 워크시트에 나열하려면 어떻게 해야 하나요?

하위 폴더 내부의 파일까지 포함하여 폴더에서 모든 파일 이름을 워크시트로 나열해 본 적이 있나요? 사실, 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. 폴더를 지정한 후 확인 버튼을 클릭하면, 폴더와 그 하위 폴더의 모든 파일 이름이 현재 워크시트의 A2 셀부터 나열됩니다. 스크린샷 참고:

Kutools for Excel을 사용하여 폴더 및 하위 폴더의 모든 파일 이름을 빠르고 쉽게 나열하기

위의 코드를 사용하면 파일 이름만 나열할 수 있습니다. 때로는 파일 크기, 파일 유형, 생성 시간, 포함된 폴더 등 다른 속성을 나열해야 할 수도 있습니다. Kutools for Excel에는 Filename List라는 유용한 기능이 포함되어 있으며, 이를 통해 폴더 및 하위 폴더의 모든 또는 특정 유형의 파일 이름을 빠르게 나열할 수 있습니다.

Kutools for Excel을 다운로드하고 설치한 후 , 다음 단계를 수행하세요:

1. 엔터프라이즈 > 가져오기 및 내보내기 > Filename List를 클릭하세요. 스크린샷 참고:

2. Filename List 대화 상자에서 다음 작업을 수행하세요:

A: 클릭 버튼을 눌러 파일 이름을 나열하려는 폴더를 선택하세요;

B: Files type 섹션에서 나열하려는 파일 유형을 지정하세요;

C: File size unit 섹션에서 표시할 파일 크기 단위를 선택하세요.

참고: 하위 폴더의 파일 이름을 나열하려면 Include files in subdirectories를 체크하세요. 필요에 따라 Include hidden files and folders도 체크할 수 있습니다. Create hyperlinks 옵션을 체크하면 각 파일 이름과 폴더에 대한 하이퍼링크가 생성됩니다.

3. 그런 다음 확인 버튼을 클릭하면 선택한 폴더와 그 하위 폴더에 포함된 모든 파일이 새로운 워크시트에 다음과 같은 속성으로 표시됩니다. 스크린샷 참고:

이 Filename List 유틸리티에 대해 자세히 알아보려면 클릭하세요.

지금 바로 Kutools for Excel을 다운로드하고 무료로 사용해 보세요!