엑셀로 수십, 수백개의 새로운 폴더를 자동 생성하는 방법

엑셀로 수십, 수백개의 새로운 폴더를 자동 생성하는 방법

엑셀을 사용하면 단순한 데이터 정리뿐만 아니라 자동으로 폴더를 생성하는 작업도 가능합니다!
이 기능을 활용하면 수십 개, 수백 개의 폴더를 일일이 만드는 번거로움을 줄이고 업무를 더 효율적으로 처리할 수 있습니다.

이번 포스팅에서는 엑셀을 이용해 폴더를 자동 생성하는 방법을 단계별로 설명해 드립니다. 🚀

---

🏆 엑셀을 이용한 폴더 자동 생성이 필요한 이유

✔ 대량의 폴더를 한 번에 만들고 싶을 때
✔ 매월, 매주 새로운 프로젝트 폴더를 생성해야 할 때
✔ 파일 정리 작업을 자동화하고 싶을 때
✔ 일관된 폴더 구조를 유지하고 싶을 때

엑셀을 활용하면 수십 개, 수백 개의 폴더를 한 번에 자동 생성할 수 있습니다.
이제 수작업으로 폴더를 만드는 번거로움을 줄여보세요! 😊

---

📝 1️⃣ 엑셀에서 폴더 목록 준비하기

먼저, 엑셀에 만들고 싶은 폴더 이름을 리스트로 정리해야 합니다.

✅ 엑셀에서 폴더 이름 입력하기

1. A 열에 만들고 싶은 폴더 이름을 입력합니다.
2. 예를 들어, 아래와 같이 폴더명을 입력할 수 있습니다.

A 열 (폴더 이름)

프로젝트_001

프로젝트_002

프로젝트_003

보고서_2024

클라이언트_A

---

🖥️ 2️⃣ VBA를 이용해 폴더 자동 생성하기

엑셀 기본 기능만으로는 폴더를 만들 수 없지만, VBA 매크로를 활용하면 폴더를 자동 생성할 수 있습니다.

✅ VBA 코드 입력 방법

1. 엑셀에서 ALT + F11 키를 눌러 **VBA 편집기 (Visual Basic for Applications)**를 엽니다.
2. **삽입 (Insert) → 모듈 (Module)**을 선택합니다.
3. 아래 VBA 코드를 복사하여 붙여넣습니다.
4.  

Sub CreateFolders()
    Dim x As Integer
    Dim folderPath As String
    Dim cell As Range
    Dim ws As Worksheet
    
    ' 현재 엑셀 파일이 저장된 경로를 기준으로 폴더 생성
    folderPath = ThisWorkbook.Path & "\"

    ' 활성화된 시트에서 A 열의 데이터를 읽어 폴더 생성
    Set ws = ActiveSheet
    For Each cell In ws.Range("A1:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row)
        If cell.Value <> "" Then
            ' 폴더가 없을 경우 새로 생성
            If Dir(folderPath & cell.Value, vbDirectory) = "" Then
                MkDir folderPath & cell.Value
            End If
        End If
    Next cell

    MsgBox "폴더 생성 완료!", vbInformation, "완료"
End Sub

🚀 3️⃣ VBA 코드 실행하여 폴더 생성하기

1. VBA 편집기에서 F5 키를 눌러 실행합니다.
2. 현재 엑셀 파일이 저장된 폴더 경로에 입력한 폴더들이 자동 생성됩니다.

💡 만약 특정한 경로에 폴더를 만들고 싶다면?
위 코드에서 folderPath = ThisWorkbook.Path & "\"를 원하는 경로로 변경하세요.
예를 들어, folderPath = "C:\Users\사용자\Documents\"와 같이 수정하면 됩니다.

---

🎯 추가 팁: 하위 폴더까지 자동 생성하기

만약 각 폴더 안에 **서브 폴더 (하위 폴더)**도 만들고 싶다면?
아래와 같이 MkDir 명령을 추가하면 됩니다.

Sub CreateFoldersWithSubfolders()
    Dim x As Integer
    Dim folderPath As String
    Dim cell As Range
    Dim ws As Worksheet
    Dim subFolders As Variant
    Dim subFolder As Variant
    
    ' 기본 폴더 경로 설정
    folderPath = ThisWorkbook.Path & "\"

    ' 하위 폴더 리스트 정의
    subFolders = Array("문서", "이미지", "보고서")

    ' 활성화된 시트에서 폴더 이름을 읽어 생성
    Set ws = ActiveSheet
    For Each cell In ws.Range("A1:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row)
        If cell.Value <> "" Then
            ' 메인 폴더 생성
            If Dir(folderPath & cell.Value, vbDirectory) = "" Then
                MkDir folderPath & cell.Value
            End If
            
            ' 하위 폴더 생성
            For Each subFolder In subFolders
                If Dir(folderPath & cell.Value & "\" & subFolder, vbDirectory) = "" Then
                    MkDir folderPath & cell.Value & "\" & subFolder
                End If
            Next subFolder
        End If
    Next cell

    MsgBox "폴더 및 하위 폴더 생성 완료!", vbInformation, "완료"
End Sub

이제 각 폴더 안에 '문서', '이미지', '보고서' 등의 하위 폴더도 함께 생성됩니다! 🎉

---

✅ 정리: 엑셀로 폴더를 자동 생성하는 방법

📌 단순한 폴더 생성 → VBA 코드 실행
📌 특정 경로에 폴더 생성 → folderPath 수정
📌 하위 폴더까지 자동 생성 → MkDir 활용

엑셀과 VBA를 활용하면 폴더 관리가 훨씬 쉬워집니다!
이제 반복적인 작업을 자동화하고 업무 효율을 높여보세요. 🚀✨