使用通配符打开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功能:网上技术