[Resolvido]Ajuda na exportação de .csv

Amigos, boa tarde!

Estou com o seguinte problema, meu BD exporta a sua tabela para um arquivo .csv, a onde o mesmo tem
04 campos numéricos e um de data, este campo esta exportando a data no formato 99/99/9999  00:00:00
so que preciso que o mesmo fique no formato 99/99/9999 pois o programa que vou importar só aceita o
arquivo .csv com a data neste formato (99/99/9999), se alguém puder me ajudar agradeço.

Olá Fábio, teste assim:

Código:

Public Function ExportCSVFunction()
'ahteixeira (2017) para MaximoAccess

'    DoCmd.TransferText acExportDelim, "SisengHT_Specs", "SisengHT", Application.CurrentProject.Path & "\SisengHT.csv"

Dim rst As Recordset, varRecCount As Integer, varCount As Integer
Dim varArq As String
Dim DB As Database

    Set DB = CurrentDb()
    Set rst = DB.OpenRecordset("SisengHP", dbOpenTable)
    rst.MoveLast
    varRecCount = rst.RecordCount
    rst.MoveFirst
    
    varArq = Application.CurrentProject.Path & "\SisengHP.csv"
    
    Open varArq For Output As #1
    
        For varCount = 1 To varRecCount
            Print #1, rst!Equipamento & ";"; rst!CodPAralisação & ";" & rst!DataPadrao & ";" & Format(rst![Hora Decimal], "Fixed")
            rst.MoveNext
        Next varCount
    
    Close #1
    rst.Close
    Set DB = Nothing
    
End Function

Aqui a data dava bem, mas se não der use o Format(...).
Abraço

ahteixeira, bom dia!

Era isso mesmo que eu precisava, muito obrigado.

Mas preciso de mais um favor seu, gostaria de colocar um campo para poder selecionar a onde salvar os arquivos
ja fiz o modelo so nao consigo direcionar os arquivos, segue o modelo, se voce puder me ajudar agradeço.

Olá, obrigado pelo retorno.
Estou no celular, não vi projeto.

No entanto no formulário crie uma caixa de texto (txtPasta), para colocar o caminho (exemplo: C:\pastaParaCsv)
Pode ser predefenida, ou com origem numa tabela para guardar o caminho configurado.

No codigo onde tem:
CurrenteProject.Application.path
Altere para:
Me.txtPasta

Abraço

Também é possível utilizar o objeto FileDialog para abrir uma janela de seleção do local do arquivo.

Código:

Set vJanelaOrigem = Application.FileDialog(msoFileDialogFolderPicker)
With vJanelaOrigem
    .AllowMultiSelect = False
    .Title = "Onde estão os arquivos das provas?"
End With
If vJanelaOrigem.Show = -1 Then
    vPastaOrigem = vJanelaOrigem.SelectedItems(1)
Else
    MsgBox "Erro! Não foi selecionado nenhuma pasta.", vbCritical, "Erro"
    Exit Sub
End If

Este é um exemplo que eu utilizo em uma de minhas aplicações.

Tentei aqui mano deu certo, na verdade eu queria que quando fosse selecionado a pasta de destino
ja salva-se os quatro arquivos, tem como fazer isso?

Ola a todos.
Fabio, coloque a função do colega no inicio para escolher a pasta.
Depois altere na linha de cada ficheiro de:
varArq = Application.CurrentProject.Path & "\SisengHP.csv"
para:
varArq = vPastaOrigem & "\SisengHP.csv"

Abraço

Olá, já vi seu projecto.
É só apontar para o caminho do form
onde tem:
varArq = Application.CurrentProject.Path & "\SisengHP.csv"

altere por:
varArq = forms!frmHorasSiseng!local & "\SisengHP.csv"

Abraço

Ola,
Desculpe a demora, deu certo agora.
Muito obrigado a vocês pelo apoio.

Olá, obrigado pelo retorno.
Os utilizadores do fórum agradecem.
Abraço