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