[Resolvido]Exportar dados activos do formulário access para o excel

Bom dia pessoal.
Estou com muita dificuldade em transferir os dados activos no formulário para determinados campos no excel. Será que tenho que usar o:
Dim rst As DAO.Recordset
Set rst = Me.Recordset

Ou outro tipo de comando, acho que mesmo este estou a usar mal. Alguém me pode socorrer? Obrigado.

Abraço,

Rui Maciel

Para dados que já estão no formulário, deve trocar Recordset por RecordsetClone.

Olá Críquio
Eu achei esta função, contudo, dá um erro ao executar, abre o excel mas não transfere dados. Podes dar uma verificada.
Obrigado.
Abraço,

Rui Maciel

Veja:

Private Sub Comando104_Click()

DoCmd.TransferSpreadsheet acExport, , Me.RecordSource, "C:\Excel.xls"
If MsgBox("Deseja transferir dados para o excel?", vbOKCancel + vbDefaultButton1 + vbInformation, "Aviso do Sistema") = vbOK Then
End If
DoCmd.GoToRecord , , acNewRec
Me.cbxNome.SetFocus
End Sub

Sera salvo no Excel dentro da unidade C:


Não sei se é isso que pretende!

Private Sub Comando104_Click()

DoCmd.TransferSpreadsheet acExport, , Me.RecordSource, "C:\RuiMaciel\Excel.xls"
If MsgBox("Deseja transferir dados para o excel?", vbOKCancel + vbDefaultButton1 + vbInformation, "Aviso do Sistema") = vbOK Then
End If
DoCmd.GoToRecord , , acNewRec
Me.cbxNome.SetFocus
End Sub



Aqui fica guardado dentro da pasta Ruimaciel

Primeiro vc cria a pasta dentro da unidade C:
Nomeie como RuiMaciel.

Sr. Lupércio. Obrigado.
Realmente a sua linha de comando é bastante boa, resulta, contudo, o nome está aparecendo como número. O que posso fazer.
E se eu quisesse passar os dados ativos para determinados campos da folha excel, tipo emissão de um recibo?
Ou seria mais correto imprimir diretamente do formulário access, depois de criar um determinado relatório?
Obrigado.
Abraço,
Rui Maciel

Verifique o tipo de dados que você colocou na tabela,
ai já não tem nada ver com a transferencia para o Excel.
Você que determinou o tipo de dados.

Abraço!

Gracias
Abraço,
Rui Maciel

O forum agradece o retorno!