MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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 : 28
    Registrado : 29/03/2011

    Exportar arquivo texto nome e data

    Mensagem  athenas1200 em Qua 08 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
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Exportar arquivo texto nome e data

    Mensagem  Avelino Sampaio em Qua 08 Jun 2016, 13:16

    Olá!

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

    Sucesso!

    athenas1200
    Novato
    Novato

    Respeito às Regras 100%

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

    Funcionou bem

    Mensagem  athenas1200 em Qua 08 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: Qua 23 Ago 2017, 01:45