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.