Página 1 de 1
Gerar varios arquivos txt a partir de uma tabela em excel
Enviado: 22 Set 2017 às 14:30
por Victorzoomg1
Boa tarde pessoal. Gostaria que se possivel me ajudassem.
Preciso gerar um arquivo txt para cada linha de um arquivo de excel. Estou preparando minha planilha ainda, concatenando todos os dados que tenho em apenas uma celula, o que já vai ficar muita coisa e gostaria de passar isso para um arquivo txt. Um arquivo por linha.
Saberiam de alguma forma de me ajudar?? Obrigado.
Re: Gerar varios arquivos txt a partir de uma tabela em exce
Enviado: 22 Set 2017 às 14:52
por Reinaldo
Sem saber sua estrutura de arquivo e um tiro no escuro; mas seria algo +/- assim
Código: Selecionar todosSub exportTxt()
Dim Caminho As String, Arquivo As String
Dim Linha As Integer
Caminho = ThisWorkbook.Path & Application.PathSeparator
'Supondo que nome de sua planilha seja Plan1
Worksheets("Plan1").Activate
'Supondo que dados iniciem na linha 2
For Linha = 2 To 400
'Nomeia o arquivo com numero linha e...
Arquivo = Linha & "_Excel_pTxt.txt"
'Insere o arquivo gerado no mesmo diretorio da Planilha
Open Caminho & Arquivo For Output As #1
'Supondo que dados na Coluna "A"; grava no arquivo txt
Print #1, Cells(Linha, 1).Value
'Fecha arquivo Txt
Close #1
'vai para o proximo
Next
End Sub
Gerar varios arquivos txt a partir de uma tabela em excel
Enviado: 22 Set 2017 às 15:18
por Victorzoomg1
Reinaldo. Obrigado pela atenção.
Se eu puder abusar um pouco da sua boa vontade... kkk.
Nao entendo muito de vba nao mas olhando as anotações e o codigo que vc fez parece ser o q eu preciso.
Mas como vc mesmo disse sem um exemplo fica ruim de me mostrar. Eu fiz um arquivo aqui exatamente com as colunas que eu vou usar mas com 3 linhas para exemplo. Poderia dar uma olhada para mim?
A minha ideia é que fique um arquivo txt com os dados de todas as colunas, se eles ficassem organizados com quebras de linha no txt por coluna do excel seria melhor ainda.
Agradeço a boa vontade sua e dos demais amigos do forum. Obrigado.
Gerar varios arquivos txt a partir de uma tabela em excel
Enviado: 23 Set 2017 às 08:08
por Reinaldo
Sinceridade, não entendi o que realmente deseja
No post incial diz :
concatenando todos os dados que tenho em apenas uma celula
Agora diz:
com quebras de linha no txt por coluna
Monte, manualment, com base em sua planilha exemplo o exemplo do txt esperado
Re: Gerar varios arquivos txt a partir de uma tabela em exce
Enviado: 25 Set 2017 às 09:44
por Victorzoomg1
Bom dia. Desculpe. Acho que realmente ficou meio confuso. Segue o txt como exemplo. Creio que ficará mais claro.
Obrigado.
Re: Gerar varios arquivos txt a partir de uma tabela em exce
Enviado: 25 Set 2017 às 13:52
por gfranco
Boa tarde.
Segue minha contribuição para o tópico.