使用vba 实现 文件夹里有n个工作簿 批量设置n个工作簿中工作表名称为"报表"的工作表 打印工

.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