MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Exportar arquivo texto nome e data

    Compartilhe

    athenas1200
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 29/03/2011

    Exportar arquivo texto nome e data

    Mensagem  athenas1200 em Qua 8 Jun 2016 - 12:50

    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

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

    Re: Exportar arquivo texto nome e data

    Mensagem  Avelino Sampaio em Qua 8 Jun 2016 - 13:16

    Olá!

    sXMLPath = "C:\exportar\tmp\ProdutoSite" & format(date(),"ddmmyyyy") & ".xml"

    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    athenas1200
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 29/03/2011

    Funcionou bem

    Mensagem  athenas1200 em Qua 8 Jun 2016 - 13:29

    Agora vou precisar trocar o método de xml para csv
    ExportXML para CSV.
    Você tem uma idéia.
    O arquivo já está configurado para csv. Mas preciso trocar o método

      Data/hora atual: Qui 8 Dez 2016 - 14:07