2023年11月25日发(作者:)

VBA修改⽂件扩展名

Dim result As Integer

Private Sub CommandButton2_Click()

Dim first As String

Dim second As String

If Right(Tochange, Len(oldExt)) <> oldExt Then

GoTo NextLoop