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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Duvida VBA novo usuario (WEBBROWSER)
-
- Acabou de chegar
- Mensagens: 6
- Registrado em: Seg Set 03, 2018 5:03 pm
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Duvida VBA novo usuario (WEBBROWSER)
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.
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.
-
- Acabou de chegar
- Mensagens: 6
- Registrado em: Seg Set 03, 2018 5:03 pm
Re: Duvida VBA novo usuario (WEBBROWSER)
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
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