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 SubTags: VBA, Excel, Quote, Comma, Export,Delimiter, text, vírgula, delimitado, exportar, texto
✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.
VBA Excel - Exporte área selecionadas delimitadas por vírgulas - Export a Text File with Comma and Quote Delimiters
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário