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

    [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: Qui 20 Jul 2017, 15:34