✔ Programação GLOBAL®: 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