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

Question

我试图让 Excel 打开给定文件夹中 (ThisWorkbook.Path\Peach\Apple)具有 .xlsm 扩展名的任何文件（始终只有 1 个文件）。是否可以使用通配符打开它？我不知道文件名，只知道扩展名。

如果没有，有办法做到吗？

Answer 1

只需向文件系统询问第一个匹配的文件：

Dim path As String: path = ThisWorkbook.path & "\Peach\Apple\"

FindFirstFile = Dir$(path & "*.xlsm")

If (FindFirstFile <> "") Then 
   Workbooks.Open path & FindFirstFile
Else
   '// not found
End If

（这不会搜索子目录）