Проверьте множественное имя файла в Excel VBA

Question

Файлы Проверьте с несколькими именами файлов и включите зеленый цвет в ячейку. Возврат в ячейку C5

Found = Dir(FolderPath & "\" & "01 - Introduction" & " " & Range("B5") & "_v" & Range("B3") & ".*")
    Found1 = Dir(FolderPath & "\" & "02 - Business" & " " & Range("B5") & "_v" & Range("B3") & ".*")
    Found2 = Dir(FolderPath & "\" & "04 - Linking" & " " & Range("B5") & "_v" & Range("B3") & ".*")
    Found3 = Dir(FolderPath & "\" & "05 - Data" & " " & Range("B5") & "_v" & Range("B3") & ".*")
    Found4 = Dir(FolderPath & "\" & "06 - Conclusion" & " " & Range("B5") & "_v" & Range("B3") & ".*")
    Found5 = Dir(FolderPath & "\" & "Systems_ABC" & "_v" & Range("B3") & ".*")

If Found <> "" & Found1 <> "" & Found2 <> "" & Found3 <> "" & Found4 <> "" & Found5 <> "" Then
    Range("C5").Interior.ColorIndex = 4
Else
    Range("C5").Interior.ColorIndex = 3
End If

код не работает, даже если я изменю имя файла, ячейка все равно вернет зеленый цвет.

Answer 1

Изменить это:

If Found <> "" & Found1 <> "" & Found2 <> "" & Found3 <> "" & Found4 <> "" & Found5 <> "" Then
    Range("C5").Interior.ColorIndex = 4
Else
    Range("C5").Interior.ColorIndex = 3
End If

При этом:

If Found <> "" And Found1 <> "" And Found2 <> "" And Found3 <> "" And Found4 <> "" And Found5 <> "" Then
    Range("C5").Interior.ColorIndex = 4
Else
    Range("C5").Interior.ColorIndex = 3
End If

And принимается таким образом. Также я предполагаю, что все ваши DIR работают нормально.