使用通配符打开文件

Question

我想打开一个带有通配符的文件。

Sub File_exists()
Dim orders As String
orders = VBA.FileSystem.Dir(ThisWorkbook.Path & "\*ORDERS-Confirmed.xslx")
Workbooks.Open filename:=ThisWorkbook.Path & "\" & orders

End Sub

Answer 1

使用此代码打开最近使用通配符的文件：

Sub File_exists()
    Dim orders As String
    orders = GetRecentFile(ThisWorkbook.Path & "\*ORDERS-Confirmed.xslx")
    Workbooks.Open FileName:=orders
End Sub

Function GetRecentFile(ByVal FileNameWildCard As String) As String
    Dim sFiles As String
    sFiles = CreateObject("WScript.Shell").Exec("CMD /C DIR """ & FileNameWildCard & """ /S /B /A:-D /O:-D").StdOut.ReadAll
    GetRecentFile = Split(sFiles, vbNewLine)(0)
End Function

此代码使用命令“dir”列出文件并按日期排序