[已解决]VBA移动指定文件名的文件

gaiety1974

求教能否帮忙看下，用VBA将文件名中含有考评表的文件移动到”旧考评表"的文件夹下面，谢谢 考评表.zip (32.96 KB, 下载次数: 3)

2022-7-2 17:15 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

limonet

2022-7-3 10:11

Sub a()
    File = Dir(ThisWorkbook.Path & "\*考评表.xls?")
    Do While File <> ""
        Name ThisWorkbook.Path & "\" & File As ThisWorkbook.Path & "\旧考评表" & "\" & File
        File = Dir
    Loop
End Sub

跳转到最佳答案楼层

limonet

Sub a()
    File = Dir(ThisWorkbook.Path & "\*考评表.xls?")
    Do While File <> ""
        Name ThisWorkbook.Path & "\" & File As ThisWorkbook.Path & "\旧考评表" & "\" & File
        File = Dir
    Loop
End Sub

gaiety1974

limonet 发表于 2022-7-3 10:11
Sub a()
    File = Dir(ThisWorkbook.Path & "\*考评表.xls?")
    Do While File  ""

谢谢，如果我第二次Move过去的文件和第一次的文件名一样，如果修改代码可以让第二次Move过去的文件名带上当前日期，这样可以让转移过去的文件都保留下来？

limonet

gaiety1974 发表于 2022-7-3 11:18
谢谢，如果我第二次Move过去的文件和第一次的文件名一样，如果修改代码可以让第二次Move过去的文件名带上 ...

抱歉，没有听懂。

gaiety1974

limonet 发表于 2022-7-3 14:16
抱歉，没有听懂。

嗯没事的，谢谢啦

gaiety1974

limonet 发表于 2022-7-3 14:16
抱歉，没有听懂。

嗯谢谢没事的