VBA Access - Exportando dados para um arquivo texto com Delimitadores

Criar arquivos texto, exportados dentro de um padrão, às vezes com delimitações específicas, é um desafio que pode aparecer no nosso caminho.

O código abaixo tem o objetivo de dar-nos a independência suficiente e necessária para ter total controle sobre o que está ocorrendo durante a exportação, inclusive controlando o tempo que isso leva se desejarmos.

O procedimento abaixo define o local onde o arquivo texto processado será gravado:

Call ExportData (CurrentProject.Path & "\" & "Bernardes" & ThisMoment() & ".txt")

Function ExportData(strExportFile As String)

    Dim rs As Recordset

    Dim strData As String

    Dim intFileNum As Integer

    Dim nDelim as String

    Let intFileNum = FreeFile()

    Let nDelimi = ";"

    Open strExportFile For Output As #intFileNum

    Set rs = CurrentDb.OpenRecordset("tbl_Bernardes_Export_Data", dbOpenSnapshot)

    With rs

        Do Until .EOF

            Let strData = ![Field01] & nDelimi & ![Field02] & nDelimi & ![Field03] & nDelimi & ![Field04] 

            Print #intFileNum, strData

            'Debug.Print Now() & "| " & ![Field01] & nDelimi & ![Field02] & nDelimi & ![Field03] & _

                                                                     nDelimi & ![Field04] 

            .MoveNext

            

            Loop

    End With

    Close #intFileNum

    rs.Close

    Set rs = Nothing

End Function

Reference:

Tags:  VBA, Access, export, file, txt, delimiter, delimitador, exportar, arquivo texto, text file, TXT