修改工作薄名称的问题

dfshm

附件 修改工作薄名称.rar (57.97 KB, 下载次数: 4)

2022-12-2 17:51 上传

点击文件名下载附件
谢谢老师！

哥儿-

打开修改工作簿表，运行代码
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

dfshm

哥儿- 发表于 2022-12-2 19:57
打开修改工作簿表，运行代码
Sub test()
    Dim mypath$, lj, arr(), temp, i, j

谢谢老师！