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