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

VBA e IE (Ajuda com caixa de listagem)

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
Trentini89
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Seg Jul 27, 2015 7:23 pm

VBA e IE (Ajuda com caixa de listagem)

Mensagem por Trentini89 »

Olá, boa noite!

Estava querendo automatizar a inserção de informações em um formulário do Internet Explorer, porem só consegui fazer com que ele clicasse em 2 botões ai chega em uma caixa de listagem e eu não consigo selecionar a opção desejada, alguem poderia me ajudar?

Segue abaixo

Código: Selecionar todos

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML Strict//EN"><META http-equiv="Content-Type" content="text/html; charset=utf-8">

<html>
<head><style>
.Attribute

</style></head>
<body class="Form" style="" onkeydown="gx.evt.onkeypress(null,true,false)" onkeyup="gx.evt.onkeyup(event)" onkeypress="gx.evt.onkeypress(event,true,false)" bgColor="#ffffff"><form name="MAINFORM" class="Form" id="MAINFORM" onsubmit="try{return gx.csv.validForm()}catch(e){return true;}" action="routeselection.aspx?,0,0" method="post"><center><table align="center" class="Table" id="TABLE" style="width: 98%;" cellSpacing="2" cellPadding="1"><tbody><tr><td style="height: 93px; text-align: center;" colSpan="2"><table align="center" class="Table" id="TABLE1" cellSpacing="2" cellPadding="1"><tbody><tr><td>

>>>>>>>>>>>>>>> A CAIXA DE LISTAGEM ACREDITO QUE FICA POR AQUI: <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

<select name="_WORKFLOWID" class="Attribute" id="_WORKFLOWID" style="" onfocus="gx.evt.onfocus(this, 38,'',false,'0001',0)" onblur="gx.num.valid_integer( this,'.');;gx.evt.onblur(38);" onchange="gx.evt.onchange(this)" gxoch0="if(gx.evt.jsEvent(this)) {gx.evt.execEvt('E_WORKFLOWID.CLICK.',this);} else return false;" forcedFocus="false"> <option value="0">Selecione</option><option value="41">Reativação de Cliente</option><option value="42">Fluxo Inclusão Clientes</option><option value="43">Fluxo Inc Org Venda Clientes</option><option value="44">Fluxo Alteração Clientes </option><option value="45">Fluxo Bloqueio Clientes</option><option value="46">Fluxo Desbloqueio Clientes</option><option value="56">Fluxo Inclusão Fornecedor</option><option value="57">Fluxo Replicação de fornecedor</option><option value="58">Fluxo Alteração de Fornecedor</option></select>

</td></tr></tbody></table></td></tr></tbody></table></center></form></body></html>
No caso queria selecionar a opção de valor "42" (<option value="42">Fluxo Inclusão Clientes<), vou enviar também minha planilha até onde eu consegui fazer:

Segue o código VB caso alguem não queira baixar a planilha...

Código: Selecionar todos

Sub Workflow()

Set ObjIE = CreateObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}")

Link = ""

With ObjIE
.Navigate Link
.Visible = True

.Document.getelementbyid("m1_6").Click
.Document.getelementbyid("m1_35").Click
' Aqui é onde eu travei, o código a seguir não deu certo: .Document.getelementbyid("_WORKFLOWID").Click 

End With

End Sub
Agradeço ai a quem dedicar um tempo a ajuda! Abraço.


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