Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Duvida VBA novo usuario (WEBBROWSER)

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
wagner lucio
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Seg Set 03, 2018 5:03 pm

Duvida VBA novo usuario (WEBBROWSER)

Mensagem 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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: Duvida VBA novo usuario (WEBBROWSER)

Mensagem 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.


wagner lucio
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Seg Set 03, 2018 5:03 pm

Re: Duvida VBA novo usuario (WEBBROWSER)

Mensagem 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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder