怎么样批量修改工作簿名称

活在理想的世界

hzruziniu 发表于 2017-4-21 13:19
在 InputBox 文本框内输入下面途径
1、ThisWorkbook.Path & "\"
2、D:\桌面\拆分结果

1.如果你是输入了“D:\桌面\拆分结果”，那么后面需要带个"\"，也就是需要输入“D:\桌面\拆分结果\”
2.如果你直接输入的是ThisWorkbook.Path & "\"，这个东西是不支持公式的。
至少输入D:\桌面\拆分结果\这种写法我自己验证过，运行正常，没有什么问题。

下面我会改一种写法，不用INPUTBOX了，以免发生不必要的错误。

活在理想的世界

hzruziniu 发表于 2017-4-21 13:19
在 InputBox 文本框内输入下面途径
1、ThisWorkbook.Path & "\"
2、D:\桌面\拆分结果

改名字最好的办法是先获取文件名再改文件名，这才是一气呵成，否则总觉得有问题。

原文件名是获取的，现文件名应该是用公式写出来的。

下面是完美代码

1. 
   

复制代码

hzruziniu

活在理想的世界 发表于 2017-4-21 14:58
改名字最好的办法是先获取文件名再改文件名，这才是一气呵成，否则总觉得有问题。

原文件名是获取的， ...

谢谢你的耐心解答和回复，一直理解不了代码的意思，查阅了不少资料，终于弄明白了文件途径和文件名称的相互关系，现在把二种方法（一种是原工作簿名和修改后的工作簿名带后缀，一种不带后缀）的代码发上来供大家交流；
Sub 批量修改工作簿名带后缀名()
    Dim arr, p$, f$, i%, x%
    x = Range("a65536").End(3).Row
    arr = Range("a2:b" & x)
    p = ThisWorkbook.Path & "\拆分结果\"
    f = Dir(p & "*.xlsx")
    Do While f <> ""
    If f <> ThisWorkbook.Name Then
        For i = 1 To UBound(arr)
            If f = arr(i, 1) Then
                Name p & f As p & arr(i, 2)
            End If
        Next
    End If
    f = Dir
Loop
    MsgBox "ok"
End Sub

Sub 批量修改工作簿名不带后缀名()
    Dim arr, p$, f$, r, i%, x%
    x = Range("e65536").End(3).Row
    arr = Range("e2:f" & x)
    p = ThisWorkbook.Path & "\拆分结果\"    '文件途径
    f = Dir(p & "*.xlsx")                   '工作簿文件名称
    Do While f <> ""                        '遍历逐个工作簿循环
    If f <> ThisWorkbook.Name Then          '如果循环的工作簿不是当前活动工作簿
        r = Split(f, ".")                  '用Split函数把工作簿名f以后缀的“.”为界分成前后二个值的一维数组r
        For i = 1 To UBound(arr)            '需修改前后的工作簿名称循环
            If r(0) = arr(i, 1) Then        '如果f工作簿名（去后缀）=arr第1列中（工作表的E列）循环中的工作簿名
                Name p & f As p & arr(i, 2) & ".xlsx"   '把原工作簿名称修改为arr对应的第2列（即工作表F列）的工作簿名称
            End If
        Next
    End If
    f = Dir
Loop
    MsgBox "ok"
End Sub

hzruziniu

批量修改规则.rar (73.85 KB, 下载次数: 28)

2017-4-22 02:03 上传

点击文件名下载附件

179319104

hzruziniu 发表于 2017-4-22 02:00
谢谢你的耐心解答和回复，一直理解不了代码的意思，查阅了不少资料，终于弄明白了文件途径和文件名称的相 ...

多谢多谢 这个就是我要的结果  能拜下师不 我正在努力学习中

DDBB2008

学习了，下来看看