Использование оператора Like для работы с различными книгами - PullRequest
0 голосов
/ 07 марта 2019

У меня есть две разные рабочие книги, которые будут созданы и сохранены открытыми.Имена имеют либо «исходящий», либо «входящий», а затем дату и время.Например, «data-details-outbound 2019-03-07 ...» и «data-details-outbound 2019-03-07 ...».Мне нужен разный код для выполнения на каждом листе, поэтому мне нужен мой код, чтобы различать их.

У меня есть следующий код, но когда я его запускаю, он просто выполняет все действия с любой активированной книгой.

Sub NotifiedReminderEmail()
'
' Current issue is the LIKE operator is choosing whatever wb is open, not the correct one.
'
    Dim wb As Workbook
    Dim owbName As String
    Dim iwbName As String

    owbName = "outbound"
    iwbName = "inbound"

    'sets up the OB sheet
    For Each wb In Application.Workbooks
        If wb.Name Like "*" & owbName & "*" Then
            Debug.Print wb.Name
            With wb.Worksheets(1)
                'perform code
            End With
        End If
    Next wb

    'sets up the IB sheet
    For Each wb In Application.Workbooks
        If wb.Name Like "*" & iwbName & "*" Then
            Debug.Print wb.Name
            With wb.Worksheets(1)
                'perform code
            End With
        End If
    Next wb

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...