excel vba 网页数据抓取(我试图在Excel中使用VBA来访问嵌入在网页中的数据)

　　excel vba 网页数据抓取(我试图在Excel中使用VBA来访问嵌入在网页中的数据)

　　我正在尝试在 Excel 中使用 VBA 来访问网页中嵌入的网页中的数据。如果表格位于非嵌入式页面上，我知道该怎么做。我也知道如何使用 VBA 导航到产品页面。我不能只是导航到嵌入式页面，也不能访问数据库，因为有一个产品 ID 查找可以将零件编号转换为 ID。

　　这是该页面的链接：

　　为了清楚起见，我会拿出一个元素的图片，但我没有 10 个代表点......

　　我需要从中获取信息的表是 Product Lifecycle 表。

　　如果我使用以下代码将页面保存为 VBA 中的 HTMLDocument，我可以在相应键下的 src 属性中看到正确的 url：

　　For Each cell In Selection

link = "http://support.automation.siemens.com/US/llisapi.dll?func=cslib.csinfo&lang=en&objid=" & cell & "&caller=view"

ie.navigate link

Do

DoEvents

Loop Until ie.readyState = READYSTATE_COMPLETE

Dim doc As HTMLDocument

　　有没有办法用 VBA 索引这个表，或者我必须联系公司并尝试访问产品 ID，以便我可以直接导航到页面？

　　关于我下面的评论，这里是记录宏的代码：

　　ActiveCell.FormulaR1C1 = _

"http://support.automation.siemens.com/WW/llisapi.dll?func=cslib.csinfo&lang=en&objid=6ES7194-1AA01-0XA0&caller=view"

Range("F9").Select

With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://support.automation.siemens.com/WW/llisapi.dll?func=ll&objid=7224052&nodeid0=10997566&caller=view&lang=en&siteid=cseus&aktprim=0&objaction=csopen&extranet=standard&viewreg=WW" _

, Destination:=Range("$F$9"))

.FieldNames = True

.RowNumbers = False

　　我知道在哪里可以找到字符串：URL；，但我不知道如何将其保存到变量中。