Question

我正在尝试使用VBA遍历给定目录中的所有文件，并在将其保存到另一个目录之前替换每个文件中的几个单词。我正在使用的方法是：

With Application
        Do While Len(fileName) > 0

fileName为：

fileName = Dir$("C:\FOLDER\" & "*")

运行我的代码之后：

fileName = Dir
        Loop

然而，在它回到循环的顶部之后，它不再拾取任何文件。我确定给定目录中有多个文件..有什么想法吗？

Answer 1

在单独的Subs中测试它，这两个代码可以工作。

 Sub LoopAllFiles()
        Dim StrFile As String
         StrFile = Dir$("C:\FOLDER\" & "*")

        Do While Len(StrFile) > 0
            StrFile = Dir
        Loop

End Sub



Sub LoopAllFiles()
    Dim StrFile As String
    StrFile = Dir("C:\FOLDER\" & "*")
    Do While StrFile <> ""
         StrFile = Dir
    Loop

End Sub

循环遍历目录VBA

1 个答案: