[엑셀VBA] 파일명 일괄 변경하기 Name As

안녕하세요. 춤추는초코칩입니다. 오늘은 다수의 파일 이름을 한번에 변경하는 방법에 대해 알아보겠습니다.

1. 엑셀시트에 변경대상 불러오기

우선, 파일명을 변경할 대상이 필요합니다. 아래 두개의 내용을 참고해서 만들어 보도록 하겠습니다.

https://stat-and-news-by-daragon9.tistory.com/252

[엑셀VBA] 파일, 폴더 선택(FileDialog)

https://stat-and-news-by-daragon9.tistory.com/246

[엑셀VBA] 파일 목록(리스트) 만들기(Dir 함수)

예제로 사용될 파일은 아래와 같이 4개의 파일을 바꿔보겠습니다.

첫번째 단락에서  폴더를 선택하고, 두번째 단락에서 파일 목록을 엑셀 시트에 입력합니다.

Sub rename_file()
    Dim filePath As String
    Dim fileName As String
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        filePath = .SelectedItems(1) & "\"
    End With
    
    fileName = Dir(filePath & "*.*")
    Do While fileName <> ""
        i = i + 1
        Range("A" & CStr(i + 1)).Value = filePath
        Range("B" & CStr(i + 1)).Value = fileName
        fileName = Dir()
    Loop
    
    MsgBox "파일 갯수: " & i & "개"
    
End Sub

위 코드를 실행하면, 아래와 같이 엑셀 시트에 입력됩니다.

2. 엑셀시트에 파일이름 수정하기

불러온 파일 목록 옆에 수정할 파일이름을 적습니다.

반응형

3. 파일명 변경하기

파일명을 변경할 때, 사용할 문장은 Name입니다. Name의 syntax는 아래와 같습니다.

Name oldpathname as newpathname

• oldpathname : 기존 파일 이름과 위치를 지정하는 문자
• newpathname : 새 파일 이름과 위치를 지정하는 문자

Name은 드라이브 간 파일을 이동할 수 있습니다. Name은 새 파일, 폴더를 만들 수 없습니다. 그래서, 아래와 같은 코드를 만들었습니다.

    For i = 2 To 5
        Name Cells(i, 1) & Cells(i, 2) As Cells(i, 1) & Cells(i, 3)
    Next i

위 코드를 실행하면, 아래와 같이 파일명이 변경됩니다.

위 코드를 활용하면, 다양한 방법으로 파일명을 변경할 수 있습니다.