Связать запись с нужным докум Excel

[Makarus]

Пытаюсь выводить отчет из параметрич запроса в нужный файл Excel (в запросе одна запись, из неск. таблиц). "Скроил" такой код:

Option Compare Database


Sub GetExcel()
Dim MyXL As Object
Dim ExcelWasNotRunning As Boolean

On Error Resume Next
Set MyXL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then ExcelWasNotRunning = True
Err.Clear

DetectExcel

Set MyXL = GetObject("C:\...\МояПапка\МойФайл. xls")

MyXL.Application.Visible = True
MyXL.Parent.Windows(1).Visible = True

MyXL.ActiveСell.FormulaBE20 = [Forms]![ФИРМЫ Запрос1]![Название].Value


End Sub

Sub DetectExcel()
Const WM_USER = 1024
Dim hWnd As Long

End Sub

Документ открывает, но значение ячейки в нужное место не прописывает. Что я делаю не так? (Я новенький...) Спасибо

[Teslenko_EA]

Здравствуйте Makarus.
"..Что я делаю не так?.." :
переменная MyXL исходя из объявления - Set MyXL = ...\МойФайл. xls") это книга.
MyXL.ActiveСell... - не верно, у книги нет активной ячейки , необходимо обратиться к листу и уже на нем к активной ячейке, к ячейке заданной координатами, диапазоном или именем.

Dim s$
s = [Forms]![ФИРМЫ Запрос1]![Название].Value & ""
...
Set XL = CreateObject("Excel.Application") ' Excel
    XL.Workbooks.Open "C:\...\МояПапка\МойФайл. xls" ' книга
    Set XLT = XL.Worksheets("Лист1") ' лист
     XLT.ActiveСell = s
     XLT.Сells(2, 1) = s
     XLT.Range("A3") = s
     XLT.Range("имя1") = s
...

думаю так будет правильнее.
Успехов Вам.
Евгений.

P.S. выкладываемый код для удобочитаемости заключайте в тэги [соde]...[/соde], кнопка # на панели.

[Makarus]

Спасибо, попробую!