ファイル拡張子の名前を変更する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 

NOTEは：コードは、コードを実行する前にバックアップを取るために.qmlにため、その優れたすべての.xmlファイルの名前を変更します。