Excel vba - internet explorer

Kelvim · 20 de fevereiro de 2016

Boa tarde

Gostaria de saber como posso alterar um campo de pesquisa que tem em um site.

Este site é um site da empresa.

Ele está dentro de varias DIV, e é um form

Segue abaixo o código do form.

Gostaria de que o codigo em VBA EXCEL alterasse o campo e escolhesse a opção IRD

Segue abaixo o código,

<DIV id=ddlFilterType_msddHolder style="OVERFLOW: hidden; HEIGHT: 0px; POSITION: absolute">
<SELECT name=FilterType id=ddlFilterType style="WIDTH: 125px" onchange=javascript:xxxxxxxxxxxxxx.currentPage.search.ddlFilterTypeChange(this.value);>
<OPTION value="">Buscar por</OPTION>
<OPTION value=numOs>Número da OS</OPTION>
<OPTION value=cdCli>Conta</OPTION>
<OPTION value=docum>CPF / CNPJ do Cliente</OPTION>
<OPTION value=scard>SmartCard</OPTION>
<OPTION value=ird selected>IRD</OPTION>
<OPTION value=numProposta>Proposta</OPTION>
<OPTION value=tpSer>Tipos de Serviço</OPTION>
</SELECT>
</DIV>

Kelvim · 2 de março de 2016

Em 20/02/2016 às 17:59, Kelvim disse:

Boa tarde

Gostaria de saber como posso alterar um campo de pesquisa que tem em um site.

Este site é um site da empresa.

Ele está dentro de varias DIV, e é um form

Segue abaixo o código do form.

Gostaria de que o codigo em VBA EXCEL alterasse o campo e escolhesse a opção IRD

<OPTION value=ird selected>IRD</OPTION>

Segue abaixo o código,

<DIV id=ddlFilterType_msddHolder style="OVERFLOW: hidden; HEIGHT: 0px; POSITION: absolute">
<SELECT name=FilterType id=ddlFilterType style="WIDTH: 125px" onchange=javascript:xxxxxxxxxxxxxx.currentPage.search.ddlFilterTypeChange(this.value);>
<OPTION value="">Buscar por</OPTION>
<OPTION value=numOs>Número da OS</OPTION>
<OPTION value=cdCli>Conta</OPTION>
<OPTION value=docum>CPF / CNPJ do Cliente</OPTION>
<OPTION value=scard>SmartCard</OPTION>
<OPTION value=ird selected>IRD</OPTION>
<OPTION value=numProposta>Proposta</OPTION>
<OPTION value=tpSer>Tipos de Serviço</OPTION>
</SELECT>
</DIV>

Ola boa noite

Alguem me ajude plz. Eu queria selecionar uma opção em uma lista suspensa.

Estou quebrando a cabeça e não consigo fazer dar certo.

Tento usar o codigo

ie.Document.getElementByID("ddlFilterType_child").Focus
ie.Document.getElementByID("ddlFilterType_child").selectedIndex = 1
ie.Document.getElementByID("ddlFilterType_child").FireEvent ("onchange")

porém o mesmo da o erro de ( A variável do objeto ou a variavel do bloco With não foi defiida).

Segue abaixo o HTML e o codigo do vba.

Sub x()
Dim ie As InternetExplorer
Dim C
Dim ULogin As Boolean, ieForm
Dim MyPass As String, MyLogin As String
redo:
MyLogin = Application.InputBox("Por Favor entre com o Login", "xxxxxxxx", Default:="login", Type:=2)
MyPass = Application.InputBox("Por favor entre com a senha", "xxxxxxxxx", Default:="Password", Type:=2)
If MyLogin = "" Or MyPass = "" Then GoTo redo
Set ie = New InternetExplorer
ie.Visible = True


ie.Navigate "https://xxxxx.com.br/"


Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop

ie.Document.all("txtUsuario").innerText = MyLogin
ie.Document.all("txtSenha").innerText = MyPass
'obtém o forma a qual o controle de login pertence para submetê-lo
ie.Document.all("txtUsuario").form.all("btnEntrar").Click

If ULogin = False Then MsgBox "Usuário logado"


ie.Navigate "https://xxxxxxxxxx.com.br"


ie.Document.getElementByID("ddlFilterType_child").Focus
ie.Document.getElementByID("ddlFilterType_child").selectedIndex = 1
ie.Document.getElementByID("ddlFilterType_child").FireEvent ("onchange")

Set ie = Nothing

End Sub

Sub Referencia()
Dim ObRef
On Error Resume Next
' Adiciona Controles da Net
ThisWorkbook.VBProject.References.AddFromGuid "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}", 1, 1
End Sub

Segue agora o HTML (uma parte dele)

<OPTION value="" selected>Buscar por</OPTION>

<OPTION value=numOs>Número da OS</OPTION>

<OPTION value=cdCli>Conta</OPTION>

<OPTION value=docum>CPF / CNPJ do Cliente</OPTION>

<OPTION value=scard>SmartCard</OPTION>

<OPTION value=tpSer>Tipos de Serviço</OPTION>

<OPTION value=numProposta>Proposta</OPTION></SELECT></DIV>

</SPAN>

<SPAN class=textTitle id=ddlFilterType_titletext>Buscar por</SPAN></DIV>

<A class="selected enabled" id=ddlFilterType_msa_0 href="javascript:void(0);" jQuery15202114800812512243="240">Buscar por</A>

<A class=enabled id=ddlFilterType_msa_1 href="javascript:void(0);" jQuery15202114800812512243="241">Número da OS</A>