VBA 使用通配符打开文件，只知道扩展名

VBA 使用通配符打开文件的方法

vba
Sub OpenFileWithWildcard()
    Dim filePath As String
    Dim fileExtension As String
    Dim fileName As String
    
    ' 输入文件扩展名
    fileExtension = InputBox("请输入文件的扩展名：")
    
    ' 构建文件路径
    filePath = "C:\Path\To\Files\"
    fileName = Dir(filePath & "*." & fileExtension)
    
    ' 判断是否找到对应扩展名的文件
    If fileName <> "" Then
        ' 打开文件
        Workbooks.Open filePath & fileName
    Else
        MsgBox "未找到指定扩展名的文件！"
    End If
End Sub