Copiar dados de Relatorio para arquivo em Excel ja existente

Tenho um Relatorio do qual quero exportar os dados para um arquivo em excel ja existente a partir da célula A3
pesquisei neste forum o obtive o codigo de JPaulo, abaixo:

Private Sub Command0_Click()
'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
strLivro = CurrentProject.Path & "\teste.xls"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("FolhaTeste").Activate
strSQL = "SELECT * FROM tblExemplo;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A1").Select
xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing
End Sub

Agora preciso adaptar de Tabela para Relatorio, estou com dificuldades, pois não sei como fazer e gostaria da ajuda dos colegas (strSQL = "SELECT * FROM tblExemplo;").

mas qual o motivo de exportar para o excel? não serve em outro formato? se for para criar relatorios, o access tem muito mais recursos que o excel.

Concordo, mas tenho q dar saída de tais dados mensal em formato excel, pois que recebera tais informações exige em excel.


Obrigado

Sendo assim, sim.