[Resolvido]Exportar dados de um formulário (TODOS OS REGISTROS) PARA O EXCEL

Boa noite,

Preciso exportar os dados (registros) de um formulário ativo (dados que estão em tela) para um planilha excel já existente.

O código abaixo que peguei aqui no max, (Obrigado ao Paulo) quase resolve o problema.


Preciso que seja aberto um arquivo excel já existente e que as informações do formulário sejam coladas no modo transpor do excel de linhas para colunas.

Se Alguém puder ajudar.

Private Sub Comando1010_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 sinistro;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A1").Select
xls.ActiveCell.CopyFromRecordset rst
Set xls = Nothing
End Sub


Obrigado.

Dê mais uma pesquisada por Excel no fórum. Há diversos tópicos que lhe ajudarão bastante.