[Resolvido]Exportar .txt separado por tabulações

Amigos, boa tarde!

tenho o seguinte problema, criei um BD que o mesmo exporta uma tabela para o
formato .csv, ou seja separado por virgula, preciso criar o mesmo arquivo do tipo
texto (separado por tabulações).

Olá Fabio,
O separador de tabulação em VBA vbTab

Veja se é o pretendido:

Código:

Public Function ExportRateioFunction()

On Error GoTo F
Dim rst As Recordset, varRecCount As Integer, varCount As Integer
Dim varArq As String
Dim DB As dao.Database
    Debug.Print Now()
    Set DB = CurrentDb()
    Set rst = DB.OpenRecordset("tblRateioOperador", dbOpenTable)
    rst.MoveLast
    varRecCount = rst.RecordCount
    rst.MoveFirst
   
    varArq = Forms!frmRateio!local & "\HorasRateio.csv"
   
    Open varArq For Output As #1
   
        For varCount = 1 To varRecCount
            'separador TAB é vbTab
            Print #1, rst!Equipamento & vbTab & rst!ID & vbTab & rst!H_Inicial & vbTab; rst!H_Final & vbTab; rst!Data_Padrao
            'anteriro
            'Print #1, rst!Equipamento & ";"; rst!ID & ";" & rst!H_Inicial & ";"; rst!H_Final & ";"; rst!Data_Padrao
            rst.MoveNext
        Next varCount
   
    Close #1
    rst.Close
    Set DB = Nothing
MsgBox "Horas Trabalhadas Exportadas com Sucesso!!!", vbExclamation
F:
    Select Case Err.Number
        Case 3021
        MsgBox "Não existem Dados para serem exportado no período!!!", vbInformation, "Atenção!"
        Case 0
        Exit Function
        Case Else
        MsgBox Err.Number & " - " & Err.Description, vbCritical, "Erro!"
        Exit Function
    End Select
   
End Function


Abraço

Alvaro, bom dia!

Ótimo, era isso mesmo, muito obrigado pelo apoio.

Olá Fabio,
Obrigado pelo retorno.
Abraço

Caros senhores, parabéns pelo excelente exemplo, mas eu queria perguntar como eu faria para na exportação do arquivo sair o título da coluna, para ficar organizado os dados, não exportar somente os dados mas que os mesmo tenha a coluna do qual pertencem???

Olá a todos,

Warley Santos, seja bem-vindo ao fórum.
Será colocar antes do for o Print ... com no nome dos campos, algo assim:

Código:

 
 Print #1, rst!Equipamento.Name & vbTab & rst!ID.Name & vbTab & rst!H_Inicial.Name & vbTab; rst!H_Final.Name & vbTab; rst!Data_Padrao.Name


Abraço