查找文件的位置只给出了一部分灵活的文件名

我想创build一个代码来查找文件目录中的文件，并告诉我它是否只给出文件名的一部分。

我把这个部分放在macros数据表的第121列，这个数字是“121”

下面的代码工程，如果我手动把数字121而不是我，但是当引用我从单元格它只是标记一个随机的Excel文件的目录

Dim FilePath3 As String Dim i As String FilePath3 = Sheets("Macro").Range("J6") i = Sheets("Macro").Range("I8") file = Dir$(FilePath3 & "*i*" & ".*") If (Len(file) > 0) Then MsgBox "found " & file End If 

Answer 1

i在你的文本块"*i*" ，所以它不是你在代码中定义的variables！

此外，你可以在循环内使用Dir()来查看是否有多个结果：

 Dim FilePath3 As String Dim i As String FilePath3 = Sheets("Macro").Range("J6") i = Sheets("Macro").Range("I8") file = Dir$(FilePath3 & "*" & i & "*.*") Do While file <> vbNullString If (Len(file) > 0) Then MsgBox "found " & file End If file = Dir() Loop