Prezados, boa noite, tudo bem?
Encontrei uma fórmula aqui no fórum e resolvi adaptá-la a minha necessidade, acontece que tenho o arquivo txt em anexo, e quando importo pela formula que adaptei, creio que ele foi desenvolvido para até duas quebras de linha no arquivo texto e o que tento importar possui três quebras, desta forma ele duplica a importação,trazendo primeiro a quebra 1 + quebra 2 e em seguida importa todas as quebras na próxima linha.
Desta forma, gostaria de ajuda para adaptá-la e assim conseguir importar concatenando mais de 2 quebras, pois preciso da linha que concatena as 3.
Todo inicio do próximo arquivo a ser concatenado é "*|".
Segue o código que utilizei:
Sub ArquivoTXT()
Dim Arquivo As String
Dim Linha As String
Dim LinhaCompleta As String
Dim i As Long
Arquivo = Application.GetOpenFilename
Open Arquivo For Input As #1
i = 1
While Not EOF(1)
Line Input #1, Linha
'Verifica se tem ("*|") nas 3 primeiras posições da linha e "inicia" uma nova linha "completa"
If InStr(1, Linha, "*|", vbTextCompare) > 0 And InStr(1, Linha, "*|", vbTextCompare) < 3 Then
LinhaCompleta = Linha
Else
'Caso não tenha *| concatena a linha atual com a anterior
If Not Mid(Linha, 1, 2) = "|" Then
LinhaCompleta = LinhaCompleta & Linha
Sheets("Exportacao").Activate
Cells(i, 1).Value = LinhaCompleta
'incrementa a variável que controla a quantidade de linhas
i = i + 1
End If
End If
Wend
Close
'Coloca na janela de verificação imediata
Debug.Print LinhaCompleta
End Sub[*]
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Concatenar importação de arquivo Texto (*txt) | Arquivo com Quebras | RESOLVIDO |
Concatenar importação de arquivo Texto (*txt) | Arquivo com Quebras | RESOLVIDO |
Editado pela última vez por DANIELDDK em Qua Mai 27, 2020 8:18 am, em um total de 1 vez.
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Sex Mai 22, 2020 2:39 pm
Re: Concatenar importação de arquivo Texto (*txt) | Arquivo com Quebras
Não sei se entendi bem. Você tem um arquivo .txt com 3 quebras de linha, você quer separar esses dados em 3 linhas. Se for isso o código tem 2 erros. Segue o código ajustado.
Tem maneiras melhores de importar esse arquivos .txt, criando varias colunas com os dados de nome, função e etc
Código: Selecionar todos
Sub ArquivoTXT()
Dim Arquivo As String
Dim Linha As String
Dim LinhaCompleta As String
Dim i As Long
Arquivo = Application.GetOpenFilename
Open Arquivo For Input As #1
i = 0
While Not EOF(1)
Line Input #1, Linha
'Verifica se tem ("*|") nas 3 primeiras posições da linha e "inicia" uma nova linha "completa"
If InStr(1, Linha, "*|", vbTextCompare) > 0 And InStr(1, Linha, "*|", vbTextCompare) < 3 Then
LinhaCompleta = Linha
i = i + 1
Else
'Caso não tenha *| concatena a linha atual com a anterior
If Not Mid(Linha, 1, 2) = "|" Then
LinhaCompleta = LinhaCompleta & Linha
Sheets("Plan1").Activate
Cells(i, 1).Value = LinhaCompleta
'incrementa a variável que controla a quantidade de linhas
'i = i + 1
End If
End If
Wend
Close
'Coloca na janela de verificação imediata
Debug.Print LinhaCompleta
End Sub
Re: Concatenar importação de arquivo Texto (*txt) | Arquivo com Quebras
Rico, bom dia, tudo bem?
Era exatamente isso que queria.
Obrigado pela ajuda.
Era exatamente isso que queria.
Obrigado pela ajuda.