Página 1 de 1

Duvida VBA novo usuario (WEBBROWSER)

Enviado: Ter Set 11, 2018 2:00 pm
por wagner lucio
Boa tarde,
sou novo no forum e estou com uma duvida.

preciso que o VBA abaixo execute dentro de um webbrowser na planilha do excel.
Pode me ajudar?


Segue code:

Option Explicit
Sub ComBarras()

Dim l As Long
Dim lMin As Long
Dim lMax As Long
Dim r As Range
Dim rTudo As Range
Dim frm As frmBarraProgresso

'Usando iterações numéricas
lMin = 1
lMax = 1000
Set frm = New frmBarraProgresso
frm.Min = lMin
frm.Max = lMax
frm.Show vbModeless
Dim IE As InternetExplorer, CidadeOrig As String, sng As Date
Dim LR As Long, Contador As Long, CidadeDest As String
'Identifica a última célula ativa da lista
LR = Cells(Rows.Count, 1).End(xlUp).Row
'Cria um objeto Internet Explorer
Set IE = New InternetExplorer
'Torna o objeto visível
IE.Visible = True
'Faz um loop por todas as linhas da planilha
For Contador = 2 To LR
'Navega ao site do Mapeia
IE.Navigate "http://www.mapeia.com.br/"
'Identifica se a página já foi totalmente carregada
While IE.readyState <> READYSTATE_COMPLETE
Wend
sng = Timer
Do While sng + 3 > Timer
Loop
'Carrega os dados de cidade de origem e destino que serão preenchidos na página
CidadeOrig = Range("A" & Contador).Value
CidadeDest = Range("B" & Contador).Value
'Carrega os dados de cidade de origem e destino na página e submente os dados do formulário
IE.Document.All("origin").innerText = CidadeOrig
IE.Document.All("destination").Value = CidadeDest
IE.Document.All.Item("calc").Click
'Identifica se a página já foi totalmente carregada
While IE.readyState <> READYSTATE_COMPLETE
Wend
sng = Timer
Do While sng + 5 > Timer
Loop
'Coloca na coluna 'h' o valor total calculado do pedágio
Cells(Contador, 3) = IE.Document.getElementById("toll-value").innerText
Next Contador
IE.Quit

For l = lMin To lMax
Cells(l, "AF") = l
frm.Progresso l
Next l
Unload frm

MsgBox ("PDAGIO GERADO COM SUCESSO")

End Sub

Re: Duvida VBA novo usuario (WEBBROWSER)

Enviado: Qua Set 12, 2018 8:54 am
por Mikel Silveira Fraga
Wagner, bom dia.

Da uma olhada no vídeo que postei ontem. Coincidentemente, no vídeo eu uso o site do Mapeia.
[VIDEO] Interação VBA x Web - Consultando Rotas de Viagem

Dúvidas, a disposição.

Re: Duvida VBA novo usuario (WEBBROWSER)

Enviado: Qua Set 12, 2018 2:33 pm
por wagner lucio
Boa tarde,

mike
comigo nao deu certo porque meu VBA esta gerando erro na variavel em cima do wsCities.

E ja estou com esta rotina montada.

porem preciso somente que o site abra dentro do meu excel em uma webbrowser