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 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.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3271
    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!
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3385
    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: Qua 23 Ago 2017, 03:34