VBA Excel - Exporte como Texto delimitado

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

Exporte o conteúdo de uma planilha para um arquivo texto delimitando-o entre aspas duplas e vírgula:

Sub QuoteCommaExport()

    Dim DestFile As String

    Dim FileNum As Integer

    Dim ColumnCount As Integer

    Dim RowCount As Integer

    ' Prompt user for destination file name.

    DestFile = InputBox("Enter the destination filename" & _

      Chr(10) & "(with complete path and extension):", _

      "Quote-Comma Exporter")

    ' Obtain next free file handle number.

    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

Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...

Tags: VBA, Export, text, Text File, Comma, Quote, Delimiters,

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