[Resolvido]exportar x excel

ola Pessoal

tenho esse codigo para exportar de uma caixa de listagem abaixo
funciona de boa so uma pergunta nao consegui incluir uma caixa para colocar o nome a ser salvo
gostaria de clicar no botao ele abrir uma caixa para colocar o nome quero salvar em vez de teste.xls

If MsgBox("Voce esta Pretes Gerar Embarque", vbYesNo, "Atenção") = vbYes Then

DoCmd.TransferSpreadsheet acExport, , "Cs_Falso2", "C:\SysControle\Nova Versao Almox\teste"

MsgBox "Excel Gerado com Sucesso!!!", vbInformation, "Gerado"


Me.ListaFalse.Requery

End If

Olá Márcio,

Faça assim:

Código:



Dim strArquivo As String

strArquivo = "Dados_" & Format(Date, "yyyymmdd") & Format(Time(), "hhmmss") & ".xls"

If MsgBox("Voce esta Pretes Gerar Embarque", vbYesNo, "Atenção") = vbYes Then
    DoCmd.TransferSpreadsheet acExport, , "Cs_Falso2", "C:\SysControle\Nova Versao Almox\" & strArquivo
    MsgBox "Excel Gerado com Sucesso!!!", vbInformation, "Gerado"
End If




Desta forma, ele criará o arquivo com os dados concatenados com a data, hora, minutos e segundos e coma a extensão ".xls"

Ex: Dados_20190715162312.xls

Espero ter ajudado.

Boa sorte.

Ola Alexandre Fim

seu código caiu como uma luva , meu muito obrigado.

Valeu Márcio !!!

O fórum agradece.

Abraços