如何将多个工作簿中的多个工作表重命名，更名为“工作簿名称+1...+N“

kllysh

http://club.excelhome.net/thread-1302851-1-1.html
上面这个帖子里的是要把“多个工作簿中的多个工作表重命名，更名为“工作簿名称+原工作表名称“（代码见下）
而我要求的是把多个工作表按次序更名为 ”工作簿名称+1“、”工作簿名称+2“。。。”工作薄名称+N“
怎么修改下面这组代码?
万分感谢！！！



Sub Rename()
Dim str, Filename, wb, sht, ke, dic
Dim rng As Range, firstadd, MyFileName
Dim lujing As String
Set dic = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
lujing = Left(ActiveWorkbook.FullName, InStrRev(ActiveWorkbook.FullName, "\"))
MyFileName = Dir(lujing & "*.xls") '这里修改文件类型,03版改为.xls就好了。
Do While MyFileName <> ""
    If MyFileName <> ThisWorkbook.Name Then
        dic(lujing & MyFileName) = ""
    End If
    MyFileName = Dir
Loop
For Each ke In dic.keys
    Set wb = Workbooks.Open(ke)
    With wb
        For Each sht In .Worksheets
            sht.Name = Left(.Name, Len(.Name) - 4) & sht.Name
        Next
    End With
    wb.Save
    wb.Close
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

abc123281

根据你的要求和你提供的附件  给你以下代码参考  也不知道你提供的附件对不对

测试更名123.rar (71.42 KB, 下载次数: 10)

2018-8-20 01:40 上传

点击文件名下载附件

liulang0808

sht.Name = Left(.Name, Len(.Name) - 4) & sht.Name
修改如下：sht.Name = Left(.Name, Len(.Name) - 4) & sht.index

lsc900707

1. Sub rename()
   
2.     For i = 1 To Sheets.Count
   
3.         Sheets(i).Name = ThisWorkbook.Name & i
   
4.     Next
   
5. End Sub

复制代码

kllysh

abc123281 发表于 2018-8-20 01:40
根据你的要求和你提供的附件  给你以下代码参考  也不知道你提供的附件对不对

谢谢老师，已经解决了。

kllysh

liulang0808 发表于 2018-8-20 06:58
sht.Name = Left(.Name, Len(.Name) - 4) & sht.Name
修改如下：sht.Name = Left(.Name, Len(.Name) - 4)  ...

谢谢老师，您的方法正是我需要的，完美解决！

kllysh

lsc900707 发表于 2018-8-20 07:35

谢谢老师，您的方法是修改本工作薄中的工作表名称，不是修改一个文件夹里所有工作薄中的工作表。

kllysh

朱荣兴 发表于 2018-8-20 08:38
试试看看》》》》》》》》》》》》》》》
Sub Rename()
Dim str, Filename, wb, sht, ke, dic

谢谢老师，您的方法也很强大，唯一不合我要求的是所有工作薄的工作表都按次序编号了，我需要的是每个工作薄中的工作表按次序编号，另一个再从头开始。比如：有两个工作薄01和02，分别有3个工作表，那么6个工作表应该改成：011，012，013； 021，022，023.   您的方法是改成了：011，012，013； 024，025，026.

lsc900707

kllysh 发表于 2018-8-20 21:02
谢谢老师，您的方法是修改本工作薄中的工作表名称，不是修改一个文件夹里所有工作薄中的工作表。

看差了，不好意思。