.xlsx 文件
把 工作簿 的sheet1 改名为 "报表"
Sub 转()
Dim myfiles
Dim i As Long, path
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "请选择要查找的文件夹"
If .Show Then
path = .SelectedItems(1)
End If
End With
MkDir path & "\修改后"
myfiles = Dir(path & "\*.xlsx")
On Error Resume Next
Application.ScreenUpdating = True
Application.DisplayAlerts = False
Do While Right(myfiles, 5) = ".xlsx"
i = i + 1
Workbooks.Open Filename:=path & "\" & myfiles
ActiveWorkbook.Sheets(1).Name = "报表"
ActiveWorkbook.SaveAs Filename:= _
path & "\修改后\" & myfiles, _
FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
myfiles = Dir
Loop
MsgBox "全部转换完毕，共转换文件 " & i & "个"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024