string包含某些文本

在我的代码中，我正在寻找文件名称包括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将第一个参数作为search的起点。 它也返回0，如果模式没有find，所以它应该是

If InStr(1, Str, "bcst") > 0 Then 。

最好的select是使用Like运算符：

If Str Like "*bcst*" Then