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
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2327
    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 : 3350
    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!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

      Data/hora atual: Qui 08 Dez 2016, 23:54