[已解决]关于批量改文件名的 求助

1testvba

各位老师好.
我有如下代码:

Sub test_Click()
    Dim MyFile, MyPath, MyName, i%
    MyPath = ThisWorkbook.Path & "\test\"
    MyFile = Dir(MyPath & "测试*.txt")
    Do While MyFile <> ""    ' 开始循环。
        i = i + 1
        MyName = "ok_.txt"
        Name MyPath & MyFile As MyPath & MyName
        MyFile = Dir    ' 查找下一个目录。
    Loop
End Sub

这个代码 是把 test文件夹下 所有包含 测试*.txt 都改成ok_.txt
若是测试*.txt 多的话. VBA代码报错.(文件已存在)
我要修改哪里.
才能实现
ok_1.txt
ok_2.txt
ok_3.txt

这样的功能..

最佳答案

月排行榜 / 总排行榜

妞叫七七

2013-6-5 09:51

Sub test_Click()
    Dim MyFile, MyPath, MyName, i%
    MyPath = ThisWorkbook.Path & "\test\"
    MyFile = Dir(MyPath & "测试*.txt")
    Do While MyFile <> ""    ' 开始循环。
        i = i + 1
        MyName = "ok" & i & "_.txt"   
    Name MyPath & MyFile As MyPath & MyName
        MyFile = Dir    ' 查找下一个目录。
    Loop
End Sub

跳转到最佳答案楼层

妞叫七七

Sub test_Click()
    Dim MyFile, MyPath, MyName, i%
    MyPath = ThisWorkbook.Path & "\test\"
    MyFile = Dir(MyPath & "测试*.txt")
    Do While MyFile <> ""    ' 开始循环。
        i = i + 1
        MyName = "ok" & i & "_.txt"   
    Name MyPath & MyFile As MyPath & MyName
        MyFile = Dir    ' 查找下一个目录。
    Loop
End Sub

1testvba

非常谢谢老师的帮忙.//