Consulta Operadora Automática

2024 - VBA & Macros

Post Recente por RFNatal 1 ano atrás

5 Posts

3 Usuários

0 Reactions

4,596 Visualizações

RSS

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
[email protected]

Postado : 23/07/2015 9:09 am

chook

(@chook)

Posts: 197

Estimable Member

Topic starter

Alguém se habilita? Nivel Hard!

Atenciosamente,

Alex Lacerda
[email protected]

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)

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
[email protected]

Postado : 26/07/2015 5:35 pm