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