Exportar Arquivo TXT do Excel | Gerar um Arquivo Txt | VBA macro TXT #1
Вставка
- Опубліковано 6 жов 2024
- #VBAGerarUmArquivoTxT #LerArquivoTxT #ExportarPlanilhaComoTXT
Ola tudo bem?
Sou o Gledson do canal no UA-cam Programador Excel VBA,
Nesse video ensino como gerar(criar) arquivo TXT com Excel VBA, criamos arquivo Txt com dados da planilha usando a estrutra open for output as
Seja produtivo no excel com uso de VBA(Visual Basic for Application)
ensinado nesse video:
▶ Exportação de dados de varias colunas da planilha para arquivo TXT
▶ Criar arquivo TXT
▶ Fechar arquivo TXT
▶ Fazer varredura em planilha ate achar linha em branco
★ inscreva-se em nosso canal: hotm.art/Excel... Me Siga:
▶ Página do Excel: ProgramadorExcelVBA/
▶ Instagram: / programadorexcelvbaofi...
▶ Gp. Whatsapp Vip Prog. Excel VBA (APOIO AO CANAL) apoia.se/grupo...
OBS: ao iniciar o canal, você tem acesso ao nosso grupo vip no Whatsapp, suporte para tirar dúvidas sobre vídeos do canal e acessar vídeos exclusivos do canal, sem falar que pode baixar todos os arquivos que constroem no canal ou o melhor de tudo terá acesso a todo o material do curso de Excel VBA Módulo 3. SEJA UMA APOIADOR POR R $ 10,00 (mensais) e se destacar no mercado de trabalho .
Bons estudos,
Att, Gledson Programador Excel VBA
Caralho mano deu certo aqui. Uma solução simples... E eu aqui querendo inventar a roda. Tu é foda pra camba!
Cara obrigado pela aula, show de bola.............
Ola Danielvf obg
Att, Gledson Programador Excel VBA
Show. Muito interessante. Eu estava precisando de um que faça o contrario, leia as informações de um arquivo.
Na aula 2 e 3 e 4 farei isto Carlos.
Att, Gledson Programador Excel VBA
@@ProgramadorExcelVBA Blz. Obrigado.
só alegria , valeu - exportar arquivo texto
Conteúdo show...toppp..parabéns.....
Ola William meu amigo. Obg.
Att, Gledson Programador Excel VBA
PARABENS!!! MUITO BOM!!! me ajudou muito!!!
Uma série nova muito top, parabéns Gledson
Obg Marcio meu brother
Att, Gledson Programador Excel VBA
Gostei bastante do vídeo pois ele traz uma visão simples da função Print e mais uma forma de usalo, porem no código apresentado não tem automação, se sua planilha passar a ter 6 colunas será preciso toda vez alterar o código VBA desta forma segue sugestão de automação:
Sub Exportar_TXT()
Application.ScreenUpdating = False
'Seleciona a guia Extract do Excel depois a célula A1
Sheets("Extract").Select
Range("A1").Select
'Iniciar exportação txt via Print com texto exato mostrado em tela sem erro das aspas
Dim Path As String
Dim FileNumber As Integer
Dim LR As Integer
Dim LC As Integer
Dim k As Integer
Dim i As Integer
LR = Worksheets("Extract").Cells(Rows.Count, 1).End(xlUp).Row
LC = Worksheets("Extract").Cells(1, Columns.Count).End(xlToLeft).Column
Path = ThisWorkbook.Path & "\Extract " & Format(Now(), "ddmmyyyy-hhmmss") & ".txt"
FileNumber = FreeFile
Open Path For Output As FileNumber
For k = 1 To LR
For i = 1 To LC
If i LC Then
Print #FileNumber, Cells(k, i),
Else
Print #FileNumber, Cells(k, i)
End If
Next i
Next k
Close FileNumber
' Caso deseja abrir o notepad imediatamente para conferir o txt gerado só retirar a linha comentada abaixo:
'Shell "notepad.exe " & Path, vbNormalFocus
Application.ScreenUpdating = True
MsgBox "Extract*.txt salvo na pasta onde abriu este Excel!"
End Sub
Muito bacana o seu código. Eu tive exatamente o problema que você falou com o código do video. Na coluna 10 parou de funcionar. Mas como faço pra colocar ponto e virgula entre os campos? Eu alterei a extensão pra CSV e os campos ficaram separados por espaço.
Rapaz! Eu consegui colocar o ponto e vírgula. (Print #FileNumber, Cells(k, i); ";",) Mas os campos com texto estão ficando com vários espaços antes de começar a palavra. Alguma ideia de como corrijo isso? Será que é essa parte do código que causa isso (FileNumber = FreeFile)?
Ola tudo bem.. essa video aula me ajudou e muito... só metira uma duvida q esta acontencendo,,, na planilha o valor da celula é R$ 1.500,00 mas ao salvar no bloco de notas fica 1500, ja fiz celula personalizada, coloquei com monetaria. mas no bloco de notas não vem ponto e nem vigula. se poder me dar uma luz eu ficarei agradecido
Show Gledson
Obg Ricardo Pereira
Att, Gledson Programador Excel VBA
Excelente Gledson, valeu"
Oi! Parabéns pelo video, esta bem explicado , muito fácil de aprender.
Só uma dúvida: Tem como escolher onde salvar o TXT?
Show de bola o video
Tenho uma dúvida
Qual comando devo colocar para abrir o caminho escrevendo ele direto na macro, e não usando uma célula?
Agradeço desde já a resposta
Muito boa a aula!!
Tenho uma duvida:
No meu caso tenho informações que são separadas por uma linha inteira de células vazias, e com essa macro do vídeo, o conteudo extraido para txt para nesse primeira linha vazia!
Tem como eu delimitar a linha final que ele deve extrair? ou tem como colocar uma condição que ele ignora a linha vazia e continua extraindo as informações pro txt?
estou com o mesmo problema
MUITO BOM O CONTEUDO!!
VOCE SABE O QUE NÃO FUNCIONA COM HORÁRIO??
QUANDO FAÇO A EXTRAÇÃO DE UMA TABELA DE HORÁRIOS, AS CELULAS VÃO PARA O BLOCO DE NOTAS EM FORMA DECIMAL
Mesmo utilizando o format(texto, "dd/mm/yyyyy")
Obg por sua msg.
Att, Gledson Programador Excel VBA
Consigo criar uma tela com o comando de gerar para que a pessoa não tenha que abrir o excel ??
Conteudo top :)
Preciso salvar uma seleção (várias linhas em apenas 1 coluna) em arquivo um arquivo 1.txt.
Após isso atualizarei as linhas e desejo criar um novo arquivo 2.txt...
Atualizo novamente as linhas e cria o arquivo 3.txt... e assim por diante.
A parte da atualização eu sei fazer, preciso apenas da segunda parte que é TODA VEZ QUE EU CLICO NO BOTÃO " GERAR TXT" DEVE SER CRIADO UM NOVO ARQUIVO.TXT (na ordem: 1.txt; 2.txt; 3.txt; etc) COM A SELEÇÃO QUE MARQUEI.
Alguém sabe como?
Obrigado pelo vídeo.
Ótimo conteúdo.
Muito bom. Gostaria de saber o seguinte: Preciso ao invés de separadores fixar tamanho de campos: Por exemplo coluna 1 teria 2 caracteres, coluna dois começaria do terceiro caracter até o 21, coluna 3, começaria no 22 até o 60, coluna 4 do 61 até 80. Como poderia implementar isso na sua macro VBA? Obrigado
Muito bom cara, mas e se eu quiser exportar apenas uma Coluna. Ex no video só a coluna D, com as Regiões e mais nenhuma outra informação alem dela? Como eu adapto o código?
boa noite amigo voce consegue faze tipo bot para add no desenvolvedo exel qria 1
tem como por um salvamento sempre na pastade origem? Falo assim porque... posso compartilhar a planilha pra uma pessoa mais leiga!
Amigão, a sua macro me ajudou muito, porém gostaria só de saber como faço para deixar o delimitador "|" apenas nas linhas que contem informação. No exemplo que vc ensiou, todas as 4 colunas tem informações nas linhas, mas no caso que estou trabalhando nem todas essas 4 colunas tem informações nas linhas. Como eu faço nesse caso pra tirar o delimitador?
Obrigado
Achei ótimo esse seu tutorial, mas tenho uma duvida, como eu posso gerar um arquivo txt para cada linha por exemplo: rio branco na primeira linha do txt e norte na linha de baixo e salvar ele com o nome rio branco isso em um único txt, dai da mesma forma vai para a próxima linha, Maceió em cima no txt e Nordeste na linha de baixo e salvar o txt como Maceió, teria como me ensinar isso? obrigado.
Queria poder dar mais de um like neste vídeo...rsrs
Ola Marcos obg, fico super feliz em ler sua msg, caso ñ seja inscrito, inscreva-se para ñ perder nenhum conteudo novo.
Bons estudos,
Att, Gledson Programador Excel VBA
@@ProgramadorExcelVBA vou me inscrever sim, amigo!
Eu tentei fazer o comando exportando para xlsx, mas o arquivo criado ficou corrompido....saberia dizer se tem algum vídeo para este formato?
Aplicação: tenho várias guias em uma planilha, todos os dias preciso criar uma nova a partir de uma guia.
@@MarcosVSts Ola , se vc vai trbalhar com macros ñ tem como salvar o arquivo no formato padrão, xlsx, para ter suporte a macros salve no formato xlsm ou xlsb, eu sugiro xslb.
Att, Gledson Programador Excel VBA
Gledson, há algum comando capaz de gerar duas linhas de txt partindo apenas de uma linha do excel? Seria quase uma cópia, porém com uma sútil alteração na linha de baixo.
Ex:
38|||413|||||VLR REF: COMPRA MATERIAL DE USO E CONSUMO|31122021|12560,8||||
38||||24||||VLR REF: COMPRA MATERIAL DE USO E CONSUMO|31122021|12560,8||||
esse seu tutorial funciona no libreoffice?
Ola Pepe acredito que infelizmente ñ.
Att, Gledson Programador Excel VBA
@@ProgramadorExcelVBA ok, obrigado pela atenção, ja estou estudando pelo Excel, grato, vídeo perfeito, didática perfeita, só tenho a agradecer.
@@pepedigolino Ola Pepe agradeço a vc tb por presitigiar o canal. se possivel convide amigos que tenha interesse e aprender excel de forma gratuita.
Att, Gledson Programador Excel VBA
eu queria fazer uma assim, com duas listas de arquivo .txt no qual uma seria o titulo e a outra o conteúdo, e criasse vários arquivos de acordo com a lista .
Como faço para deixar tudo com 200 colunas mesmo que não haja dados?
Para exportar toda a aba da planilha para txt basta :
Sub Salva()
'Salva planilha atual
ActiveWorkbook.SaveAs Filename:="D:\0\Teste\Altera.txt", FileFormat:=xlText _
, CreateBackup:=False
End Sub
Olá Gleidson,
É possível salvar como csv?
É sim. Basta alterar a extensão
audio muito baixo.. a esplicação show!
nao funcionou aqui, esta dando erro no output