MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    exportar do access para o excel

    Compartilhe

    marcsdol
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 1
    Registrado : 01/07/2016

    exportar do access para o excel

    Mensagem  marcsdol em Sex 01 Jul 2016, 17:09

    Preciso de uma macro em VBA que exporte uma consulta do access para o excel

    Obrigado.

    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2822
    Registrado : 14/08/2013

    Re: exportar do access para o excel

    Mensagem  FabioPaes em Sab 02 Jul 2016, 04:06

    O mais Simples que pode existir, mas existe varios... De acordo com a sua finalidade...

    Coloque esse comando no evento ao clicar de um Botão:


    DoCmd.OutputTo acOutputQuery, "NomeConsulta", "MicrosoftExcel Workbook (*.xlsx)", "", True, "", 0


    Alterando NomeConsulta e colocando o nome de sua consulta que sera exportada!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3361
    Registrado : 04/04/2010

    Re: exportar do access para o excel

    Mensagem  Avelino Sampaio em Sab 02 Jul 2016, 10:04

    Olá!

    Dê preferência para o comando TransferSpreadsheet, que permite exportar grande volume de registros, se necessário.

    Docmd.TransferSpreadsheet acExport ,acSpreadsheetTypeExcel12 ,"NomeDaConsulta","C:\SuaPasta\SeuArquivo.xlsx"

    Sucesso!

      Data/hora atual: Dom 26 Fev 2017, 00:54