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

    [Resolvido]Exportar consulta do Access para o Excel e perguntar onde salvar o arquivo

    Compartilhe

    soares.samuel
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 05/09/2013

    Exportar consulta do Access para o Excel e perguntar onde salvar o arquivo

    Mensagem  soares.samuel em Qua 23 Out 2013, 13:25

    Bom dia a todos!

    Estou exportando uma consulta do Access para o Excel utilizando o seguinte código. Está dando tudo certo:

    Private Sub btexporta_Click()
    DoCmd.OutputTo acOutputQuery, "cs_fe", "ExcelWorkbook(*.xlsx)", "C:\Users\" & Format(Now, "dd-mm-yyyy") & "-" & Format(Now, "hh-nn") & ".xlsx", False, "", 0, acExportQualityPrint
    MsgBox "Tabela Exportada com Sucesso!"
    End Sub

    Pra melhorar ainda mais, ao invés de o sistema exportar os arquivos sempre pra um local fixo, no caso C:\Users\, gostaria que abrisse a caixa de diálogo pra o usuário digitar o nome do arquivo e decidir onde salvá-lo. Pesquisei muito, não achei nada. Se algum dos mestre puder ajudar, sou muito grato.

    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 01/02/2011

    Re: [Resolvido]Exportar consulta do Access para o Excel e perguntar onde salvar o arquivo

    Mensagem  giba_ em Seg 28 Out 2013, 22:37

    cara pra digitar em um campo eu não sei
    mas uso essa pra exportar, onde o usuário escolhe o local para salvar


    DoCmd.OutputTo acQuery, "00_resumo_contador_erros", "MicrosoftExcelBiff8(*.xls)", "", False, "", 0

    soares.samuel
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 05/09/2013

    Re: [Resolvido]Exportar consulta do Access para o Excel e perguntar onde salvar o arquivo

    Mensagem  soares.samuel em Ter 29 Out 2013, 02:15

    Olá giba_,

    Muito obrigado! cheers  É o que eu queria. Então basta retirar o local padrão e a caixa que pergunta onde salvar o arquivo aparece...

    Sucesso!

    Resolvido!

    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 01/02/2011

    Re: [Resolvido]Exportar consulta do Access para o Excel e perguntar onde salvar o arquivo

    Mensagem  giba_ em Ter 29 Out 2013, 09:57

    valeu pelo retorno! apenas lembrando marque a opção como resolvido



    "Feliz aquele que transfere o que sabe e aprende o que ensina." Cora Coralina

    soares.samuel
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 05/09/2013

    Re: [Resolvido]Exportar consulta do Access para o Excel e perguntar onde salvar o arquivo

    Mensagem  soares.samuel em Ter 29 Out 2013, 11:28


    Tópico Resolvido!

      Data/hora atual: Sex 09 Dez 2016, 03:52