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

VBA Excel - Exporte área selecionadas delimitadas por vírgulas - Export a Text File with Comma and Quote Delimiters

Termo de Responsabilidade

Este post mostra como um código do Microsoft Visual Basic for Applications (VBA) pode adicionar uma funcionalidade a mais na sua planilha de trabalho. Esse código melhora a funcionalidade de exportar, por lhe dar o controle completo da sua aplicação. Ao ler este exemplo, procure uma maneira de estendê-lo as suas planilhas e a sua própria situação.

Sub QuoteCommaExport()      Dim DestFile As String      Dim FileNum As Integer      Dim ColumnCount As Integer      Dim RowCount As Integer        ' Prompt user for destination file name.      Let DestFile = InputBox("Digite o nome do arquivo de destino" & _        Chr(10) & "(como o respectivo Path e extensão):", _        ".: Quote-Comma Exporter")

      ' Obtain next free file handle number.    

       Let FileNum = FreeFile()

      ' Turn error checking off.      On Error Resume Next        ' Attempt to open destination file for output.      Open DestFile For Output As #FileNum      ' If an error occurs report it and end.      If Err <> 0 Then        MsgBox "Cannot open filename " & DestFile        End      End If        ' Turn error checking on.      On Error GoTo 0        ' Loop for each row in selection.      For RowCount = 1 To Selection.Rows.Count        ' Loop for each column in selection.        For ColumnCount = 1 To Selection.Columns.Count             ' Write current cell's text to file with quotation marks.           Print #FileNum, """" & Selection.Cells(RowCount, _              ColumnCount).Text & """";           ' Check if cell is in last column.           If ColumnCount = Selection.Columns.Count Then              ' If so, then write a blank line.              Print #FileNum,           Else              ' Otherwise, write a comma.              Print #FileNum, ",";           End If        ' Start next iteration of ColumnCount loop.        Next ColumnCount      ' Start next iteration of RowCount loop.      Next RowCount        ' Close destination file.      Close #FileNum  End Sub

Reference: jpsoftwaretech.com

Tags: VBA, Excel, Quote, Comma, Export,Delimiter, text, vírgula, delimitado, exportar, texto