[Resolvido]Ajuda com código - Exportar consulta para excel começando em determinada célula

Olá amigos,

Preciso da ajuda os mais experientes.
Preciso colar o resultado de uma consulta em uma deternimado excel que já tenho, porém começando em uma determinada célula (A2). A exportação também não deverá alterar a formatação do excel (largura das células, fontes, formatos, etc)

Achei o código do amigo JPaulo, porém não estou conseguindo rodar.
Acusa erro ( erram esperado 2) na linha que destaquei.


'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
strLivro = "caminho\nomedoarquivo"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("Aba do excel").Activate
strSQL = "SELECT * FROM Nome da consulta;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A2").Select
xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing

Ele até abriu o arquivo, mas não fez nada além disso.


Abç
André Lindolfo

O próprio JPaulo me ajudou em questão semelhante. veja:

http://maximoaccess.forumeiros.com/t8185-resolvidoexportar-para-excel-iniciando-em-celula-especifica-e-cabecalho-da-coluna

Vê se te ajuda tambem.
abraços

Oi Fiz uma macro no excel e chamo-a pelo aceess...