Copiar dados do Access para o Excel

Boa tarde,

Possuo um formulário de inserção de dados, com campos do tipo NOME, MATRICULA, etc.

Esse formulário alimenta uma tabela (obviamente), gostaria que alguns campos dele além de irem para a tabela do Access fossem inseridos na última linha de uma planilha de Excel.

Seria possível?

Já que ninguém respondeu, vou tentar melhorar o texto pra ver se alguém entende.

Conseguiu abrir a planilha do Excel com o código abaixo.

Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.Workbooks.Open "C:\Users\f3868527\Desktop\PLANILHA PRESTAÇÃO DE CONTAS FINAL.XLSM", True, False
Set xlApp = Nothing

Gostaria da mesma maneira que adiciono os campos na tabela do access, adicicioná-los no excel.

Dim db As Database
Dim rsViagem As Recordset

Set db = CurrentDb()
Set rsViagem = db.OpenRecordset("Viagem ao Exterior", dbOpenDynaset)

With rsViagem
.AddNew
!CONTA = Me.txtConta
!MATRICULA = Me.txtMatricula
!NOME = Me.txtNome
.Update
End With

rsViagem.Close
Set rsViagem = Nothing

Boa tarde,
Tente

Dim xlApp As Object,I as integer
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = false
xlApp.Workbooks.Open "C:\Users\f3868527\Desktop\PLANILHA PRESTAÇÃO DE CONTAS FINAL.XLSM", True, False
do
if Len("" & MeuExcel.Cells(I, 1))=0 then
MeuExcel.Cells(I, 3) = Me.txtConta
MeuExcel.Cells(I, 2) = Me.txtMatricula
MeuExcel.Cells(I, 1) = Me.txtNome
exit do
end if
i=i+1
loop
xlApp.Workbooks.Close savechanges:=True
xlapp.Quit
Set xlApp = Nothing

Gostaria da mesma maneira que adiciono os campos na tabela do access, adicicioná-los no excel.

Dim db As Database
Dim rsViagem As Recordset

Set db = CurrentDb()
Set rsViagem = db.OpenRecordset("Viagem ao Exterior", dbOpenDynaset)

With rsViagem
.AddNew
!CONTA = Me.txtConta
!MATRICULA = Me.txtMatricula
!NOME = Me.txtNome
.Update
End With

rsViagem.Close
Set rsViagem = Nothing

Boa!

Fiquei com uma dúvida no objeto MeuExcel, seria pra definir ele como sendo a planilha ativa? Não entendi muito bem

Boa noite,
Foi lapso meu ao colocar o código e não ter adaptado para a sua variável
onde coloquei Meuexcel devia ser xlApp

Substitui, mas ele acusa um Erro em tempo de execução 1004; Erro de definição de aplicativo ou de definição de objeto.

Ao depurar ele para na condição if

if Len("" & MeuExcel.Cells(I, 1))=0 then

Bom dia,
será if Len("" & xlApp.Cells(I, 1))=0 then

Desculpe, eu digitei errado em minha mensagem.

O código está como você falou, mas o erro continua.

Boa noite
É melhor ver a bd