MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    avatar
    soares.samuel
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  soares.samuel 23/10/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.
    avatar
    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  giba_ 28/10/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
    avatar
    soares.samuel
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  soares.samuel 29/10/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!
    avatar
    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  giba_ 29/10/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
    avatar
    soares.samuel
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  soares.samuel 29/10/2013, 11:28


    Tópico Resolvido!

      Data/hora atual: 7/3/2021, 06:12