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

sd2457934

求助各位大侠，因为要用Power BI统计个数据，一个月的表都30份，标题行都是一样的，但是，每份excel表的sheet表都是按当天日期来命名，请教各位：

如何使用代码或程序将每份表格的sheet表名都改成一致的。

dim麻辣君

表名都改成怎么个一致的？

dim麻辣君

for each sht in worksheets
    sht.name=""
next

alan57

网上查的方法我保存下来的:
方法：
1，先在比如sheet1的A1:A31填写日期序列
2，在键盘上按住Alt+F11，打开VBA窗口
3，然后点击菜单栏中的【运行】-【运行子过程/用户窗体】，就会自动把sheet名批量更改为黄色区域的日期序列
代码:
Sub 按A列数据修改表名称()       
       
       
       
    On Error Resume Next '忽略错误继续执行VBA代码，避免出现错误消息       
       
       
    Application.Calculation = xlCalculationAutomatic '手动重算       
       
       
    Dim i%       
       
       
    For i = 1 To Sheets.Count       
       
       
    Sheets(i).Name = Cells(i, 1).Text       
       
       
    Next       
       
       
    On Error GoTo 0 '恢复正常的错误提示       
       
       
    Application.Calculation = xlCalculationAutomatic '自动重算       
       
       
End Sub       

sd2457934

dim麻辣君 发表于 2022-11-6 19:06
for each sht in worksheets
    sht.name=""
next

一个月一共30张表   每张表只有一个sheet  但是每个sheet的名称都不一样 现在想把30张表的每个里面的表名都改成一样的

sd2457934

alan57 发表于 2022-11-6 19:12
网上查的方法我保存下来的:
方法：
1，先在比如sheet1的A1:A31填写日期序列

兄弟 这个是改什么内容  一个月一共30张表   每张表只有一个sheet  但是每个sheet的名称都不一样 现在想把30张表的每个里面的表名都改成一样的

dim麻辣君

sd2457934 发表于 2022-11-6 19:25
兄弟 这个是改什么内容  一个月一共30张表   每张表只有一个sheet  但是每个sheet的名称都不一样 现在想 ...

是改工作簿名称还是表？听着像是改工作簿？

dim麻辣君

然后，工作簿的名称怎么可能会能一样呢，不允许同名啊

dim麻辣君

模拟一个文件夹什么事都说清楚了

高个子

不管是工作簿还是工作表，名称怎么可能会能一样呢，不允许同名啊