Inserir Valores ao exportar em excel

Olá,

Eu tenho uma consulta que exporta em Excel, e eu estou usando assim:

Código:


DoCmd.OutputTo acOutputQuery, "csCalculoCruzado", _
acFormatXLS, "C:\BD\relatorios\relatorioNotas.xls", True

DoCmd.Close acReport, "csCalculoCruzado"


Mas eu queria inserir algum titulo no Excel e alguns campos que tenho em um formulário que faz a exportação dessa consulta.
Eu encontrei esse código aqui no fórum, mas ele sobrepõe se eu executar antes de exportar, alguém tem uma dica pra de dar sobre isso?

Código:


Private Sub cmdAlterarXLSX_Click()
'ahteixeira 2015 - maximoaccess
    Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object

    Set oExcel = CreateObject("Excel.Application")

    Set oBook = oExcel.Workbooks.Open(Application.CurrentProject.Path & "\AlteraFicheiroExcel.xlsx")
    oExcel.Visible = False

    Set oSheet = oBook.Worksheets(1)

    oSheet.Range("A1").Value = "maximoaccess A1"
    oSheet.Range("B1").Value = "maximoaccess A2"
   
    oBook.Save
    oBook.Close
    oExcel.Quit
   
    MsgBox "Feito, Veja ficheiro excel.", vbInformation
End Sub



Olá,

Ele substitui os valores já inseridos.
Uma solução seria inserir no final informando qual célula seria informada o valor mas o tamanho que vai ser minha lista.
Outra solução é ao exportar informar qual célula deveria ser inserida, mas eu não sei como fazer.