vba - 使用部分变量名称检索最后修改的文件

Question

我们有一个系统，可以自动下载数据并将其放入 Excel 和其他表格中。我正在尝试为主电子表格编写一个宏，该宏检索某个文件的最新版本以进行编辑、复制并粘贴到主电子表格中。

由于文件名包含日期，我无法检索该文件。

我对 VBA 还很陌生，仍然只是将代码片段放在一起以获得一个可用的东西，但我找不到我正在寻找的确切内容。

文件名例如为“ML0003 - 每日订单输入信息 - 170927”最后 6 位数字代表日期，每次都会发生变化。

这是我到目前为止的代码:

Dim dtTestDate As Date
    Dim sStartWB As String

    Const sPath As String = "D:\Berry\AddIn\Testing\"
    Const dtEarliest = #1/1/2010#

    dtTestDate = Date
    sStartWB = ActiveWorkbook.Name

    While ActiveWorkbook.Name = sStartWB And dtTestDate >= dtEarliest
        On Error Resume Next
        Workbooks.Open sPath & "ML0003 - Daily Order Entry Information - " & " ****** " & ".xls"
        dtTestDate = dtTestDate - 1
        On Error GoTo 0
    Wend

    If ActiveWorkbook.Name = sStartWB Then MsgBox "Earlier file not found."

我假设星号允许任何字符存在，但这似乎不起作用。有什么想法吗？

Answer 1

您将需要使用 Dir 函数通过通配符查找文件，如下所示:

Dim sFilename As String
While ActiveWorkbook.Name = sStartWB And dtTestDate >= dtEarliest
    sFilename = Dir(sPath & "ML0003 - Daily Order Entry Information - *.xls*")
    If sFilename <> "" Then Workbooks.Open sPath & sFilename
Wend