JudahRaion
New Member
- Joined
- Oct 13, 2011
- Messages
- 20
Hi guys,
I'm having troubles find a new variable for ie after searched something in. I think I should have a new variable because source change and I don't have the new source.
Can anyone help me please?
I'm having troubles find a new variable for ie after searched something in. I think I should have a new variable because source change and I don't have the new source.
Code:
Sub teste()
the_start:
Set ie = CreateObject("InternetExplorer.Application")
'ncliente = Range("A" & j)
ie.navigate (URL)
ie.Visible = True
Do While ie.readyState <> 4
Loop
Application.StatusBar = False
'selecionar as checkboxes que quero
Set desd_qd = ie.document.getElementsByName("data")
desd_qd.Item(0).Value = "-32000"
Set TMF02 = ie.document.getElementsByName("box0")
TMF02.Item(0).Checked = False
Set TCN02 = ie.document.getElementsByName("box1")
TCN02.Item(0).Checked = True
Set MOVSFIN = ie.document.getElementsByName("box2")
MOVSFIN.Item(0).Checked = False
Set TOP04 = ie.document.getElementsByName("box3")
TOP04.Item(0).Checked = False
Set TargetOperations = ie.document.getElementsByName("box4")
TargetOperations.Item(0).Checked = False
Set Transferencias_Geral = ie.document.getElementsByName("box6")
Transferencias_Geral.Item(0).Checked = False
Set HIST = ie.document.getElementsByName("box5")
HIST.Item(0).Checked = False
Set oInputs = ie.document.getElementsByTagName("input")
For Each elm In oInputs
If elm.Value = "Pesquisar" Then
elm.Click
Exit For
End If
Next
>>>>here is where I need to set a new variable with the result of the searching engine
End Sub
Can anyone help me please?