vba - 使用特定通配符打开此目录中的所有文件

Question

正如标题所说，它很简单。我需要能够使用具有“x.xlsx”但没有“*xy.xlsx”的文件夹打开文件。

只是不知道该怎么做。我可以获取文件目录，然后使用星号选择所有带有“x”的文件。但我有一些我不想打开的文件，唯一的变化是在文件名的末尾它们有少量文本(“y”)。

这就是我到目前为止所拥有的。我要补充什么。

Workbooks.Open (Dir & FileNameStart & "*")

希望这很清楚。

Answer 1

Dim f

f = Dir(SrcPath & "*x*.xlsx", vbNormal)
Do While Len(f)>0
    If not f like "*y.xlsx" Then
        Workbooks.open SrcPath & f
        '...
    end if
    f = Dir()
Loop