GetElementByID von HTML zu Excel Fehler

Question

Kann mir jemand mit diesem VBScript helfen? Der Versuch, einen Wert von IE nach Excel mit getelementbyID zu ziehen, aber Skript überträgt nur [object HTMLDivElement] nach Excel.

Set objExplorer = CreateObject("InternetExplorer.Application") 
WebSite = "https://www.google.co.uk/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=abbott+stocks" 
Const READYSTATE_COMPLETE = 4 
WScript.Sleep 1000 
With objExplorer 
    .Navigate2 WebSite 
    .Left=5 
    .Top=5 
    .Height=1000 
    .Width=700 
    .AddressBar = 0 
    .Visible = 1 
    .ToolBar = 0 
    .StatusBar = 0 
    Do Until .ReadyState = READYSTATE_COMPLETE 
    Loop 
End With 

Set xl = CreateObject("Excel.Application") 
    xl.Visible = True 
Set wb = xl.Workbooks.Open("C:\Users\ukristense\Documents\CI\testauto.xlsx") 
Set ws = wb.Sheets("Sheet1") 
WScript.Sleep 5000 

ws.Range("A1").Value = objExplorer.document.getElementById("resultStats") 

WScript.Sleep 5000 

objExplorer.Quit 

Answer 1

Sie versuchen, ein Objekt als einen Wert zu setzen, werden Sie die innerText, outerText, outerHTML oder innerHTML auf Ihre Bedürfnisse nehmen müssen:

ws.Range("A1").Value = objExplorer.document.getElementById("resultStats").innerText