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 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

Tags: export, exportar, file, texto, text, TAB, tabulação, tabela, table, query, delimitado, delimited, TransferText, SpecificationName

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

bernardes@.com