使用VBA晨星金融的網頁搜狗

Question

我是新來的vba，如此裸露在我身邊。我試圖颳去晨星內部所有權在這個網址： http://investors.morningstar.com/ownership/shareholders-overview.html?t=TWTR&region=usa&culture=en-US

這是我使用的代碼：

Sub test() 

    Dim appIE As Object 
    Set appIE = CreateObject("internetexplorer.application") 


    With appIE 
     .Navigate "http://investors.morningstar.com/ownership/shareholders-overview.html?t=TWTR&region=usa&culture=en-US" 
     .Visible = True 
    End With 

    While appIE.Busy 
     DoEvents 
    Wend 

    Set allRowOfData = appIE.Document.getElementById("currentInsiderVal") 
    Debug.Print allRowOfData 
    Dim myValue As String: myValue = allRowOfData.Cells(0).innerHTML 


    appIE.Quit 
    Set appIE = Nothing 
    Range("A30").Value = myValue 
    End Sub 

我得到的運行時間線誤差13 集allRowOfData = appIE.Document.getElementById（「currentInsiderVal」） 但我看不到任何不匹配。到底是怎麼回事？任何幫助將不勝感激。非常感謝，Aidan

Answer 1

你可以只用XHR和正則表達式做到這一點，而不是笨重的IE：

Sub Test() 
    Dim sContent 
    With CreateObject("MSXML2.XMLHTTP") 
     .Open "GET", "http://investors.morningstar.com/ownership/shareholders-overview.html?t=TWTR&region=usa&culture=en-US", False 
     .Send 
     sContent = .ResponseText 
    End With 
    With CreateObject("VBScript.RegExp") 
     .Pattern = ",""currInsiderVal"":(.*?)," 
     Range("A30").Value = .Execute(sContent).Item(0).SubMatches(0) 
    End With 
End Sub 

下面是代碼是如何工作的說明：

首先MSXML2.XMLHTTP的ActiveX實例是創建。 GET請求以同步模式下的目標URL打開（執行中斷直到收到響應）。

Then VBScript.RegExp is created。默認.IgnoreCase，.Global和.MultiLine屬性是False。模式是,"currInsiderVal":(.*?),，其中(.*?)是一個捕獲組，.表示任何字符，.* - 零個或多個字符，.*? - 儘可能少的字符（惰性匹配）。模式中的其他字符可以被找到。 .Execute方法返回匹配的集合，因爲.Global是False，所以只有一個匹配對象。該匹配對象具有一系列子匹配，因爲該模式包含唯一的捕獲組，所以只有一個子匹配。
上有正則表達式的一些有用的MSDN文章：
Microsoft Beefs Up VBScript with Regular Expressions
Introduction to Regular Expressions

這裏是我創建的代碼說明：

首先，我發現使用含網頁上的DOM目標值元素瀏覽器：

相應節點是：

<td align="right" id="currrentInsiderVal">143.51</td> 

然後我做了XHR，發現在響應HTML這個節點上，但它並沒有包含值（你可以找到在網絡選項卡上的瀏覽器開發者工具響應刷新頁面後）：

<td align="right" id="currrentInsiderVal"> 
</td> 

這種行爲是DHTML的典型特徵。動態HTML內容是在加載網頁之後通過腳本生成的，無論是在通過XHR從網絡檢索數據還是僅處理已加載的網頁數據之後。然後，我只是搜索的響應值143.51，位於JS函數中的片段,"currInsiderVal":143.51,：

  fundsArr = {"fundTotalHistVal":132.61,"mutualFunds":[[1,89,"#a71620"],[2,145,"#a71620"],[3,152,"#a71620"],[4,198,"#a71620"],[5,155,"#a71620"],[6,146,"#a71620"],[7,146,"#a71620"],[8,132,"#a71620"]],"insiderHisMaxVal":3.535,"institutions":[[1,273,"#283862"],[2,318,"#283862"],[3,351,"#283862"],[4,369,"#283862"],[5,311,"#283862"],[6,298,"#283862"],[7,274,"#283862"],[8,263,"#283862"]],"currFundData":[2,2202,"#a6001d"],"currInstData":[1,4370,"#283864"],"instHistMaxVal":369,"insiders":[[5,0.042,"#ff6c21"],[6,0.057,"#ff6c21"],[7,0.057,"#ff6c21"],[8,3.535,"#ff6c21"],[5,0],[6,0],[7,0],[8,0]],"currMax":4370,"histLineQuars":[[1,"Q2"],[2,"Q3"],[3,"Q4"],[4,"Q1<br>2015"],[5,"Q2"],[6,"Q3"],[7,"Q4"],[8,"Q1<br>2016"]],"fundHisMaxVal":198,"currInsiderData":[3,143,"#ff6900"],"currFundVal":2202.85,"quarters":[[1,"Q2"],[2,""],[3,""],[4,"Q1<br>2015"],[5,""],[6,""],[7,""],[8,"Q1<br>2016"]],"insiderTotalHistVal":3.54,"currInstVal":4370.46,"currInsiderVal":143.51,"use10YearData":"false","instTotalHistVal":263.74,"maxValue":369}; 

所以正則表達式模式基礎上創建，它應該找到片段,"currInsiderVal":<some text>,其中<some text>是我們的目標值。

Answer 2

看看網站和你試圖檢索的元素有一個錯字;而不是currentInsiderVal嘗試使用currrentInsiderVal，您應該正確檢索數據。

可能值得考慮一些錯誤陷阱來捕獲這樣的東西你檢索的任何其他領域？

在您的評論後，我仔細看了一下。你的問題似乎是試圖捕獲單個單元格的ID，而不是沿着對象樹進行導航。我修改了代碼來檢索你所在表格的行，然後將myValue設置爲該行內的正確單元格。當我嘗試了它似乎工作。給這個鏡頭？

Sub test() 

Dim appIE As Object 
Set appIE = CreateObject("internetexplorer.application") 


With appIE 
    .Navigate "http://investors.morningstar.com/ownership/shareholders-overview.html?t=TWTR&region=usa&culture=en-US" 
    .Visible = True 
End With 

While appIE.Busy 
    DoEvents 
Wend 

Set allRowOfData = appIE.Document.getelementbyID("tableTest").getElementsByTagName("tbody")(0).getElementsByTagName("tr")(5) 
myValue = allRowOfData.Cells(2).innerHTML 

appIE.Quit 
Set appIE = Nothing 
Range("A30").Value = myValue 
End Sub