exportar dados de controles de um formulário para um arquivo excel

Boa tarde.

Preciso de ajuda para gerar um arquivo em excel com dados extraídos de um formulário access.

o arquivo que esta localizado no c:\analiseinicial\inicial.xls


Pensei em adicionar um botão no formulário e através de código fazer a ligação dos controles para as celulas.

Alguém pode me passar o conceito básico para Eu tentar montar essa solução.

No Aguardo, obrigado.

Ola seja bem vindo ao forum;

Veja o código, "Exporta para Excel"

http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access

Obrigado pela rápida ajuda.

Quando executo o código ele trava a access.

Preciso mudar algum campo para funcionar ou habilitar algo?

"Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
strLivro = CurrentProject.Path & "\teste.xls"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("Sheet1").Activate
strSQL = "SELECT * FROM teste;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A1").Select
xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing
End Sub"

No aguardo obrigado.

César

Boa tarde,

Não estava funcionando porque o arquvo a ser criado era xls no código e meu office cria xlsx.

Agora o problema esta em selecionar uma consulta especifica e ele só funciona com tabela.

Se puder ajudar, agradeço.

Abraços

Ola;

Negativo, funciona com tabela ou consulta;

Mostre-me a alteração que fez ao código;

Código atualizado - exportar consulta para excel - realmente a consulta funciona, era um erro meu.

Private Sub Comando619_Click()
'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
strLivro = CurrentProject.Path & "\teste.xlsx"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("plan1").Activate
strSQL = "SELECT * FROM contatos consulta;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A1").Select
xls.ActiveCell.CopyFromRecordset rst
Set xls = Nothing
End Sub

O desafio agora é executar a consulta com os dados do formulário, pois ela esta carregando todos os dados e preciso apenas da informação já selecionada no formulário ativo.

exemplo : na lista de contatos tenho vários nomes, mas preciso exportar para excel apenas o contato ativo no formulário.


Obrigado pela ajuda.
Abraços