Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
  • Avatar do usuário
#26745
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.
#26746
Sem saber sua estrutura de arquivo e um tiro no escuro; mas seria algo +/- assim
Código: Selecionar todos
Sub 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
#26750
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.
Você não está autorizado a ver ou baixar esse anexo.
#26755
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
#26777
Boa tarde.
Segue minha contribuição para o tópico.
Você não está autorizado a ver ou baixar esse anexo.
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord