在我的代码中，我正在寻找包含名称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
只看代码的这一部分，我猜错误在
If InStr(Str, "bcst") >= 0 Then
InStr将搜索的起点作为第一个参数。如果找不到该模式，它也会返回0，因此应该
If InStr(1, Str, "bcst") > 0 Then。
最漂亮的选择是使用Like运算符：
If Str Like "*bcst*" Then
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句