Arquivo TXT com VBA

[esdrasfoundit]

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
 

 

 

[Basole]

Poste o arquivo TXT que está importando

[esdrasfoundit]

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 - amazonas@amazonasexpress.com.br 
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 - amazonas@amazonasexpress.com.br 
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: 

[Alyson Ronnan Martins]

Boa noite @esdrasfoundit tem tempo ainda para dizer como é o resultada da busca que você quer?