엑셀에서 vba로 폴더 만들기 알려줘

엑셀 셀의 값을 사용하여 폴더를 만드는 방법입니다. A1 셀의 값을 받아 폴더를 생성하려면 다음과 같이 코드를 수정하면 됩니다.

1. 엑셀에서 Alt + F11을 눌러 VBA 편집기를 엽니다.
2. 삽입 > 모듈을 클릭하여 새 모듈을 추가합니다.
3. 다음 코드를 모듈 창에 붙여넣습니다.

Sub CreateFolderFromCell()

    Dim folderPath As String
    
    ' A1 셀의 값을 폴더 경로로 사용합니다.
    folderPath = ThisWorkbook.Sheets(1).Range("A1").Value
    
    ' 폴더가 존재하는지 확인하고, 존재하지 않으면 폴더를 생성합니다.
    If folderPath = "" Then
        MsgBox "A1 셀에 경로를 입력하십시오."
    ElseIf Dir(folderPath, vbDirectory) = "" Then
        MkDir folderPath
        MsgBox "폴더가 성공적으로 생성되었습니다: " & folderPath
    Else
        MsgBox "폴더가 이미 존재합니다: " & folderPath
    End If

End Sub

4. 모듈을 저장하고 VBA 편집기를 닫습니다.
5. 엑셀로 돌아가서, A1 셀에 폴더 경로를 입력합니다. 예를 들어 C:\NewFolder 등으로 입력합니다.
6. Alt + F8을 눌러 매크로 목록을 엽니다.
7. CreateFolderFromCell 매크로를 선택하고 실행을 클릭하면 폴더가 생성됩니다.

이제 A1 셀에 입력한 경로를 기준으로 폴더가 생성됩니다. 경로가 공백일 경우 경로를 입력하라는 메시지가 출력되고, 폴더가 이미 존재하면 해당 메시지가 출력됩니다.

엑셀에서 C 열의 데이터 값이 추가될 때마다 폴더를 생성하는 VBA 코드를 작성하려면, 다음 단계를 따르면 됩니다. 이 코드는 워크시트 변경 이벤트를 사용합니다.

1. 엑셀에서 Alt + F11을 눌러 VBA 편집기를 엽니다.
2. 프로젝트 탐색기에서 해당 워크시트를 선택합니다. 예를 들어 Sheet1을 선택합니다.
3. 해당 워크시트를 더블 클릭하고, 아래 코드를 붙여넣습니다.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim cell As Range
    Dim folderPath As String
    
    ' C열의 변경이 발생했을 때만 실행합니다.
    If Not Intersect(Target, Me.Columns("C")) Is Nothing Then
        Application.EnableEvents = False '무한 루프를 방지하기 위해 이벤트를 비활성화합니다.
        
        For Each cell In Intersect(Target, Me.Columns("C")).Cells
            If cell.Value <> "" Then ' 셀이 비어있지 않으면 폴더를 생성합니다.
                folderPath = cell.Value
                If Dir(folderPath, vbDirectory) = "" Then
                    MkDir folderPath
                    MsgBox "폴더가 성공적으로 생성되었습니다: " & folderPath
                Else
                    MsgBox "폴더가 이미 존재합니다: " & folderPath
                End If
            End If
        Next cell
        
        Application.EnableEvents = True ' 이벤트를 다시 활성화합니다.
    End If

End Sub

4. 코드를 저장하고 VBA 편집기를 닫습니다.

이제 엑셀로 돌아가서 C 열에 값을 입력하면 해당 값에 따라 폴더가 생성됩니다. 이 코드는 C 열의 셀이 변경될 때마다 실행되며, 폴더가 이미 존재하면 메시지를 표시하고 새로운 폴더를 생성합니다.

경로가 유효하지 않은 경우 실행 오류가 발생할 수 있으니 주의해야 합니다. 필요에 따라 폴더 경로의 유효성 검사를 추가할 수 있습니다.