View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
quartz[_2_] quartz[_2_] is offline
external usenet poster
 
Posts: 441
Default Reference to IE - but none found?

I have some code, I think developed for Excel 97 that requires a reference to
MS Internet Explorer. The problem is, I don't have a library for IE. Has it
been changed? Can I download it from somewhere?

OR, better still, can someone update the following code for XP?

Sub FindImages(sURL As String)

Dim oDoc As New MSHTML.HTMLDocument
Dim IE As New InternetExplorer
Dim i As Integer

IE.navigate sURL
Do While IE.readyState < READYSTATE_COMPLETE
Loop
Set oDoc = IE.Document
For i = 1 To oDoc.images.Length
If oDoc.images(i - 1).src Like "http://ichart.yahoo.com/*" Then
saveImg oDoc.images(i - 1).src, ThisWorkbook.Path & "\temp.png"
End If
Next i
Set oDoc = Nothing
Set IE = Nothing
End Sub

Thanks in advance.