vba - 字符串 包含特定文本

Question

在我的代码中，我正在寻找名称包括 bcst 的文件但我的代码不起作用。我怎样才能让它工作？

   For Each mySubFolder In myFolder.SubFolders    
    Application.ScreenUpdating = False
    Set ana = Workbooks.Open("C:\Users\Burak\Desktop\2MacroDegerlendirme.xlsm").Sheets("Sayfa1") 'Hangi sayfaya alınacak?   
    For Each myFile In mySubFolder.Files
    Str = myFile.Name        
        If InStr(Str, "bcst") >= 0 Then

Answer 1

只看这部分代码，我猜错误在
If InStr(Str, "bcst") >= 0 Then
InStr 将搜索的起点作为第一个参数。如果找不到模式，它也会返回 0，所以它应该是
If InStr(1, Str, "bcst") > 0 Then .

一个最漂亮的选择是使用 Like运算符(operator):
If Str Like "*bcst*" Then