Excel VBA: Как активировать книгу без ее полного имени?

Question

У меня есть несколько книг excel. Я хочу активировать книгу, которая имеет название «Финал».

Пример: У меня есть три открытых книги под названием «Workbook1.xlsx», «worKbook2.xlsm» и «workbookFinal.xlsx» одновременно.

Мой код VBA находится в «Macro.xlsm». Используя VBA, я хочу активировать книгу, в которой есть «Final». FYI .. все книги находятся в разных направлениях.

Answer 1

перебрать Workbooks коллекции до нахождения правильного имени книги:

Sub wbs() 
    Dim wb As Workbook 

    For Each wb In Workbooks 
     If InStr(wb.Name, "Final") > 0 Then 
      wb.Activate 
      Exit For 
     End If 
    Next 
End Sub 

Answer 2

Попробуйте следующий код, используя Like Оператора диких карт *.

Option Explicit 

Sub FindFinalWorkbook() 

Dim wb As Workbook 

' loop through all open workbooks 
For Each wb In Application.Workbooks 
    If wb.Name Like "*Final*" Then '< -- check if workbook name is Like *Final* 
     wb.Activate 
     Exit For 
    End If 
Next wb 

End Sub