Excel의 목록을 기준으로 한 폴더에서 다른 폴더로 파일을 복사하거나 이동하려면 어떻게 해야 하나요? 

워크시트의 열에 파일 이름 목록이 있고, 해당 파일들이 컴퓨터의 특정 폴더에 위치해 있다고 가정해 봅시다. 하지만 이제 원래 폴더에서 다른 폴더로 워크시트에 나열된 이름의 파일들을 이동하거나 복사해야 합니다(아래 스크린샷 참조). Excel에서 이를 가능한 한 빨리 처리하려면 어떻게 해야 할까요?

VBA 코드를 사용하여 Excel 목록을 기반으로 한 폴더에서 다른 폴더로 파일 복사 또는 이동하기

VBA 코드를 사용하여 Excel 목록을 기반으로 한 폴더에서 다른 폴더로 파일 복사 또는 이동하기

파일 이름 목록을 기반으로 한 폴더에서 다른 폴더로 파일을 이동하려면 다음 VBA 코드가 도움이 될 수 있습니다. 아래 단계를 따라 주세요:

1. Excel에서 Alt + F11 키를 누르면 Microsoft Visual Basic for Applications 창이 열립니다.

2. 삽입 > 모듈을 클릭하고, 모듈 창에 다음 VBA 코드를 붙여넣습니다.

VBA 코드: Excel 목록을 기반으로 한 폴더에서 다른 폴더로 파일 이동하기

Sub movefiles()
'Updateby Extendoffice
    Dim xRg As Range, xCell As Range
    Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
    Dim xSPathStr As Variant, xDPathStr As Variant
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xSFileDlg.Title = " Please select the original folder:"
    If xSFileDlg.Show <> -1 Then Exit Sub
    xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
    Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xDFileDlg.Title = " Please select the destination folder:"
    If xDFileDlg.Show <> -1 Then Exit Sub
    xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
    For Each xCell In xRg
        xVal = xCell.Value
        If TypeName(xVal) = "String" And xVal <> "" Then
            FileCopy xSPathStr & xVal, xDPathStr & xVal
            Kill xSPathStr & xVal
        End If
    Next
End Sub

3. 그런 다음 코드를 실행하기 위해 F5 키를 누르면, 파일 이름이 포함된 셀을 선택하라는 메시지 상자가 나타납니다. 스크린샷 참고:

4. 확인 버튼을 클릭하면, 이동할 파일이 포함된 폴더를 선택할 수 있는 창이 나타납니다. 스크린샷 참고:

5. 다시 확인을 클릭한 후, 다른 창에서 파일을 저장할 대상 폴더를 선택하세요. 스크린샷 참고:

6. 마지막으로 확인을 눌러 창을 닫으면, 워크시트 목록에 있는 파일 이름을 기준으로 지정한 다른 폴더로 파일이 이동됩니다. 스크린샷 참고:

참고: 원본 파일은 유지하면서 파일을 다른 폴더로 복사하려는 경우, 다음 VBA 코드를 사용하세요:

VBA 코드: Excel 목록을 기반으로 한 폴더에서 다른 폴더로 파일 복사하기

Sub copyfiles()
'Updateby Extendoffice
    Dim xRg As Range, xCell As Range
    Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
    Dim xSPathStr As Variant, xDPathStr As Variant
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xSFileDlg.Title = "Please select the original folder:"
    If xSFileDlg.Show <> -1 Then Exit Sub
    xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
    Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xDFileDlg.Title = "Please select the destination folder:"
    If xDFileDlg.Show <> -1 Then Exit Sub
    xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
    For Each xCell In xRg
        xVal = xCell.Value
        If TypeName(xVal) = "String" And xVal <> "" Then
            FileCopy xSPathStr & xVal, xDPathStr & xVal
        End If
    Next
End Sub

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!