您好!如何批量重命名多个Excel文件的sheet?

发布网友 发布时间：2022-04-25 15:14

我来回答

共4个回答

热心网友 时间：2023-07-15 00:18

把 这上百个文件 放到一个文件夹里

新建一个Excel文件， Alt+F11  视图--代码窗口 

如下代码复制进去, F5 运行

Sub  重命名()
  t = Timer
    Application.ScreenUpdating = False
         p = ThisWorkbook.Path & "\"
         s = Dir(p & "*.xls*")
      Do While s <> ""
           If s <> ThisWorkbook.Name Then
             Set wk = Workbooks.Open(p & s)
             wk.sheets(1).name ="Sheet1"
             wk.Close True
           End If
          s = Dir
      Loop
  t1 = Timer - t
MsgBox ("所有工作薄处理完毕,用时" & t1 & "秒")
Application.ScreenUpdating = True
End Sub

来自：求助得到的回答

热心网友 时间：2023-07-15 00:19

宏命令

Sub 文件批量()
Dim myfiles
Dim i As Long, path
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "请选择要查找的文件夹"
        If .Show Then
            path = .SelectedItems(1)
        End If
    End With

myfiles = Dir(path & "\*.xlsx")

On Error Resume Next
Application.ScreenUpdating = True
Application.DisplayAlerts = False

Do While myfiles <> ""
i = i + 1
Workbooks.Open Filename:=path & "\" & myfiles
'以下 可以在多个文件执行各种统一命令
'

For j = 1 To Sheets.Count
ActiveWorkbook.Sheets(j).Name = "表-" & j
Next

ActiveWorkbook.Save
ActiveWindow.Close
myfiles = Dir

Loop
End Sub

追问非常感谢！Excel小白一枚，不懂这段代码应该在哪里运行？

追答

在 选项 中启用宏

在开发工具中打开VBE  或者直接 ALT+F11 打开

插入一个模块 ,双击模块,把代码复制进去 

F5运行 (运行前备份,宏操作不可逆)

按提示打开文件存放目录,点确定  对目录中的xlsx文件自动改sheet名





热心网友 时间：2023-07-15 00:19

工作表不可以重名的
但是你可以以数字命名 或者时间命名

热心网友 时间：2023-07-15 00:20

花都哪里看