У меня есть макрос, который просматривает папку, где находится файл xlsm, и находит файл на основе условия, чтобы сопоставить данную часть файла с файлом в папке и пропустить его. Полное имя файла: 03_2020_STR_BB_2080.xls. Код работает отлично, но моя проблема начинается, когда я ввожу правильный номер в этом случае. 2080, как показано ниже. Когда я нажимаю кнопку «Выполнить», чтобы запустить код, макрос не запускается вообще, но когда я вставляю значение False, вместо 2080 любое другое число или текст, который не является частью файла, когда я нажимаю «Выполнить», затем макрос начинает бежать. Кто-нибудь может мне помочь, tnx заранее. В моей папке три файла
03_2020_STR_BB_2080.xls
03_2020_STR_BB_7080.xls
03_2020_STR_BB_2130.xls
Я использую следующую часть кода.
Dim MyFile As String
Dim Filepath As String
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim Fname As String
Filepath = ThisWorkbook.Path & "\"
MyFile = Dir(Filepath)
Do While Len(MyFile) > 0
If MyFile = "BB2.xlsm" Then
Exit Sub
End If
If MyFile Like "*STR_BB_2080.xls" Then
Exit Sub
End If
Workbooks.Open (Filepath & MyFile)
code continues....