使用Excel VBA编写一个宏来实现在指定目录下搜索文件名包含指定字符串的文件

可以使用Excel VBA编写一个宏来实现在指定目录下搜索文件名包含指定字符串的文件。下面是一个示例代码：

```vb
Sub SearchFiles()
    Dim FolderPath As String
    Dim SearchText As String
    Dim FileName As String
    Dim Found As Boolean
    
    '输入要搜索的文件夹路径及文件名包含的字符串
    FolderPath = "C:\Folder\Subfolder\"
    SearchText = "example"
    
    '检查文件夹是否存在
    If Dir(FolderPath, vbDirectory) = "" Then
        MsgBox "The folder path is invalid!", vbExclamation, "Error"
        Exit Sub
    End If
    
    '循环搜索文件
    FileName = Dir(FolderPath & "*")
    Do While FileName <> ""
        If InStr(FileName, SearchText) > 0 Then '如果找到包含指定字符串的文件
            Found = True '记录已找到文件
            MsgBox FolderPath & FileName '弹出对话框显示文件路径和名称
        End If
        FileName = Dir '继续查找下一个文件
    Loop
    
    '如果未找到任何文件，弹出提示对话框
    If Not Found Then
        MsgBox "No files containing the search text were found in the specified folder.", vbInformation, "Search complete"
    End If
    
End Sub
```

在代码中，输入要搜索的文件夹路径及文件名包含的字符串。然后，使用`Dir`函数循环搜索指定文件夹中的所有文件。如果找到包含指定字符串的文件，则弹出对话框显示文件路径和名称。如果未找到任何文件，弹出提示对话框。