Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim i, j, k As Integer
- Set obj = objIE.document.GetElementsByTagName("option")
- For i = 1 To UBound(UF) ' Vetor de unidades da federação
- For Each el In obj
- If el.innerText = UF(i) Then
- el.Selected = True
- el.Focus
- el.FireEvent ("onchange")
- el.FireEvent ("onselect")
- el.FireEvent ("onload")
- el.FireEvent ("onmouseleave")
- el.FireEvent ("onactivate")
- el.FireEvent ("onclick")
- el.FireEvent ("onfocusin")
- el.FireEvent ("onfocusout")
- el.FireEvent ("oninput")
- el.FireEvent ("onloadedmetadata")
- el.FireEvent ("onplay")
- el.FireEvent ("onsubmit")
- el.Click
- MsgBox "Ok"
- Exit For
- End If
- Next el
- For j = 1 To UBound(Rede) ' Vetor do tipo de rede de ensino
- For Each el In obj
- If el.innerText = Rede(j) Then
- el.Selected = True
- el.setCapture
- Exit For
- End If
- Next el
- For k = 1 To UBound(Localização) ' Vetor da localização da unidade de ensino
- For Each el In obj
- If el.innerText = Localização(k) Then
- el.Selected = True
- el.Focus
- el.FireEvent ("onchange")
- el.FireEvent ("onselect")
- el.FireEvent ("onload")
- el.FireEvent ("onmouseleave")
- el.FireEvent ("onactivate")
- el.FireEvent ("onclick")
- el.FireEvent ("onfocusin")
- el.FireEvent ("onfocusout")
- el.FireEvent ("oninput")
- el.FireEvent ("onloadedmetadata")
- el.FireEvent ("onplay")
- el.FireEvent ("onsubmit")
- el.FireEvent ("onmouseleave")
- el.Click
- 'objIE.Refresh2
- Exit For
- End If
- Next el
- Next k
- Next j
- Next i
Add Comment
Please, Sign In to add comment