Sziasztok!
A lenti alprogrammal szeretnék weblapot beolvasni Excel 2003 VBA-ban.
Működik ugyan, de a Set Dokumentum sornál hibával megáll. (Method
'Document' of object 'IWebBrowser2' failed) Ha a Debug gombbal
továbbengedem, akkor az MsgBox rendesen kiírja a weblapot. Mi lehet a
hiba oka? Talán a hivatkozás hiányzik? Mármint amit a Tools,
References menüpontban kell megadni. Ha igen, melyik tartalmazza az
IWebBrowser2-t?
Sub WeblapOlvasás()
Dim Böngésző As Object: Dim Dokumentum As Object
Set Böngésző = CreateObject("InternetExplorer.Application")
Böngésző.Navigate "http://www.hix.hu/"
Set Dokumentum = Böngésző.Document
MsgBox Dokumentum.Body.innerText
Set Dokumentum = Nothing: Set Böngésző = Nothing
End Sub ' WeblapOlvasás
Köszönet.
|