Iniciar os dados exportados em um celula específica do excel.

Pessoal fiz esse código com ajuda de todos do fórum só gostaria de melhorar com uma função se existir exemplo cada exportação dessa gostaria de iniciar na celula A14 do excel e possível fazer isso. Segue o código abaixo?


Private Sub Comando38_Click()
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")

  Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="Cons_Acom_Aih_Apres_e_Pg", FileName:=CurrentProject.Path & "\" & "Relatório Prévio ou Definitivo" & ".xlsx")
  Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="Cons_Acom_Aih_Rej_Resumo", FileName:=CurrentProject.Path & "\" & "Relatório Prévio ou Definitivo" & ".xlsx")
  Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="Cons_Acom_Aih_Rej_Geral_Sigtap", FileName:=CurrentProject.Path & "\" & "Relatório Prévio ou Definitivo" & ".xlsx")
  Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="Cons_Acom_Aih_Capacidade", FileName:=CurrentProject.Path & "\" & "Relatório Prévio ou Definitivo" & ".xlsx")
  'FileName:=CurrentProject.Path por FileName:="D:\Relatórios"'
 
  xlApp.Visible = True

xlApp.Workbooks.Open CurrentProject.Path & "\" & "Relatório Prévio ou Definitivo" & ".xlsx", True, False
Debug.Print xlApp.Version
Set xlApp = Nothing

'MsgBox "Exportação Realizada!!! - Arquivo Encontra-se na Raiz do Banco de Dados"'

End Sub

O que você está a fazer uma transferencia de dados em massa, de tabelas ou consultas para o Excel.
Dessa forma não poderá definir qual a celula.

Veja o código "Exporta para Excel" do link da minha assinatura "102-codigos-vba-para-access".

https://www.maximoaccess.com/t11-102-codigos-vba-para-access

João muito obrigado!!!

Consegui entender e resolver meu problema agora só mais uma pedido quero exportar os dados da consulta sem os cabeçalho das colunas.

Exemplo quando exporto vem desta forma:

Nome
João
Rafael
Maria

Gostaria que exportasse sem o cabeçalho;

João
Rafael
Maria

Isso e possível se for, por gentileza dar um exemplo.