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

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.

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

Olá giba_,

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

Sucesso!

Resolvido!

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

Tópico Resolvido!