Подскажите изящное решение.

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
xlApp.Visible = True
Set xlSheet = xlBook.Worksheets(1)

Если ни один экземпляр Excel не запущен, он появляется в панели задач в свернутом состоянии, а нужно, чтобы в “активном”, т.е. чтобы Access на него “переключился”. Чтобы не приходилось делать это вручную. Спасибо.

http://www.sql.ru/forum/1157405/kak-sdelat-aktivnym-excel