엑셀 VBA 자동화 (18편): 수백 개의 증빙 서류 파일명, 1초 만에 바꾸는 마법

엑셀 VBA 자동화 (18편): 수백 개의 증빙 서류 파일명, 1초 만에 바꾸는 마법

인사팀의 연말정산 서류나 재무팀의 영수증 스캔본들, 이름이 제각각이라 고생하셨나요? 엑셀 리스트를 활용해 폴더 내 수백 개 파일의 이름을 사번이나 이름으로 한 번에 변경하는 자동화 도구를 만들어 보겠습니다.

EXCEL PRACTICAL GUIDE

VBA의 Name 문을 활용하면 엑셀 시트에 적힌 리스트대로 파일명을 순식간에 교체할 수 있습니다.

1단계: 엑셀 시트 양식 준비
[A1]: 기존 파일명, [B1]: 바꿀 파일명, [C1]: 폴더 경로.

2단계: VBA 편집기 모듈 추가
Alt + F11을 누르고 [삽입] - [모듈]을 클릭합니다.

3단계: 파일명 변경 코드 작성
아래 코드를 복사하여 붙여넣으세요.

Sub RenameFiles()
    Dim i As Integer
    Dim oldName As String, newName As String, folderPath As String
    folderPath = Range("C1").Value
    If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        oldName = folderPath & Range("A" & i).Value
        newName = folderPath & Range("B" & i).Value
        If Dir(oldName) <> "" Then Name oldName As newName
    Next i
    MsgBox "파일명 변경 완료!"
End Sub

4단계: 실행 버튼 연결
도형을 그리고 우클릭 후 [매크로 지정]에서 'RenameFiles'를 연결합니다.

💡 실무 팁
이름 변경은 되돌리기가 안 됩니다. 반드시 원본 파일을 백업한 뒤 실행하세요.

오늘 만든 매크로로 평생의 '노가다' 시간을 아껴보세요.