✔ Programação GLOBAL®: text file

Mostrando postagens com marcador text file. Mostrar todas as postagens

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