我正在循环使用VBA中的多个目录,并试图避免在每个目录中处理一个文件。文件名的前2个字母根据我搜索的目录而变化。因此,例如在一个目录中,该文件将被称为EE-Help-Me.xlsx,而在另一个目录中,该文件将被称为F-Help-Me.xlsx。我曾尝试使用通配符* -Help-Me,但显然在处理文件时做错了。有人可以查看我的代码并让我知道如何修复吗?
我的代码是:
Sub ListFiles(fld As Object, Mask As String)
Dim fl As Object 'File
For Each fl In fld.Files
If fl.Name Like Mask Then
'open and interrogate file here
If fl.Name <> "*-Help-Me.xlsx" Then '<<-- not catching when the offending file is present
Debug.Print fld.Path & "\" & fl.Name
'Do something
End If
End If
Next
End Sub
非常感谢
答案 0 :(得分:4)
尝试:
If Not fl.Name Like "*-Help-Me.xlsx" Then