[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Excel » Excel Макросы (VBA) » Как узнать имя открытой книги и сделать активной?
Как узнать имя открытой книги и сделать активной?
koralekДата: Вторник, 11.10.2011, 16:26 | Сообщение # 1
Подполковник
Группа: Администраторы
Сообщений: 147
Репутация: 0
Статус: Offline
For Each book In Workbooks
If ThisWorkbook.Name <> book.Name Then
If Left(book.Name, Len("Полевые отчёты")) = "Полевые отчёты" Then
If MsgBox("Она " & book.Name & " ?", vbQuestion + vbOKCancel, "") = vbOK Then
book.Activate
' ...
End If
End If
End If
Next
ThisWorkbook.Activate
 
Форум » Excel » Excel Макросы (VBA) » Как узнать имя открытой книги и сделать активной?
  • Страница 1 из 1
  • 1
Поиск: