Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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: 4
Registrado em: Seg Set 03, 2018 5:03 pm

Duvida VBA novo usuario (WEBBROWSER)

Mensagem por wagner lucio » Ter Set 11, 2018 2:00 pm

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: 1080
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Bragança Paulista - SP

Re: Duvida VBA novo usuario (WEBBROWSER)

Mensagem por Mikel Silveira Fraga » Qua Set 12, 2018 8:54 am

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.


Gostou da dica? Clique no JOIA no topo da mensagem.
Esclareceu suas dúvidas? Acrescente ao título do tópico a expressão: [RESOLVIDO].
Orientações sobre o fórum, acesse aqui.

Mikel Silveira Fraga
E-mail: mikel-sf@hotmail.com | Skype: mikelsf | Linked In

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

Re: Duvida VBA novo usuario (WEBBROWSER)

Mensagem por wagner lucio » Qua Set 12, 2018 2:33 pm

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