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函数声明一个静态变量 ，并将它们用于以后的调用。

我猜这个逻辑是：

1. 将index_of_file和number_of_files声明为静态整数

2. 如果提供了参数，则将目录集index_of_file扫描为1 ，将number_of_files设置为文件夹中的文件数，然后返回第一个文件。

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