在 Do While 循环 (VBA) 中使用 Dir 函数

Question

帮助在 Do While 循环中使用 VBA 中的 Dir 函数

基本上，我试图在一个目录中找到一个文件的最新版本，以便在宏的其他地方使用。这些文件的路径是“A:\HOLD\ReportName-”和“mmddyy”格式的报告日期，后跟我们的 ERP 生成的一系列随机字符。例如“A:\HOLD\ReportName-081220-asdknrtr884”

我希望程序从今天开始查找文件，如果该文件不存在，则每天继续查找，直到找到文件（最多 30 天）。所以081220、081120、081020等

问题在于，Do While 循环只会回顾一天，然后进入无限循环并达到 30 天的最大值，即使文件存在于该时间范围内也是如此。

从我收集的信息来看，它与 Dir() 函数有关，以及它如何保持文件路径值。我只是没有看到针对我的特殊情况的好答案，主要是对何时 Dir "" 或 Len > 0 的答案。

感谢您的帮助！

Dim wb1 As Workbook
    
Dim FilePath As String
Dim FileName As String
Dim FullFile As String
Dim FileDate As String
Dim strFileExists As String
Dim count As Integer
    
FilePath = "A:\HOLD\"
FileDate = Format(Date, "mmddyy")
FileName = "ReportName-" & FileDate & "*"
FullFile = FilePath & FileName
    
strFileExists = Dir(FullFile)
    
Do While strFileExists = ""
    FileDate = Format(Date - 1, "mmddyy")
    FileName = "ReportName-" & FileDate & "*"
    FullFile = FilePath & FileName
    strFileExists = Dir(FullFile)
    count = count + 1

    If count > 30 Then
        MsgBox "There has not been a report in over 30 days, please run a new report"
        Exit Do     
        Exit Sub
    End If
Loop

Set wb1 = Workbooks.Open(FullFile)

'''

Answer 1

试试这个：

Sub Test()

    Dim wb1 As Workbook
        
    Dim FilePath As String
    Dim FileName As String
    Dim FullFile As String
    Dim FileDate As String
    Dim strFileExists As String
    Dim count As Integer
    Dim i As Long
    
    FilePath = "A:\HOLD\"
    FileDate = Format(Date, "mmddyy")
    FileName = "ReportName-" & FileDate & "*"
    FullFile = FilePath & FileName
        
    strFileExists = Dir(FullFile)
    count = 1
    
    Do While strFileExists = ""
        FileDate = Format(Date - count, "mmddyy")
        FileName = "ReportName-" & FileDate & "*"
        FullFile = FilePath & FileName
        strFileExists = Dir(FullFile)
        count = count + 1
    
        If count > 30 Then
            MsgBox "There has not been a report in over 30 days, please run a new report"
            Exit Do
            Exit Sub
        End If
    Loop
    
    Set wb1 = Workbooks.Open(FullFile)

End Sub