[Resolvido]Abrir planilha Excel ja criada e atualizar com Access

Ola, queria uma ajuda de quem puder auxiliar.

Tenho um formulário Access com Nome Produto, Valor, sabor e Apresentação aberto.
Tenho uma planilha com os mesmos campos já criada, porem a planilha estará fechada.

Preciso através do formulário Access, que ao pressionar um botão salvar, que o comando abra esta planilha Excel, que estará em formato xLsx, e salve os dados do Access: Nome do produto, valor, sabor e apresentação nesta planilha Excel a partir da linha 6 em diante. Apos passar para o próximo registro Accees, que salve na linha 7 da excel e assim por diante.

Feito isso, que salve a planilha Excel e salve a mesma na pasta Download com o nome Exportar.

Muito Obrigado desde já como sempre.

Corrigindo, Se bem que nem precisa abrir e fechar a tabela Excel , se possível fazer as adições com ela fechada mesmo.

Grato

Tá difícil eu resolver , então peço a alguém que talvez tenha um link de um problema parecido com que eu preciso .

Consegui aqui resolver meu caso em 99%, faltando apenas um detalhe que vou explicar abaixo.



Acontece que após acionado este código , é salvo na Planilha todos os dados requisitados normalmente.

Mas ao escolher outro produto e acionar novamente este código, entao aparece a seguinte mensagem de erro:

Erro em tempo de execução 1004

O método "Rows" do objeto '_Global' falhou

Então após eu dar CtrL + Alt + Del e Gerenciador de Tarefas e excluir do Processos em segundo Plano " Microsoft Excel ", que deveria estar fechado, Consigo fazer o comando funcionar novamente.
Mas se eu acionar novamente o comando, novamente o erro se repete.

Alguém poderia me dar uma dica para fechar de vez o Excel no termino do comando VBA e resolver este problema ?

Obrigado !

Novamente eu aqui , Desde que fiz esta postagem venho tentando e achei o codigo acima e adaptei a minha necessidade, tudo Ok, porem pra ficar 100% so preciso fazer o excel fechar em segundo plano pois esta ficando aberto. Somente se fecha se eu fechar pelo gerenciador CRTL + ALT + DEL.
Com o excel aberto nao consigo novamente fazer o comando funcionar.

Envio em anexo um modelo basico com o erro que esta apresentando aqui.
Abrir o Formulario E acionar o botao .
Vai se feito com sucesso.
Repetir novamente o procedimento e entao dará o erro.

Esse é meu problema aqui, se alguém puder ajudar serei novamente grato.

Descompactar na pasta Download !

Andre

PS: Sera que esta faltando no VBA incluir alguma Referencia na Ferramentas do VBA ???

Resolvido aqui !!

Private Sub Comando7_Click()
Dim xlapp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xldata As Excel.Range
Dim rowNo As Long
Dim xLastRow As Long
Dim a

Set xlapp = CreateObject("Excel.Application")
Set xlBook = xlapp.Workbooks.Open("C:\Users\amigo\Downloads\Produtos Shopee2.xlsx")
Set xlSheet = xlBook.Worksheets("Modelo")

xlapp.Visible = False
xlSheet.Select
xlSheet.Activate

With xlBook.Worksheets("Modelo")
xLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With

a = xLastRow

xlBook.Worksheets("Modelo").Range("A" & a) = Me.Código
xlBook.Worksheets("Modelo").Range("B" & a) = Me.Produto
xlBook.Worksheets("Modelo").Range("C" & a) = Me.Sabor
xlBook.Worksheets("Modelo").Range("D" & a) = Me.Apresentacao
xlBook.Worksheets("Modelo").Range("E" & a) = Me.QNT

xlBook.Save
xlBook.Close
xlapp.Application.Quit

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlapp = Nothing

MsgBox " Feito com Sucesso", vbOKOnly + vbInformation


End Sub

Estava buscando uma solução para a minha aplicação e essa resolução foi excelente. Complemento apenas para que fique didático para outra pessoa que buscar a mesma alternativa, que para que o código funcione é necessário adicionar o Excel nas referências do banco de dados em questão (a partir do menu ferramentas do VBA selecione referências e em seguida localize o driver do Excel que está disponível na sua máquina).