Как экспортировать результат готового запроса Access в существующую книгу Excel?

[Svetix13]

Добрый день всем!

Сижу 2 день туплю, ничего не получается, а задача следующая:

есть таблица в отчете в Excel, в нее надо вставить результат запроса Access средствами VBA (Пример:SELECT Zagruzka.Filial, Sum(Zagruzka.Summ) FROM Zagruzka WHERE (((Zagruzka.Data) = '01.10.2011') And ((Zagruzka.Vid) = '11')) GROUP BY Zagruzka.Filial - т.е. выборка с группировками, условиями отбора и упорядочиванием по возрастанию). Данные нужно вставить в середину листа Excel (например начиная с ячейки В7, шапка данных не важна - можно с ней, можно без)

Помогите плиз!!!!!!!!

Заранее спасибо!

[Svetix13]

Public Sub proverka()

Set fs = CreateObject("Scripting.FileSystemO bject")
Dim rst As ADODB.Recordset
Dim Exc As Object

Const conQuery = "запрос1"

Set Exc = CreateObject("Excel.Application")
Exc.Application.Visible = True

Exc.Workbooks.Open ("книга.xls(путь+название)")

Set rst = New ADODB.Recordset

rst.Open _
Source:=conQuery, _
ActiveConnection:=CurrentProject.Co nnection

Exc.Worksheets(3).Range("E3").CopyF romRecordset rst

End Sub



Правда теперь не могу написать проверку: если книга уже открыта, то либо закрыть ее, либо прописать ее использование