一个可以重命名文件的代码 通信可以用

忠义堂小宇

Sub 重命名()
Set FileDialogObject = Application.FileDialog(msoFileDialogFilePicker)
With FileDialogObject
    .Title = "请选择文件"
    .InitialFileName = "C:\"
    .AllowMultiSelect = True
End With
FileDialogObject.Show
Application.ScreenUpdating = False
Set paths = FileDialogObject.SelectedItems
For Each pa In paths
    Set wb = Workbooks.Open(pa) '依次遍历打开目标工作簿
    On Error Resume Next
    myname = wb.Sheets("宏站验收记录单").Range("E3") & "网优报告" & Format(wb.Sheets("宏站验收记录单").Range("Z3"), "yyyy-mm-dd")
    If Err.Number <> 0 Then
        myname = wb.Sheets("室分验收记录单").Range("E3") & "网优报告" & Format(wb.Sheets("室分验收记录单").Range("Z3"), "yyyy-mm-dd")
        Err.Clear
    End If
    On Error GoTo 0
    wb.SaveAs "C:\Users\Administrator\Desktop\源文件\重命名\" & myname & ".xlsx"
    wb.Close True
Next
Application.ScreenUpdating = True
End Sub