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