[Resolvido]Exportar dados do Access para o Excell sem sobrescrever o arquivo existente

Eu quero exportar os dados de uma consulta para o excell (ate aqui tranquilo). Mas o resultado dessa consulta vai sempre mudar, os campos serao os mesmos, entao quero que cada vez que eu a rode o resultado seja adicionado ao mesmo arquivo do excell e nao sobrescreva.
Ideias?

Bom dia, nicanax, e bem-vinda ao fórum
Pretende que seja adicionada nova folha? Se sim, utilize
Dim Folha As Excel.Worksheet

Set Folha = SeuExcel.ActiveWorkbook.Sheets.Add
Folha.Name = "NomeDaFolha"

Obrigada! Mas eu preciso que va para o mesmo sheet.
Por exemplo eu ja tenho o sheet chamado TopRange com 10 linhas. Eu quero adicionar ao "TopRange" o resultado de uma consulta do Access.

Mas a folha já tem dados? Quer preencher após o preenchimento existente?
Se sim, faça verificação da última linha preenchida e incremente para colar os novos dados

Isso. Mas como verifico a ultima linha preenchida?
Eu quero poder rodar a consulta N vezes e quero que o resultado sempre seja adicionado a folha existente.

Faça um ciclo a partir da 1ª linha para verificar se tem algo:
linha=1
for
if cells(linha,1)="" then exit for
linha=linha+1
next

'aqui obtém a 1ª linha livre

Muito obrigada! Vou colocar tudo em pratica e ver se chego no resultado que quero.

Resolvi dessa forma:

Private Sub Command0_Click()
Dim rstName As Recordset
Set rstName = CurrentDb.OpenRecordset("query1")

Dim objApp As Object, objMyWorkbook As Object, objMySheet As Object, objMyRange As Object

Set objApp = CreateObject("Excel.Application")
Set objMyWorkbook = objApp.Workbooks.Open("c:/exportarexcell/teste.xls")
Set objMySheet = objMyWorkbook.Worksheets("FolhaTeste")
Set objMyRange = objMySheet.Cells(objApp.ActiveSheet.UsedRange.Rows.Count + 1, 1)

With objMyRange
rstName.MoveFirst 'Rewind to the first record
.Clear
.CopyFromRecordset rstName
End With
End Sub