PDA

View Full Version : Items in Dropdown box of Internet Form



vosmerkin
06-06-2007, 04:28 AM
I'm trying to get that items to browse webpage with different value of this control. I can get the value, but can't access the list.
Please advice


Sub InternetExplorerTest()
Dim d As Variant
Dim lnk As HTMLLinkElement
Dim MyDataObj As New DataObject
Dim IE As InternetExplorer
Set IE = New InternetExplorer
Dim frm, elem


With IE
.Visible = True
.navigate "Sheet1.Cells(1,1)"
'Wait until page is loaded. Warning for endless loop here!
Do Until IE.readyState = READYSTATE_COMPLETE: Loop

End With

For Each frm In IE.document.forms

ddd4$ = frm(4).Value

Next
End sub