如何通过excel宏打开带有通配符选项的.PDF文件

Question

由于我对 excel 宏非常陌生，因此我正在尝试开发一个能够打开 PDF 文件的代码。但是我的系统中有一些 PDF 文件是由另一个系统生成的，因此这些文件名每天都在变化，有些数字也包括在内。

例如，“处理报告 151120183569844”就像这样。这些数字每天都在变化。我尝试添加 WILDCARD 选项，但它不起作用。如何仅使用文件名的一部分打开此 PDF？

     Sub Open_PDF()
    Dim pdfPath As String
    pdfPath ="D:\Reports\Process Report*" & ".pdf" 'I used wildcard instead "Process Report 151120183569844"'
Call OpenAnyFile(pdfPath)
End Sub

Function openAnyFile(strPath As String)
Set objShell = CreateObject("Shell.Application")
objShell.Open(strPath)
End Function

Answer 1

正如在另一个答案中指出的那样，带有通配符的Dir函数应该可以解决问题。

这是使用原始openAnyFile函数的示例。

Sub Open_PDF()
    Dim filePath As String, fileName As String

    filePath = "D:\Reports\"
    fileName = Dir(filePath & "Process Report*.pdf")

    If fileName <> "" Then
        openAnyFile filePath & fileName
    End If
End Sub

Function openAnyFile(strPath As String)
    Dim objShell As Object
    Set objShell = CreateObject("Shell.Application")
    objShell.Open (strPath)
End Function

Answer 2

您不能使用通配符打开文件 - 这只是常识，如果有多个文件符合您的条件怎么办 - 您希望编程打开哪个？ 您必须指定确切的文件名才能打开它。

如果目标目录中只有一个文件，则可以使用类似于以下代码的内容来打开它，而不管其名称是什么：

sFound = Dir(ActiveWorkbook.Path & "\Process Report*.xlsm") 

If sFound <> "" Then
    Workbooks.Open filename:= ActiveWorkbook.Path & "\" & sFound
End If