[Resolvido]Exportar para o Excell

Boa tarde amigos,

Tenho o seguinte código para exportar o arquivo para o excell:

On Error GoTo Trato
DoCmd.OutputTo acQuery, "CONS_LNT", "ExcelWorkbook(*.xlsx)", , False, "", 0, acExportQualityPrint
MsgBox "Consulta Exportada com Sucesso!"
Exit Sub
Trato: MsgBox "Exportação não realizada!"

Está funcionando corretamente, porém ao abrir a janela para localizar o local a ser salvo aparece como nome do arquivo, o mesmo nome da tabela, neste caso "CONS_LNT.xlsx" e se mudar no nome do arquivo na janela, automaticamente não exporta.

Gostaria de exportar para o excell, com a opção de escolher o local a ser salvo e também que eu possa já deixar padronizado o nome do arquivo salvo.

Aguardo retorno dos amigos.

Att,

Valdenir

Amigo, Esse método aceita sim a mudança do nome de saida do arquivo sem problemas (Inclusive testei agora varias vezes e não obtive erros). Deve ser algum outro erro, até mesmo falta de permissão para salvar o arquivo....

Quando a Padronizar o Nome, nesse método você deve informar o Nome do arquivo de saida no local destacado, porem não pode ser somente o Nome, deve passar o Caminho completo para o Arquivo destino.

DoCmd.OutputTo acQuery, "CONS_LNT", "ExcelWorkbook(*.xlsx)", "C:\NomePasta\NomeArquivo.xlsx", False, "", 0, acExportQualityPrint


Mas já verificou na sala de Repositorios? Tem vários exemplos la!

Fabio,

Neste caso o caminho já está padrão, porém eu quero escolher o caminho, mas quero que o relatório por exemplo em vez de aparecer "CONS_LNT.xlsx" ele apareça por exemplo "Levantamento das Necessidades de Treinamento.xlsx"


Este código que vc me passou o caminho fica fixo, porém o nome eu posso criar como quiser.

Aguardo retorno.

Att,

Valdenir

Então Terá que adaptar algum exemplo nosso aqui da Sala de Repositórios!
Veja la qual lhe agrada e adapta...

Mas lhe adianto que esse método aceita a mudança de nome sem problema... O erro que ocorre e por outra coisa. posta o erro pra sabermos qual e,.... Print da tela favor

Rapaz, se você tem tudo a funcionar como deseja, porque não faz o simples em vez de complicar ?

Você tem a consulta "CONS_LNT", é só fazer uma nova consulta baseada nessa, e dar o nome de "Levantamento_das_Necessidades_de_Treinamento"

Atenção:
Sem espaços no nome.

On Error GoTo Trato
DoCmd.OutputTo acQuery, "Levantamento_das_Necessidades_de_Treinamento", "ExcelWorkbook(*.xlsx)", , False, "", 0, acExportQualityPrint
MsgBox "Consulta Exportada com Sucesso!"
Exit Sub
Trato: MsgBox "Exportação não realizada!"

Aguardo o seu retorno.