首圖

Option ExplicitSub fileRename()Dim myRng1 As RangeDim myRng2 As RangeDim myRng As RangeDim OldName, NewNameDim I As IntegerDim filePach As String'=====================================Dim myFso As Scri......