Excel VBA를 사용하여 파일 이름 바꾸기

Excel VBA를 사용하여 파일 이름 바꾸기

여기 제가 해야 할 일이 있습니다.엑셀 시트에 이 두 칸이 있습니다.파일 이름과 함께.첫 번째 열에는 현재 파일 이름이 있고 두 번째 열에는 파일 이름을 변경할 이름이 있습니다.이름을 바꿀 때 패턴이 없기 때문에 이것을 사용해야 합니다.예를 들어, 다음은 파일 집합일 수 있습니다...

Current Name >  Rename To
---------------------------
Abc.jpg       >   Dinner.jpg

Xyz.jpg       >  Driving.jpg

123.jpg       >  Sunset.jpg

VBA에서 이것을 하는 것이 쉬울 것이라는 것을 알지만, 정확히 어떻게 하는지는 모르겠습니다.어떤 도움이라도 주시면 감사하겠습니다.

제 생각에 당신은 다음과 같은 것을 할 수 있을 것 같습니다.Name파일 이름을 변경하는 기능을 수행하지만, 두 열에 완전한 파일 경로가 있는지 확인해야 합니다. 예를 들어 "C:\Temp\ABC.jpg"

Dim Source As Range
Dim OldFile As String
Dim NewFile As String

Set Source = Cells(1, 1).CurrentRegion

For Row = 1 To Source.Rows.Count
    OldFile = ActiveSheet.Cells(Row, 1)
    NewFile = ActiveSheet.Cells(Row, 2)

    ' rename files
    Name OldFile As Newfile

Next

언급URL : https://stackoverflow.com/questions/7508605/renaming-files-with-excel-vba