[Resolvido]Exportar para excel

Ola mestres gostaria de saber se é possivel exportar somente dados de um formulario para excel? como fazer ?

Basta você procurar neste fórum, que encontra, nomeadamente na sala de Códigos.

Coloque uma folha de Excel junto do banco, altere para os nomes corretos o código abaixo e teste;

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

JPaulo
Boa Tarde

Primeiramente, peço desculpas por "reabrir" um topico que ja estava resolvido...
o meu problema é porque fui tentar aplicar o que voce enviou para o Sr. alexandreg apresentou a mensagem de erro abaixo:

-----------------------------------------------
Erro em tempo de execução '-2147467259 (80004005)':
O método 'CopyFromRecordset' do objeto range falhou
-----------------------------------------------

nao sei como resolver..
o erro apresenta na seguinte linha:
>>>>> xls.ActiveCell.CopyFromRecordset rst

Se puder me ajudas...desde ja agradeço

Amigão, vá num modulo qualquer, Ferramentas, Refrencias e habilite as referencias;

Microsoft Excel 11.0 ou 12.0 Object Library

e a:

Microsoft DAO 3.6 Object Library

JPaulo

As duas referencias ja estao habilitadas...

Amigão duas perguntas...

1ª
Você tem o Excel junto do banco ?

2ª
Você alterou o que está no codigo acima em Azul ?

Fiz aqui e funfou na boa.

O Excel até abre porem quando chega na linha da o erro que lhe informei...

sim..alterei o que esta de azul..

tem mais alguma referencia que devo inserir?

Nao tem mais não...

Coloque aqui o codigo que alterou.

Diga-me qual o nome da tabela e qual o nome do Sheet da folha dentro do seu Excel.

Amigão bom dia !

Veja o exemplo que fiz para lhe mostrar o caminho das pedras.

http://dl.dropbox.com/u/771097/ExportaExcel.rar

Caros foristas,

Inseri a dica de JPaulo ao meu BD, nele, fiz uma consulta para que somente dados novos fossem acrescentados diariamente. Só tem um porém, como, quando dou o comando de exportação ele só envia os dados mais recentes, gostaria que eles fossem "colados" a partir da primeira linha vazia (A320... A914...), e não definido em "A1" como na dica de JPaulo. Já pesquisei e tentei várias dicas, mas sem sucesso. Acho que cheguei perto, faltou algum detalhe.

Private Sub Command0_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 & "\DadosCIAA.xls"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("Dados").Activate
strSQL = "SELECT * FROM CIAA.[registro], CIAA.[Tipo], CIAA.[n], CIAA.[art], CIAA.[art 2], CIAA.[data], CIAA.[n mes], CIAA.[promotor], CIAA.[n1] FROM ciaa WHERE CIAA.[data]>=NOW()-1 ORDER BY CIAA.data, CIAA.registro;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range
xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing
End Sub

Bom dia
Estou a adaptar este exemplo do João Paulo a minha dúvida é a seguinte:
Como posso limpar tudo o que a folha de Exel tem antes de exportar dados do Access?
Quando a folha do Exel tem menos dados que se exporta do Access tudo bem pasaa porcima
mas se tem mais dados vê-se o que restou
Obrigado
Pina

dia
ao utilizar este Modulo do João Paulo tinha certa necessidade e apagar os dados na folha de Exel

Private Sub Command0_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("FolhaTeste").Activate
xls.ActiveSheet.Range("A1").Delete
strSQL = "SELECT * FROM tblExemplo;"
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

Então acrescentei esta linha (xls.ActiveSheet.Range("A1").Delete)
e agora tudo bem.
Obrigado
Pina

Bom dia Américo !

É assim;

Private Sub SeuBotao_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("FolhaTeste").Activate
    strSQL = "SELECT * FROM tblExemplo;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
    xls.ActiveSheet.Range("A1").Select
    xls.ActiveSheet.Range("A1:AZ65000").EntireColumn.Delete
    xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing
End Sub

Bom dia João Paulo
Posso dizer Mestre?
Ficou aquilo que se pretende
Muito Obrigado
Pina

Obrigado pelo retorno o forum agradece.

Bom dia JPaulo,

Desculpe por reabrir o tópico, mas tenho uma dúvida.

Como faço para o seu código funcionar com uma Consulta?

Pois quando substituo o nome da tabela pelo nome da consulta, o mesmo ocorre um erro e não exporta.

Grato pela compreensão.

bom tarde, aproveitando o tópico, como eu faço para exportar as dados do formulario atual. O meu formularia tem o principal e o um subformulario. Grato.