Criar Arquivo Texto Delimitado no Excel com VBA

Como criar arquivo texto delimitado no Excel com VBA passo-a-passo. Veja o código pronto e também uma planliha de exemplo.

Arquivos texto delimitados são arquivos de texto simples que contêm dados organizados em colunas e linhas, onde cada coluna é separada por um delimitador específico, como uma vírgula ou uma tabulação. Esses arquivos são comumente usados para importar ou exportar dados entre aplicativos diferentes, como planilhas eletrônicas, banco de dados e outros programas de gerenciamento de dados.

Um dos principais benefícios dos arquivos texto delimitados é a sua facilidade de uso, pois eles podem ser abertos e editados com qualquer editor de texto, o que os torna flexíveis e acessíveis. Além disso, eles são compatíveis com a maioria dos sistemas operacionais e aplicativos, o que os torna uma escolha popular para o compartilhamento de dados.

Para criar arquivos texto delimitados, é preciso selecionar as colunas e linhas desejadas e salvar o arquivo como um arquivo de texto delimitado. O delimitador padrão é geralmente uma vírgula, mas também pode ser uma tabulação ou outro caractere específico. É importante verificar se a codificação de caracteres está configurada corretamente, para evitar problemas de compatibilidade.

Ao importar dados de arquivos texto delimitados, é importante verificar as configurações do arquivo para garantir que os dados sejam importados corretamente. Isso inclui verificar o delimitador correto, a codificação de caracteres e o número de colunas esperadas.

Em resumo, os arquivos texto delimitados são uma ferramenta valiosa para o gerenciamento de dados, pois são flexíveis, acessíveis e compatíveis com a maioria dos aplicativos. Ao trabalhar com esses arquivos, é importante verificar as configurações corretas para garantir a importação e exportação precisas dos dados.

Criar Arquivo Texto Delimitado com VBA no Excel

Sub gsCriarArquivoTexto()
    On Error GoTo TratarErro
 
    Dim lsCaminho   As String
    Dim llArquivo   As Long
    Dim llLinha     As String
    Dim lContador   As Long
    Dim iTotalLinhas As Integer
 
    'Path where the file will be saved
    lsCaminho = InputBox("Caminho e nome do arquivo:", "Caminho do aruivo...", ActName)
 
    'Identifies whether the file already exists
    If Dir(lsCaminho) = "" Then
        llArquivo = FreeFile
        Open lsCaminho For Output As #llArquivo
 
        Selection.End(xlDown).Select
        iTotalLinhas = Cells(Rows.Count, 1).End(xlUp).Row
 
        While lContador < iTotalLinhas
 
            lContador = lContador + 1
 
            'Write data to the file
            Print #llArquivo, Cells(lContador, 1) & "|" & Cells(lContador, 2) & _
                              "|" & Cells(lContador, 3) & "|" & Cells(lContador, 4)
 
        Wend
 
        MsgBox "Arquivo Salvo em: " & lsCaminho
 
        'Close the file
        Close #llArquivo
    Else
        MsgBox "Arquivo já existe!"
    End If
 
'Error treatment
Sair:
    Exit Sub
TratarErro:
    MsgBox "There was an error writing the file!"
    GoTo Sair
    Resume
End Sub

Download Arquivos Texto Delimitados Excel VBA

Realize o download da planilha Excel VBA para gerar arquivo texto no Excel neste botão abaixo. Basta se inscrever na nossa newsletter gratuita para o download automático.