如何批量修改文件夹下多个Excel表里面的sheet表名称

3190496160

Sub 批量该名称()
Application.ScreenUpdating = False
Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)
With dlgOpen
    If .Show <> -1 Then MsgBox "您没有选择文件夹！": Exit Sub
    lj = .SelectedItems(1)
End With
mc = [d1]
If mc = "" Then MsgBox "请输入工作表名称！": End
f = Dir(lj & "\*.xls*")
n = 1
Do While f <> ""
    If f <> ThisWorkbook.Name Then
        Set wb = Workbooks.Open(lj & "\" & f, 0)
       wb.Worksheets(1).Name = mc
       wb.Close True
    End If
f = Dir
Loop
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

plaiming.rar (14.99 KB, 下载次数: 1)

2022-11-7 11:31 上传

点击文件名下载附件

隔扣五人

文件夹、工作薄、工作表

鑫尼达

表簿不分。另外powerBi按理不用改sheet名也可以汇总工作簿

sd2457934

dim麻辣君 发表于 2022-11-6 19:30
是改工作簿名称还是表？听着像是改工作簿？

我上传了图  一个月就有这么多份表   每份表里面的sheet表名称不同  我想改成同样的名称

sd2457934

高个子 发表于 2022-11-6 19:43
不管是工作簿还是工作表，名称怎么可能会能一样呢，不允许同名啊

我上传了图  一个月就有这么多份表   每份表里面的sheet表名称不同  我想改成同样的名称

sd2457934

3190496160 发表于 2022-11-7 11:30
Sub 批量该名称()
Application.ScreenUpdating = False
Set dlgOpen = Application.FileDialog(msoFileDi ...

请问这个可以直接改文件夹下面所有的吗

高个子

sd2457934 发表于 2022-11-7 16:34
我上传了图  一个月就有这么多份表   每份表里面的sheet表名称不同  我想改成同样的名称

哦，这个就妥妥的VBA了

3190496160

sd2457934 发表于 2022-11-7 16:34
请问这个可以直接改文件夹下面所有的吗

试试看看不就都明白了吗

tanglf188

给你一个思路，用VBS，写一个循环，读取文件夹下EXCEL文件，打开文件，指定工作表，换名，保存，关闭文件。