Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Consulta Operadora ...
 
Notifications
Clear all

Consulta Operadora Automática

 
2024 - VBA & Macros
Post Recente por RFNatal 1 ano atrás
5 Posts
3 Usuários
0 Reactions
4,593 Visualizações
RSS
chook
 chook
(@chook)
Posts: 197
Estimable Member
Topic starter
 

Bom dia amigos,
estou querendo criar uma rotina onde eventualmente eu possa atualizar todas as operadoras de telefone fixo ou celular, utilizando o site http://www.qualoperadora.net/ como base de dados. O site, como já devem ter utilizado alguma vez, retorna a operadora de telefone fixo ou celular.
é possível utilizarmos uma sequencia de dados para atualizar automaticamente no site? Inclusive atualizando o formato do telefone incluindo o 9 digito se for o caso. Observe que se o operador incluir apenas 8 digitos no site ele ao retornar já inclui o 9 digito e ajusta o formato para (00) 00000-0000.

A estrutura para implementarmos é similar a abaixo destacada. Incluo em anexo planilha modelo para testes.

DDD TELEFONE OPERADORA
83 33358394
81 21230007
81 30283322
81 35240505

Forte abraço a todos!!

Atenciosamente,

Alex Lacerda
controleremoto@gmail.com

 
Postado : 23/07/2015 9:09 am
chook
 chook
(@chook)
Posts: 197
Estimable Member
Topic starter
 

Alguém se habilita? Nivel Hard!

Atenciosamente,

Alex Lacerda
controleremoto@gmail.com

 
Postado : 24/07/2015 5:14 pm
 rlaf
(@rlaf)
Posts: 10
Active Member
 

Boa tarde Amigo,

Acho que pode ajudar.

Sub busca_Operadora()

Dim IE As InternetExplorer
Dim telefone As String
Dim resultado As String

resultado = ""

With ThisWorkbook.Sheets("Plan1")

telefone = .Range("A1").Value

    Set IE = CreateObject("InternetExplorer.Application")
    
    IE.Visible = False
    URL = "http://www.qualoperadora.net/"
    IE.navigate (URL)

    Do
    DoEvents
    Loop Until IE.readyState = 4
    
    Set tel = IE.document.getElementById("telefone")
    tel.Value = telefone
    
    Set btn = IE.document.getElementById("consultar")
    btn.Click
    
    Do
    DoEvents
    Loop Until IE.document.readyState = "complete"
    
    Set res = IE.document.getElementById("resultado")
    .Range("B1").Value = res.innerText

End With

Set IE = Nothing

End Sub

At.
Ricardo

http://xlssolution.blogspot.com.br/

 
Postado : 25/07/2015 2:37 pm
chook
 chook
(@chook)
Posts: 197
Estimable Member
Topic starter
 

Show de Bola funcionou perfeitamente!! Só precisei fazer algumas mudanças aqui e ficou show de bola!!!

Compartilho com todos a planilha e o código atualizado!! Muiiiiittttoooo Grattoo!!!!

Sub busca_Operadora()
Dim telefone As String
Dim resultado As String
UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
resultado = ""

For i = 2 To UltimaLinha
With ThisWorkbook.Sheets("Plan1")

    telefone = .Range("A" & i).Value & .Range("B" & i).Value

    Set InternetExplorer = CreateObject("InternetExplorer.Application")
    
    InternetExplorer.Visible = False
    URL = "http://www.qualoperadora.net/"
    InternetExplorer.navigate (URL)

    Do
    DoEvents
    Loop Until InternetExplorer.readyState = 4
    
    Set tel = InternetExplorer.document.getElementById("telefone")
    tel.Value = telefone
    
    Set btn = InternetExplorer.document.getElementById("consultar")
    btn.Click
    
    Do
    DoEvents
    Loop Until InternetExplorer.document.readyState = "complete"
    
    Set res = InternetExplorer.document.getElementById("resultado")
    .Range("C" & i).Value = res.innerText

End With

    Set InternetExplorer = Nothing
Next
End Sub

Atenciosamente,

Alex Lacerda
controleremoto@gmail.com

 
Postado : 26/07/2015 5:35 pm
 RFNatal
(@rfnatal)
Posts: 1
New Member
 

Vcs tem como disponibilizar o arquivo?

 
Postado : 05/06/2023 10:11 am
Forum Jump:
  Tópico Anterior
Próximo Tópico