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

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