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 1 Jul - 12:09

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

    Obrigado.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: exportar do access para o excel

    Mensagem  FabioPaes em Sex 1 Jul - 23: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!
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: exportar do access para o excel

    Mensagem  Avelino Sampaio em Sab 2 Jul - 5: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: Sex 24 Mar - 8:11