Excel에서 모든 폴더와 하위 폴더를 나열하려면 어떻게 해야 하나요?

디렉토리 또는 파일 관리 작업을 처리할 때 특정 디렉토리 내의 모든 폴더 및 하위 폴더의 종합적인 목록을 빠르게 가져오고 해당 정보를 Excel에서 직접 확인해야 할 수 있습니다. 불행히도, Excel은 지정된 폴더 경로에서 모든 폴더 또는 하위 폴더 이름을 자동으로 검색하는 내장 기능이나 간단한 마법사를 제공하지 않습니다. 이 문서에서는 선택한 디렉토리의 모든 폴더와 하위 폴더를 워크시트에 바로 나열할 수 있도록 하는 VBA 코드를 소개합니다. 이를 통해 사람의 실수 위험을 최소화하고 번거로운 작업을 없애 데이터 조직을 신속하게 추적하고 관리할 수 있습니다.

VBA 코드를 사용하여 모든 폴더 및 하위 폴더 나열하기

VBA 코드를 사용하여 모든 폴더 및 하위 폴더 나열하기

지정된 디렉토리로부터 모든 폴더와 하위 폴더 이름을 추출하고 Excel에 표시하려는 경우, VBA(Visual Basic for Applications)를 활용하는 것이 효과적인 솔루션입니다. 이 방법은 폴더 이름뿐만 아니라 폴더 경로, 생성 날짜, 마지막 수정 날짜와 같은 추가 정보를 얻을 수 있는 유연성과 제어력을 제공합니다. 본 방식은 특히 Excel의 개발자 기능에 익숙하거나 동적이거나 자주 변경되는 파일 시스템을 다루는 사용자에게 적합합니다.

1. ALT + F11을 눌러 "Microsoft Visual Basic for Applications" 편집기를 엽니다. 이 도구를 사용하면 워크북 내에 매크로를 추가하고 편집할 수 있습니다.

2. VBA 편집기에서 삽입 > 모듈을 클릭합니다. 그러면 새 모듈 창이 생성됩니다. 다음 코드를 모듈에 복사하여 붙여넣습니다.

VBA 코드: 모든 폴더 및 하위 폴더 이름 나열하기

Sub FolderNames()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim xPath As String
Dim xWs As Worksheet
Dim fso As Object, j As Long, folder1 As Object
With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Choose the folder"
    .Show
End With
On Error Resume Next
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Application.Workbooks.Add
Set xWs = Application.ActiveSheet
xWs.Cells(1, 1).Value = xPath
xWs.Cells(2, 1).Resize(1, 5).Value = Array("Path", "Dir", "Name", "Date Created", "Date Last Modified")
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder1 = fso.getFolder(xPath)
getSubFolder folder1
xWs.Cells(2, 1).Resize(1, 5).Interior.Color = 65535
xWs.Cells(2, 1).Resize(1, 5).EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Sub getSubFolder(ByRef prntfld As Object)
Dim SubFolder As Object
Dim subfld As Object
Dim xRow As Long
For Each SubFolder In prntfld.SubFolders
    xRow = Range("A1").End(xlDown).Row + 1
    Cells(xRow, 1).Resize(1, 5).Value = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder.DateLastModified)
Next SubFolder
For Each subfld In prntfld.SubFolders
    getSubFolder subfld
Next subfld
End Sub

3. 코드를 삽입한 후, VBA 편집기에서 F5를 누르거나 실행 버튼을 클릭하여 매크로를 실행합니다. 폴더 선택 대화 상자가 나타나 스캔할 대상 디렉토리를 선택하라는 메시지가 표시됩니다.

4. 원하는 디렉토리를 선택하고 확인을 클릭합니다. 매크로는 디렉토리를 처리하고 전체 경로, 상위 디렉토리, 이름, 생성 날짜 및 마지막 수정 날짜와 함께 모든 폴더와 하위 폴더를 나열하는 새 워크북을 생성합니다.

이 VBA 솔루션은 유연하며 추가 애드인이나 외부 소프트웨어가 필요하지 않고 편의를 위해 출력 워크북을 자동으로 생성합니다. 그러나 기본적인 매크로 작업에 익숙한 사용자에게 가장 적합하며, 특정 사용자 정의를 위해 추가 조정이 필요할 수 있습니다.

관련 문서:

Excel에서 디렉토리의 파일을 워크시트에 나열하는 방법은 무엇인가요?