VBA Excel从网站表中获取第一行数据答案

【问题标题】：VBA Excel get first line data from website tableVBA Excel从网站表中获取第一行数据
【发布时间】：2017-02-25 05:54:57
【问题描述】：

我正在使用 VBA Excel 从互联网上抓取一些数据。链接是：

http://www.baseball-reference.com/boxes/BOS/BOS199004090.shtml

我想提取这些行，每个元素在不同的单元格中：

杰克莫里斯，左后卫 (0-1) 6.2 7 5 2 3 3 0 2.7 31 95 52 31 7 14 8 17 5 0 46 -0.252 0.62 -2.1

我的代码：

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Top = 0
objIE.Left = 0
objIE.Width = 800
objIE.Height = 600
objIE.Visible = True

objIE.Navigate ("http://www.baseball-reference.com/boxes/BOS/BOS199004090.shtml")

Do
DoEvents

    If Err.Number <> 0 Then
    objIE.Quit
    Set objIE = Nothing
    GoTo j:

    End If
Loop Until objIE.ReadyState = 4

item = objIE.Document.getElementsByClassName("suppress_csv sortable stats_table now_sortable")(0).getElementsByTagName("td")(0)

我尝试了不同的组合来提取我的 item，但似乎没有任何效果。提前谢谢你。

【问题讨论】：

如果你的 Excel 版本支持 Power Query 会容易得多
如果您专注于圣路易斯红雀队，您的项目会更好：P
STL 也在我的名单上：P ...一旦我能弄清楚这个烂摊子......其他任何事情都会变得容易得多:)

标签： vba excel web-crawler

【解决方案1】：

找到答案：我从 0 到任何东西....

Set tbl = objIE.Document.getElementsByClassName("overthrow table_container")(2).getElementsByTagName("tr")(1).getElementsByTagName("td")(m).innerText

【讨论】：