查找文件的位置只給出了一部分靈活的文件名

Question

我想創建一個代碼，查找文件目錄中的文件，並告訴我它是否只給出文件名的一小部分。

從細胞引用我當我已經把宏片，其是一個數字「121」

在下面的代碼的工作，如果我手動將數121代替我的，的該級分I欄I8但它只是標誌隨機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*"的塊裏面，所以它不是你先前在代碼中定義的變量i！

此外，還可以使用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