0

我有这段代码，我在下面进行了调整。我用它来抓取其他晨星数据，但我现在似乎无法让它为 ETF（交易所交易基金）的“预期回报”工作。现在代码上的所有内容都已设置为获取我需要的数据，但在 Excel 电子表格中获取数据时遇到问题。当我在代码下执行 msgBox tblTR 时：

Set tblTR = Doc.getElementsByClassName("pr_text3")(4).innerText

我在消息框上得到了预期值。

但是，当我取出 msgbox 代码时，该值不会出现在 excel 电子表格中。我一直在努力解决几个小时，需要帮助！

下面是整个代码。在“Tickers2”选项卡下是我想要提取数据的所有代码的地方。示例 JKE、JKF、JKD ......我有大约 1000 个。在“ExpectedReturn”选项卡下是我希望显示数据的地方。我认为这与我按类名拉元素与我过去按标签名拉元素有关。我需要的信息中没有标记名，所以我将其切换为类名。下面是整个代码。

我还要提到您必须登录到 Morningstar.com 才能获得实际数据，但我假设论坛可以为我指明正确的方向而无需登录。

网址是 www.morningstar.com

Sub ExpectedReturn()

Dim IE As Object, Doc As Object, lastRow As Long, tblTR As Object, tblTD As Object, strCode As String
lastRow = Range("A65000").End(xlUp).Row


Set IE = CreateObject("internetexplorer.application")
IE.Visible = True


last_row = Sheets("Tickers2").Range("A1").End(xlDown).Row

ini_row_dest = 1

Sheets("ExpectedReturn").Select

Sheets("ExpectedReturn").Range("A1:H10000").ClearContents

Application.ScreenUpdating = True

For i = 1 To lastRow
    Application.StatusBar = "Updating upDown" & i & "/" & last_row

    row_dest = ini_row_dest + (i - 1)

    strCode = "Tickers2"    ' Range("A" & i).value  
    list_symbol = Sheets("Tickers2").Range("A" & i)
    IE.navigate "http://etfs.morningstar.com/quote?t=" & list_symbol

    Do While IE.readyState <> 4: DoEvents: Loop

    Set Doc = CreateObject("htmlfile")
    Set Doc = IE.document

    tryAgain:

    Set tblTR = Doc.getElementsByClassName("pr_text3")(4).innerText

    MsgBox tblTR
    If tblTR Is Nothing Then GoTo tryAgain

    On Error Resume Next



    j = 2
    For Each tblTD In tblTR.getElementsByTagName("td")
        tdVal = Split(tblTD.innerText, vbCrLf)
        Cells(i, j) = tdVal(0)
        Cells(i, j + 1) = tdVal(1)
        j = j + 2



  Next

  Sheets("ExpectedReturn").Range("A" & row_dest).Value = list_symbol
  Next i

    Range("A3").Select

    Application.StatusBar = False

    Application.Calculation = xlAutomatic


  End Sub

先感谢您。

-埃迪

4

2 回答 2

0

通过设置

Set tblTR = Doc.getElementsByClassName("pr_text3")(4).innerText

变量 tblTR 是一个字符串。你想要一个 dom 元素，所以删除.innerText

只有这样，您才能进一步向下循环其 TD-children。

于 2013-09-05T19:22:12.900 回答
0

这是我的修复

tblTR=Doc.ElementsByClassName("pr_text3)(4).innerText 
Sheets("ExpectedReturn").Range("B"& row_dest).Value=tblTR
于 2013-09-07T22:41:55.927 回答