распознать открытую книгу по части имени

[vefer]

Проблема такая: Допустим открыто 2 книги - "Сводный отчет" и "Отчет №1",так как отчетов много, нужно написать макрос, чтобы он определял по части имени, что открыта некая книга "Отчет №...", копировал из нее данные и вставлял в "Сводный отчет".

[VictorM]

Смотрите здесь
Как определить открыта или нет нужная рабочая книга ?

[doober]

 Sub POISK_WB()

Dim WB As Workbook

For Each WB In Application.Workbooks

If WB.Name Like ("*Отчет №*") Then

'WB -наша найденная книга.Дальше делайте с ней что хотите
Exit For: End If: Next

End Sub

[vefer]

Сообщение от doober

 Sub POISK_WB()

Dim WB As Workbook

For Each WB In Application.Workbooks

If WB.Name Like ("*Отчет №*") Then

'WB -наша найденная книга.Дальше делайте с ней что хотите
Exit For: End If: Next

End Sub

Так не получается, работает если целое имя напишешь вот так:

If WB.Name Like ("*Отчет № 1*")

а мне надо, чтобы по части имени.

[doober]

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

If WB.Name Like ("*От*")

Он найдет первый попавшийся открытый файл в имени которого есть От

[vefer]

Все, получилось, спасибо!