Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Loop em vários arquivos txt

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Adonias
Manda bem
Manda bem
Mensagens: 167
Registrado em: Sáb Jun 02, 2012 12:55 pm

Loop em vários arquivos txt

Mensagem por Adonias »

Pessoal, o código abaixo importa os dados de um arquivo txt apenas, preenche os textbox e em seguida insere no documento e depois imprime em pdf.
Acontece que tenho vários arquivos txt contendo a mesma quantidade de dados cada(um dado abaixo do outro dentro do arquivo)
digamos: 2315.txt tem dentro na linha 1, 2 e 3 as seguintes informações
2010
Padaria
312545


Quero que esse código faça um loop na pasta onde este arquivo txt está e execute todo o procedimento para cada arquivo encontrado e na sequencia, com único clique.

Dim ConteudoDaLinha As String
Dim NADE1 As String
Dim anoDD As String
NADE1 = TxBox1.Value
anoDD = TxANO.Value
Open "C:\Users\adonias\Downloads\VBA\2315.txt" For Input As #1
'Limpa os textboxs
TxBox1.Text = ""
TxBox2.Text = ""
TxBox3.Text = ""
'Importar o dados do arquivo .txt para as textbox PREENCHENDO O FORM
'##################################################
Line Input #1, ConteudoDaLinha: TxBox1.Text = ConteudoDaLinha
Line Input #1, ConteudoDaLinha: TxBox2.Text = ConteudoDaLinha
Line Input #1, ConteudoDaLinha: TxBox3.Text = ConteudoDaLinha

'Preenche o documento word
ActiveDocument.FormFields("T1").Result = TxBox1.Text
ActiveDocument.FormFields("T2").Result = TxBox2.Text
ActiveDocument.FormFields("T3").Result = TxBox3.Text
' Imprime em pdf
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\adona\Downloads\VBA\DD-REIDI" + NADE1 + "-" + anoDD + ".pdf", ExportFormat:= _
wdExportFormatPDF
'Limpa o form
TxBox1.Text = ""
TxBox2.Text = ""
TxBox3.Text = ""
Anexos
VBA.zip
(16.73 KiB) Baixado 145 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder