芯友网Xin1234.COM

VBA我有1个文件夹里面有40个WORD 把他们批量重命名成EXCEL中A列的名字 这是我在网上找的代码 运行无效 各位大哥能帮我看看嘛



水水筱.
ALL.  ?一个问题 我有1个文件夹里面有40个WORD 我想把他们批量重命名成EXCEL中A列的名字 这是我在网上找的代码 运行无效 ALL.大哥能帮我看看嘛
毛炸
有啥好处
水水筱.

求ALL.指导
渣渣小菜白
你这也是优秀
毛炸
特别秀
渣渣小菜白
哪个稳定命名成哪个名字 代码能知道?
夫村野山.
?851065109 
渣渣小菜白
哪个文档命名成哪个名字 代码能知道?
水水筱.
 按顺序来 档案1就是A1 档案2就是A2 我想要的效果
Sub 文件更名2007()
    Dim arr11()
    On Error Resume Next
    ROW1 = 42 '文件数量,D盘文件下现有DOC不能小于工作表的文件名个数
    arr1 = Range("A1:A" & ROW1)
    ReDim arr11(1 To UBound(arr1))
    PATH1 = "D:\1"
    docname = Dir(PATH1 & "\*.docx")
    Do
        If docname = "" Then
            Exit Do
        End If
        m = m + 1
        Name PATH1 & "" & docname As PATH1 & "" & arr1(m, 1) & ".docx"
        docname = Dir
    Loop
End Sub
夫村野山.
rows前指定工作表试试
水水筱.
网上找了半天没找到
呆然天.肥合
arr1=range("f2:f" & cells(rows.count,5).end(3).row)
水水筱.
我试试 大哥
渣渣小菜白
不是说你这个
水水筱.
夫村野山.
发文件
水水筱.

需求是员工档案表_1 命名成 新建 Microsoft Excel 工作表里面的A1 后面依次
夫村野山.
水水筱.
上面的那个excel
里面有40个名字
夫村野山.
你把代码呢?
水水筱.
Sub 文件更名2007()
    Dim arr11()
    On Error Resume Next
    ROW1 = 42 '文件数量,D盘文件下现有DOC不能小于工作表的文件名个数
    arr1 = Range("A1:A" & ROW1)
    ReDim arr11(1 To UBound(arr1))
    PATH1 = "D:\1"
    docname = Dir(PATH1 & "\*.docx")
    Do
        If docname = "" Then
            Exit Do
        End If
        m = m + 1
        Name PATH1 & "" & docname As PATH1 & "" & arr1(m, 1) & ".docx"
        docname = Dir
    Loop
End Sub

代码在个人里面。。。
毛炸
先取名,再对应,在运行
渣渣.州广
你关掉再打开就没了
夫村野山.
能在你的基础上搞吗?准备让我从0开始吗?
不知道.xlsx后缀文件不能保存代码吗?
渣渣.州广
所以好奇连文件格式区别都没搞清楚的情况下就能写VBA代码了么?
毛炸
就是应应急
那面较真干嘛

相关问题
------分隔线----------------------------
赞助商链接
赞助商链接
推荐内容