Views

Histats

Vitrine

VBA Excel - Exporte como Texto delimitado




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

  Sub Export_Virg_Aspas()      Dim DestFile As String      Dim FileNum As Integer      Dim ColumnCount As Integer      Dim RowCount As Integer        ' Prompt user for destination file name.      DestFile = InputBox("Digite o nome do arquivo" & _        Chr(10) & "(Insira o caminho completo com a extensão):", _        "Exporta arquivo delimitado com Aspas e vírgulas")      ' 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 "Não é possível abrir o Arquivo " & 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,


LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...