MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Exportar para excel

    avatar
    alexandreg
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Localização : Anónimo
    Mensagens : 58
    Registrado : 04/11/2009

    [Resolvido]Exportar para excel Empty exportar para excel

    Mensagem  alexandreg em 29/8/2010, 13:34

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Exportar para excel Empty Re: [Resolvido]Exportar para excel

    Mensagem  JPaulo em 30/8/2010, 11:59

    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




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Exportar para excel Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Exportar para excel Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Exportar para excel Folder_announce_new Instruções SQL como utilizar...
    avatar
    adriano944
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 10/02/2010

    [Resolvido]Exportar para excel Empty Re: [Resolvido]Exportar para excel

    Mensagem  adriano944 em 18/11/2010, 14:41

    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
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Exportar para excel Empty Re: [Resolvido]Exportar para excel

    Mensagem  JPaulo em 18/11/2010, 15:37

    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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Exportar para excel Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Exportar para excel Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Exportar para excel Folder_announce_new Instruções SQL como utilizar...
    avatar
    adriano944
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 10/02/2010

    [Resolvido]Exportar para excel Empty Re: [Resolvido]Exportar para excel

    Mensagem  adriano944 em 18/11/2010, 16:01

    JPaulo

    As duas referencias ja estao habilitadas...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Exportar para excel Empty Re: [Resolvido]Exportar para excel

    Mensagem  JPaulo em 18/11/2010, 18:06

    Amigão duas perguntas...


    Você tem o Excel junto do banco ?


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

    Fiz aqui e funfou na boa.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Exportar para excel Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Exportar para excel Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Exportar para excel Folder_announce_new Instruções SQL como utilizar...
    avatar
    adriano944
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 10/02/2010

    [Resolvido]Exportar para excel Empty Re: [Resolvido]Exportar para excel

    Mensagem  adriano944 em 18/11/2010, 18:09

    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?
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Exportar para excel Empty Re: [Resolvido]Exportar para excel

    Mensagem  JPaulo em 18/11/2010, 18:18

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Exportar para excel Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Exportar para excel Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Exportar para excel Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Exportar para excel Empty Re: [Resolvido]Exportar para excel

    Mensagem  JPaulo em 19/11/2010, 11:37

    Amigão bom dia !

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

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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Exportar para excel Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Exportar para excel Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Exportar para excel Folder_announce_new Instruções SQL como utilizar...
    avatar
    noninho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 17/04/2011

    [Resolvido]Exportar para excel Empty Re: [Resolvido]Exportar para excel

    Mensagem  noninho em 3/4/2012, 20:30

    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 Question Question
    xls.ActiveCell.CopyFromRecordset rst
    xls.ActiveWorkbook.Save
    xls.Application.Quit
    Set xls = Nothing
    End Sub
    avatar
    Pina
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 354
    Registrado : 19/02/2011

    [Resolvido]Exportar para excel Empty Exportar para Exel

    Mensagem  Pina em 4/2/2013, 12:34

    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
    avatar
    Pina
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 354
    Registrado : 19/02/2011

    [Resolvido]Exportar para excel Empty Exportar para Exel

    Mensagem  Pina em 5/2/2013, 11:43

    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

    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Exportar para excel Empty Re: [Resolvido]Exportar para excel

    Mensagem  JPaulo em 5/2/2013, 12:01

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Exportar para excel Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Exportar para excel Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Exportar para excel Folder_announce_new Instruções SQL como utilizar...
    avatar
    Pina
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 354
    Registrado : 19/02/2011

    [Resolvido]Exportar para excel Empty Exportar para Exel

    Mensagem  Pina em 5/2/2013, 20:56

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Exportar para excel Empty Re: [Resolvido]Exportar para excel

    Mensagem  JPaulo em 5/2/2013, 22:55

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Exportar para excel Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Exportar para excel Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Exportar para excel Folder_announce_new Instruções SQL como utilizar...
    pengo
    pengo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 85
    Registrado : 10/12/2013

    [Resolvido]Exportar para excel Empty Re: [Resolvido]Exportar para excel

    Mensagem  pengo em 14/1/2014, 14:27

    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.
    avatar
    jntrindade
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 272
    Registrado : 07/12/2009

    [Resolvido]Exportar para excel Empty Re: [Resolvido]Exportar para excel

    Mensagem  jntrindade em 14/1/2014, 15:06

    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.

    Conteúdo patrocinado

    [Resolvido]Exportar para excel Empty Re: [Resolvido]Exportar para excel

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/6/2019, 14:29