Где ошибка?

[Marill]

Есть код в Access:
[Private Sub Кнопка4_Click()
On Error GoTo Err_Кнопка4_Click

Dim XLApp As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet

DoCmd.OutputTo acOutputQuery, "Запрос1", acFormatXLS, "c:\temp\Печать.xls", True

Set XLApp = GetObject(, "Excel.Application")
Set wb = XLApp.Workbooks("Печать.xls")
Set ws = wb.Worksheets.Add
ws.Name = "Красивый"
ws.Range("a1").Value = wb.Sheets("Запрос1").Range("a2").Value

Exit_Кнопка4_Click:
Exit Sub

End Sub]

В пошаговом режиме все работает чудесно.
При нажатии кнопки в форме Access на строке Set XLApp = GetObject(, "Excel.Application") выдается ошибка: ActiveX component can't create object.
Что делать?

[tyomitch]

Excel к этому моменту запущен?
Если GetObject не может найти запущенный экземпляр Excel, то она возвращает эту ошибку.

[SergeySV2]

Не путай два разных варианта вызова:

Set XLApp = GetObject(, "Excel.Application") - подсоединяется к запущенному экземпляру Excel иначе возвращает ошибку

Set XLApp = GetObject("", "Excel.Application") - подсоединяется к запущенному экземпляру Excel иначе запускает сам Excel и подсоединяется к нему

[Marill]

Так ведь строка
DoCmd.OutputTo acOutputQuery, "Запрос1", acFormatXLS, "c:\temp\Печать.xls", True
и запускает Excel.
Ошибки быть не должно.

[RayShade]

Ага. Она запускает его, отрабатывает экспорт и закрывает потом.

[SergeySV2]

А ты проверял?

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

[Marill]

Всем спасибо!
Нужно было применять GetObject к переменной определенной, как Workbook, а не как Application, как в моем случае, и сразу указывать имя созданного с помощью DoCmd файла.