|
打开修改工作簿表,运行代码
Sub test()
Dim mypath$, lj, arr(), temp, i, j
mypath = ThisWorkbook.Path & "\"
lj = Dir(mypath)
Do
If InStr(lj, ThisWorkbook.Name) = 0 Then
i = i + 1
ReDim Preserve arr(1 To i)
arr(i) = Val(lj)
End If
lj = Dir
Loop Until lj = ""
For i = 1 To UBound(arr) - 1
For j = i + 1 To UBound(arr)
If arr(i) > arr(j) Then
temp = arr(i)
arr(i) = arr(j)
arr(j) = temp
End If
Next j
Next i
For i = 1 To UBound(arr)
Name mypath & arr(i) & ".xlsx" As mypath & i & ".xlsx"
Next i
End Sub
|
|