Управление кокретным экземпляром другого приложения

[konev]

Пусть открыты несколько экземпляров Екселя.
Если выполнить например в ПП такой код:

Код: Выделить всё


Dim bb As Excel.Application
Sub vv()
  Set bb = Excel.Application
End Sub

то откроется новый экземпляр Excel. При этом при повторном выполнение того же кода в bb передаваться будет тот же самый экземпляр. А как заполучить конкретный экземпляр Екселя с данным hwnd (из тех, что уже открыты)?

[Tanya]

Set bb = GetObject(, "Excel.Application")

но, наверно, bb - первый повпавшийся Excel,
причем, если ни одного открытого не будет,
то будет ошибка

как вариант перебрать все открытые окна

[inq]

А какой вообще смысл в запуске нескольких экземпляров Экселя?

[konev]

А какой вообще смысл в запуске нескольких экземпляров Экселя?

Смысла особого нет, но так часто случается, потому что нажать иконку на панеле быстрого запуска обычно проще всего

2 Tanya
Спасибо!
А что значит перебрать все открытые окна?

[inq]

konev
если макрос должен сам открывать эксель, то CreateObject, либо вариант из первого поста, если из уже открытого - GetObject. А выдумывать некорректные ситуации не стоит.