✔ Programação GLOBAL®: delimitado

Mostrando postagens com marcador delimitado. Mostrar todas as postagens

VBA - Função RetornaNthElemento - Extrai uma Posição Dentro dum Dado Delimitado

Quando mexemos com listas de endereço (por exemplo), às vezes precisamos extrair parte do dado importante dentro de um campo que foi delimitado por um caractere como uma vírgula.

Isso pode ser muito chato se precisarmos construir a função na hora e estivermos com muita pressa.

Mas o código abaixo pretende te ajudar com isso...

Function RetornaNthElemento (nRng As Range, nPos As Integer,nParticula as string )

    '        Author: André Bernardes
    '           Date: 26.06.21 - 05:01
    ' Description: Especifique o Nº da posição que precisa ser retornada.

    Dim vResult() As String ' Vetor.

    Let vResult = Split(nRng, nParticula)

    Let RetornaNthElemento = vResult(nPos - 1)
End Function

Compartilhe este artigo! Deixe seu comentário

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

VBA Access - Exportando query ou tabela para arquivo texto com tabulação.

Exportar o conteúdo de tabelas, e o resultado de queries para arquivos texto delimitados por tabulação, não é algo tão difícil de aparecer como nossa necessidade.

Converting Pipe Delimited Text File To Tab Delimited

Create queries and export them to different tab delimited text

Export Access Query to a pipe delimited .csv file

Export Query result to txt file tab delimited

Export query results to text file - not delimited

Export query to tab delimited text file

Export query to tab delimited text file

Exporting Data from Access with VBA Code

Microsoft: Access Modules (VBA Coding)

TransferText Macro Action

Truncation of Text on Export to .txt file

VBA + TransferText + SpecificationName (Access 2007)

Visual Basic :: Export An Access Table As A Tab Delimited Text

table from .ADP to tab delimited text file

Ainda bem que o MS Access facilita o nosso trabalho.

Observe os passos abaixo:

Posicione o mouse sobre a tabela que deseja exportar e pressione o botão direito.

A interface abaixo o conduzirá para os próximos passos. Informe primeiro o local onde o arquivo será gravado e pressione OK.

Agora ficou fácil!

Siga o passo-a-passo demonstrado abaixo. Certifique-se de escolher toda as mesmas versões demonstradas.

A fase abaixo será muito útil no futuro, pois gravaremos o modo de exportar como uma especificação, a qual poderá ser utilizada com código VBA a posteriori.

CLIQUE EM AVANÇADO E SALVE-A.

Confirme o local para onde o conteúdo será exportado como arquivo texto.

Lembre-se que a especificação salva anteriormente poderá ser utilizada em conjunto com o código VBA. Como?

Crie um formulário

Crie um botão neste mesmo formulário

Insira o código abaixo dentro da ação do seu botão:

Function Export2Txt()

   Dim nPath As String



   Let nPath = "C:\Bernardes\"

   DoCmd.TransferText _

   acExportDelim, _

   "specExport", _

   acExportDelim, _

   , _

   "tbl_Factive", _

   nPath & "tbl_Export.txt", True

End Function