遍历目录 VBA 中的所有文件答案

【问题标题】：Looping through all files in directory VBA遍历目录 VBA 中的所有文件
【发布时间】：2018-10-18 01:58:37
【问题描述】：

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

With Application
        Do While Len(fileName) > 0

文件名在哪里：

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

运行我的代码后：

fileName = Dir
        Loop

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

【问题讨论】：

为我工作。你能显示完整的代码吗（只显示相关的，而不是你进行文件修改的那个）

标签： vba loops directory

【解决方案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

【讨论】：

谢谢大家。我让它工作了 - 我认为它不喜欢我的变量声明