Приветствую!
Из Access запускаю Excel:

Function Sheetx() As Integer
Dim app As Excel.Application
Dim wbk As Excel.Workbook

Set app = Excel.Application
Set wbk = app.Workbooks.Open(WegZuExcel)


Excel.Cells(6, 3).Value = Vorname_Name
Excel.Cells(3, 4).Value = KodAnBerater + 90000000
app.Run ("Macro1")
. . . .

В Macro делаю видимой Таблицу.
Все хорошо срабатывает.

Вопрос: как с помощью VBA сделать окно Excel максимальным,
В Access это делалось легко - Docmd.Max

И еще: можно ли из ACCESS потом с помощью VBA проверять, активна ли Excel программа.
Так как пользователь мог завершить работу Excel.

Вопрос окна мах размера снят.
Проверку активности Excel "обошел".