파일을 열지 않고 파일명 변경하는 매크로

파일은 음따.

코드만 있으면 됨.

파일명만 변경해주는 매크로.

Sub Macro()

    Dim pt$

    Dim nN$

    Dim oldN$

    

    pt = ThisWorkbook.Path & "\"

    

    oldN = "샘플.xls"

    nN = "Sample.xlsx"

    

    Name pt & nN As pt & oldN

    

End Sub