[已解决]以单元格内容批量重命名工作簿

zjdh

当然是这样的，因为源文件名称已经用过，重命名就不可用了，否则若同名称的工作簿未改名，就会报错“文件已经存在”。

fjmxwrs

zjdh 发表于 2011-11-14 17:37
当然是这样的，因为源文件名称已经用过，重命名就不可用了，否则若同名称的工作簿未改名，就会报错“文件已 ...

老师的代码中，命名规则不能符合楼主要求。
根据楼主的命名规则，用以下代码可以完全达到要求
以单元格内容批量重命名工作簿.zip (38.36 KB, 下载次数: 135)

2011-11-15 00:14 上传

点击文件名下载附件

zjdh

你的有所改进，我也想过先改名再按要求更名，就能达到每次都是从无序号文件名开始啦。
Sub Macro1()
    Dim WK As Workbook, MyPath$, MyName$, NewNm$, Nm$, I%
    MyPath = ThisWorkbook.Path & "\需重命名工作簿\"    '请自己修改路径
    MyName = Dir(MyPath & "*.xls")
    Application.ScreenUpdating = False
    Do While MyName <> ""                             '先更名
        K = K + 1
        Name MyPath & MyName As MyPath & "Y" & K & ".xls"
        MyName = Dir
    Loop
    MyName = Dir(MyPath & "*.xls")
    Do While MyName <> ""
        Set WK = GetObject(MyPath & MyName)
        NewNm = WK.Sheets(1).[b3]
        NewNm2 = WK.Sheets(1).[b3]
        For I = 1 To 100                               '预估最大101个同名
            If InStr(Nm, NewNm2) Then NewNm2 = NewNm & I
        Next
        Nm = Nm & "|" & NewNm2
        WK.Close False
        Name MyPath & MyName As MyPath & NewNm2 & ".xls"
        MyName = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "修改完毕"
End Sub

sparkguo

谢谢两位老师的指导，问题已经解决。嘻嘻 。

ZengLH

不會,太難了....

太阳浪子

zjdh 发表于 2011-11-15 07:57
你的有所改进，我也想过先改名再按要求更名，就能达到每次都是从无序号文件名开始啦。
Sub Macro1()
     ...

问题一。工作表了，A列是名称，按A1,A2,A3,;依命名工作表1，......
问题二、工作簿中有很多表，想把第一张做成目录，想过建立超链接，VBA,中用select
，但是不知道批量设置，怎么才能批量啊。
谢谢

zjdh

太阳浪子 发表于 2011-11-19 19:40
问题一。工作表了，A列是名称，按A1,A2,A3,;依命名工作表1，......
问题二、工作簿中有很多表，想把第一 ...

单独发贴，以便有同类要求的坛友共同探讨！！

joyark

下載看看............如何...........學習