您好!如何批量重命名多个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
花都哪里看