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