使用Dir函数循环遍历目录中的文件，只需反复点击同一文件

Question

我有一个电子表格，可以查看给定目录中的其他几个电子表格，从中提取一些统计信息。到目前为止，它已经到达第一个文件并且一次又一次地点击它。

我的代码是这样的：

Public Sub GetResults()
    Const strDirectory As String = "SomeNetworkLocation"
    Dim strFileName As String

    strFileName = Dir(strDirectory & "*.xl??")

    Do While strFileName <> ""

        If strFileName Like "SomeMatchingScheme_##_??"
            Workbooks.Open strDirectory & strFileName

            'Do stuff with the workbook

            Workbooks(strFileName).Close
        End If
    Loop
End Sub

有什么建议吗？

Answer 1

您需要再次致电

strFileName = Dir  ' with no parameters

循环之前

此调用将strFileName迭代到下一个文件。没有它，它将坚持第一个找到的文件。