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

    Exportar para o Excell

    Compartilhe

    Vardost
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 18/05/2015

    Exportar para o Excell

    Mensagem  Vardost em Sab 26 Ago 2017, 00:22

    Bom noite `Pessoal,

    Alguem pode me dizer porque o código abaixo nao está funcionando.
    Na verdade quero exportar para o excel uma consulta temporaria, sem na verdade criar uma consulta o bd.

    Esse é o código.

           Dim db As Database, RS As Recordset
           Dim strSQL As String
           Set db = CurrentDb
               strSQL = "SELECT * FROM TBL_REGISTROS"
               Set RS = db.OpenRecordset(strSQL)
                       DoCmd.OutputTo acOutputQuery, "strSQL", acFormatXLSX, , True
                       MsgBox "Consulta Exportada com Sucesso! ", vbInformation, "SGQ"
                       RS.Close
                       db.Close


    Att,  
    Valdenir
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6505
    Registrado : 05/11/2009

    Re: Exportar para o Excell

    Mensagem  Alexandre Neves em Sab 26 Ago 2017, 21:08

    Boa noite
    DoCmd.OutputTo acOutputQuery, "NomeDaConsulta", acFormatXLSX, , True


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Vardost
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 18/05/2015

    Re: Exportar para o Excell

    Mensagem  Vardost em Seg 28 Ago 2017, 17:04

    Alexandre,

    Esse código que vc colocou "DoCmd.OutputTo acOutputQuery, "NomeDaConsulta", acFormatXLSX, , True" é utilizado quando eu já tenho a consulta pronta e salva.

    Porém quero saber quando eu não quero criar a consulta no BD e sim somente temporariamente para exportar para o excel.

    Att,

    Valdenir
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6505
    Registrado : 05/11/2009

    Re: Exportar para o Excell

    Mensagem  Alexandre Neves em Ter 29 Ago 2017, 19:16

    Boa tarde,

    o código só trabalha com consultas existentes. Crie uma tabela com dados pretendidos, execute o código e elimine a tabela
    CurrentDb.Execute "INSERT INTO NomeDaTabelaTemporaria SQLdaConsulta"
    DoCmd.OutputTo acOutputQuery, "NomeDaTabelaTemporaria", acFormatXLSX, , True
    DoCmd.DeleteObject acTable, "NomeDaTabelaTemporaria"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Qua 22 Nov 2017, 10:47