Array
(
)

Exportar arquivo com a data conforme o exemplo

Agnaldo Neves
   - 08 jun 2016

Bom dia senhores,
Tenho o código abaixo:
Que gerar este arquivo abaixo e funciona bem:
C:\exportar\tmp\ProdutoSite.xml
Mas agora pediram para mim que faça uma alteração conforme abaixo:
Como dever ficar apenas com a data sendo mudada automaticamente pela data do dia:
C:\exportar\tmp\20292customer24042016.xml
O final 24042016 será mudado pela data do dia o resto é fixo:

Private Sub Comando27_Click()
Dim sXMLPath As String
DoCmd.SetWarnings False
DoCmd.OpenQuery "qyr_Excluir_Geral", acViewNormal, acEdit
DoCmd.OpenQuery "qyr_Excluir_Enviar_1", acViewNormal, acEdit
DoCmd.OpenQuery "qyr_Exportar_Grade", acViewNormal, acEdit
DoCmd.OpenQuery "qyr_Exportar_Normal", acViewNormal, acEdit
DoCmd.OpenQuery "Qyr_Enviar", acViewNormal, acEdit
sXMLPath = "C:\exportar\tmp\ProdutoSite.xml"
ExportXML acExportTable, "Tbl_Enviar_Site1", sXMLPath
MsgBox "Enviado com sucesso para C:\exportar\tmp\ProdutoSite.xml "
End Sub