ВБА Не берем лист по маске

Пользователь

Сообщений: 163 Регистрация: 01.01.1970

08.12.2022 20:35:58

Доброго дня, друзья!
Есть книга с множеством листов: Lis_1; Bus_2 ... Вася_nnn; ШАБЛОН; _; рЗНзкр_20221208221248; рЗНзкр_20221208221526 ... рЗНзкр_ггггммддччммсс
так вот, нужно обработать все листы, кроме: ШАБЛОН; _; рЗНзкр_20221208221248; рЗНзкр_20221208221526 ... рЗНзкр_ггггммддччммсс
и если бы это были только листы: ШАБЛОН; _; то нет проблем:

Код
For Each mySheet In myWorkbook.Sheets 'по всем листам, кроме "ШАБЛОН" и "_" If mySheet.Name <> "ШАБЛОН" And mySheet.Name <> "_" Then End If Next

а вот теперь вопрос, можно ли файлы вида: рЗНзкр_20221208221248; рЗНзкр_20221208221526 ... рЗНзкр_ггггммддччммсс
распознать по маске, типа:

Код

    For Each mySheet In myWorkbook.Sheets
        'по всем листам, кроме "ШАБЛОН" и "_"
        If mySheet.Name <> "ШАБЛОН" And mySheet.Name <> "_" And mySheet.Name <> "рЗНзкр_*" Then
        End If
   Next

но, это не работает. Может кто подскажет, как реализовать в конструкции If ... End If условие по маске?

Да вот еще, нашел тут: https://www.planetaexcel.ru/techniques/7/97/
но, как это встроить в решение моей задачи?

Изменено: БМВ - 08.12.2022 20:56:31

БМВ

Модератор

Сообщений: 23313 Регистрация: 28.12.2016

Excel 2013, 2016

08.12.2022 20:55:13

Код
Not mySheet.Name Like "рЗНзкр_*"

По вопросам из тем форума, личку не читаю.

Григорий Калюга Пользователь Сообщений: 163 Регистрация: 01.01.1970	#3 08.12.2022 21:02:30 ответил БМВ, СПАСИБО! Изменено: Григорий Калюга - 08.12.2022 21:06:50