Ir para conteúdo
Fórum Script Brasil
  • 0

Arquivo TXT com VBA


esdrasfoundit

Pergunta

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 para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 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 - 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: 

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...