Excel макрос, чтобы переименовать расширение файла

Question

Я наивный для скриптов, и я начал работать с макросами Excel. Я ищу макрос, чтобы переименовать только расширение файла из * .xml в * .qml. Файл * .xml находится в одном и том же пути. Поэтому я ценю, сможет ли кто-нибудь помочь в этом.

Answer 1

Попробуйте следующий код:

Sub RenameFiles() 
    Dim StrFile As String, newName As String 
    Dim filePath As Variant 
    filePath = ActiveWorkbook.Path & "\" 
    StrFile = Dir(filePath & "*.xml") 
    Do While Len(StrFile) > 0 
     newName = Replace(StrFile, ".xml", ".qml") 
     Name filePath & StrFile As filePath & newName 
     StrFile = Dir 
    Loop 
End Sub 

ПРИМЕЧАНИЕ: Код будет переименовать все файлы в .xml.qml поэтому его лучше взять резервную копию перед выполнением кода.