Excel VBA 目录方法

Question

我已成功使用以下代码的形式多次打开文件夹中的多个文件，并且我了解 dir 如何帮助在 while 循环之前设置文件路径，但不太了解如何在没有参数的情况下再次调用 dir 方法正确在 while 循环结束之前查找文件夹中的下一个文件:

Sub OpenFiles()

Dim MyFolder As String
Dim MyFile As String

MyFolder = "C:\newFolder"
MyFile = Dir(MyFolder & "\*.xlsx")

Do While MyFile <> ""
Workbooks.Open Filename:=MyFolder & "\" & MyFile

MyFile = Dir

Loop
End Sub

在已经设置了值的字符串上调用 Dir 时，Dir 是否旨在查找同一路径下文件列表中的下一个文件？

Answer 1

Dir函数声明 Static variables并将它们用于以后的调用。

我猜逻辑是:

声明 index_of_file和 number_of_files作为静态整数

如果提供了参数，则扫描目录集index_of_file至1 , 设置 number_of_files到文件夹中的文件数，并返回第一个文件。

如果未提供参数，则递增 index_of_file并返回具有该索引的文件，或返回 ""如果 index_of_file>number_of_files