Jump to content
Fórum Script Brasil
  • 0

Arquivo TXT com VBA


Question

Boa tarde Pessoal,

Estou começando a programar com VBA e estou com uma dificuldade escrevi o código abaixo para buscar dados em um arquivo txt. 

O código está buscando porém traz somente o primeiro encontrado, gostaria que trouxesse todos.

Vocês poderiam me ajudar?

Agradeço. 

 

Sub Amazonas1()

Dim arquivo As String, texto As String, linhaTexto As String

Dim Recebido As String, Servico As String

arquivo = "C:\Esdras\Teste\Amazonas.txt"

Open arquivo For Input As #1

Do Until EOF(1)

    Line Input #1, linhaTexto

    texto = texto & linhaTexto

Loop

Close #1

Servico = InStr(texto, "Serviço: ")

Recebido = InStr(texto, "Recebido Por: ")

Range("A1").Value = Mid(texto, Servico + 9, 200)

'Range("A2").Value = Mid(texto, Recebido + 9, 125)

 

End Sub
 

 

 

Link to post
Share on other sites

3 answers to this question

Recommended Posts

  • 0
17 horas atrás, Basole disse:

Poste o arquivo TXT que está importando

 

18 horas atrás, esdrasfoundit disse:

Boa tarde Pessoal,

Estou começando a programar com VBA e estou com uma dificuldade escrevi o código abaixo para buscar dados em um arquivo txt. 

O código está buscando porém traz somente o primeiro encontrado, gostaria que trouxesse todos.

Vocês poderiam me ajudar?

Agradeço. 

 

Sub Amazonas1()

Dim arquivo As String, texto As String, linhaTexto As String

Dim Recebido As String, Servico As String

arquivo = "C:\Esdras\Teste\Amazonas.txt"

Open arquivo For Input As #1

Do Until EOF(1)

    Line Input #1, linhaTexto

    texto = texto & linhaTexto

Loop

Close #1

Servico = InStr(texto, "Serviço: ")

Recebido = InStr(texto, "Recebido Por: ")

Range("A1").Value = Mid(texto, Servico + 9, 200)

'Range("A2").Value = Mid(texto, Recebido + 9, 125)

 

End Sub
 

 

 

 

17 horas atrás, Basole disse:

Poste o arquivo TXT que está importando

Endereço/Roteiro: Motorista: Status: 
Itinerário 2: Endereco: Av. Albert Einstein, 628 - Jardim 
Leonor, São Paulo - SP, 05653-090, Brasil - Hospital Albert 
Einstein Maternidade, Bloco D. Quarto 904 - Serviço: 
ENTREGAR PARA Maria Carolina Furtado 
Bruno Siqueira Santos Concluída 
Data: Recebido Por: Latitude: Longitude: 
16/05/2019 
10:49:26 
beatriz ercepção -23.599419 -46.714747 
Assinatura: Foto: Mapa: 
Endereço/Roteiro: Motorista: Status: 
Itinerário 3: Endereco: Av. Pavão, 561 - Moema, São Paulo - 
SP, 04516-012, Brasil - Apto 101 - Serviço: ENTREGAR 
PARA Antonia Serpa 
Bruno Siqueira Santos Concluída 
Data: Recebido Por: Latitude: Longitude: 
16/05/2019 
11:24:05 
jose rogerio -23.605151 -46.670014 
Assinatura: Foto: Mapa: 
Endereço/Roteiro: Motorista: Status: 
Itinerário 4: Endereco: R. Afonso Braz, 747 - Vila Nova 
Conceição, São Paulo - SP, 04511-011, Brasil - 41b - 
Serviço: ENTREGAR PARA Natalia Aarão 
Bruno Siqueira Santos Concluída 
Data: Recebido Por: Latitude: Longitude: 
Av. Santo Amaro, 2116 - Vila Nova Conceição, São Paulo - SP, Brasil - Vila Nova Conceição - 04506003 - São Paulo/SP 
1126134249 - [email protected] 
Loex - Logistica Expressa Serviços Integrados Eire 
Protocolo 
Ordem Serviço 
Speranzini Serviços e Comércio Ltda 
R. Princesa Isabel, 1364 - Brooklin Paulista, São Paulo - SP, Brasil 
Solicitante: 
Endereço: 
Número: 893 
Solicitação: 
Gislene Godoi 11991281886 
Agendamento: Não agendado 
Centro Custo: LOGÍSTICA Departamento: 
Telefone:

16/05/2019 
11:37:11 
Jeferson 
ccarvalho 
porteiro 
-23.595157 -46.671100 
Assinatura: Foto: Mapa: 
Endereço/Roteiro: Motorista: Status: 
Itinerário 5: Endereco: R. Campevas, 74 - Perdizes, São 
Paulo - SP, 05016-010, Brasil - Apto 43 - Serviço: 
ENTREGAR PARA Mariana Marcondes e Eduardo Gripa 
Bruno Siqueira Santos Concluída 
Data: Recebido Por: Latitude: Longitude: 
16/05/2019 
12:00:27 
everaldo porteiro -23.535594 -46.674619 
Assinatura: Foto: Mapa: 
Endereço/Roteiro: Motorista: Status: 
Itinerário 6: Endereco: Alameda Barão de Limeira, 1022 - 
Campos Elíseos, São Paulo - SP, 01202-002, Brasil - 
Apartamento 24- Giovanna Spada de Lima - Serviço: 
ENTREGAR PARA VIVIAN RODRIGUES AUN MACHADO 
Bruno Siqueira Santos Concluída 
Data: Recebido Por: Latitude: Longitude: 
16/05/2019 
12:19:01 
manoel porteiro -23.532813 -46.649003 
Assinatura: Foto: Mapa: 
Av. Santo Amaro, 2116 - Vila Nova Conceição, São Paulo - SP, Brasil - Vila Nova Conceição - 04506003 - São Paulo/SP 
1126134249 - [email protected] 
Loex - Logistica Expressa Serviços Integrados Eire 
Protocolo 
Ordem Serviço 
Speranzini Serviços e Comércio Ltda 
R. Princesa Isabel, 1364 - Brooklin Paulista, São Paulo - SP, Brasil 
Solicitante: 
Endereço: 
Número: 893 
Solicitação: 
Gislene Godoi 11991281886 
Agendamento: Não agendado 
Centro Custo: LOGÍSTICA Departamento: 

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148729
    • Total Posts
      644584
×
×
  • Create New...