HTMLからExcelへのGetElementByIDのエラー

Question

誰でもこのVBScriptを手助けできますか？ getelementbyIDを使用してIEからExcelに値を取得しようとしていますが、スクリプトはExcelに[object HTMLDivElement]のみを転送します。

あなたが値としてオブジェクトを設定しようとしている

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

、あなたのニーズに基づいてinnerText、outerText、outerHTMLまたはinnerHTMLを取る必要があります：

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