excel - 使用通配符打开 Excel 工作簿

Question

我想使用通配符打开与宏工作簿存储在同一文件夹中的工作簿。该文件夹中有一个名为 302113-401yr-r01.xlsm 的文件。这是我的代码:

Workbooks.Open filename:=ActiveWorkbook.Path & "\302113*.xlsm"

但是，它告诉我没有这样的文件。有什么建议吗？

Answer 1

我们无法使用通配符打开文件 - 想象一下如果我们可以的话会多么困惑!

您需要使用 Dir(ActiveWorkbook.Path & "\302113*.xlsm") 循环访问返回的文件。如果只有一个，则只需使用此函数一次:

Dim sFound As String

sFound = Dir(ActiveWorkbook.Path & "\302113*.xlsm")    'the first one found
If sFound <> "" Then
    Workbooks.Open filename:= ActiveWorkbook.Path & "\" & sFound
End If

Dir Function :网络科技