Excel Web查询dynamic数据
我正在尝试将银行网站的抵押贷款利率提取到Excel 2010中。这是适用的网站： http ： //www.bmo.com/home/personal/banking/rates/mortgages
我在Excel中创build了一个Web查询来完成这个工作：（Data – > From Web – >“web site”）。 通过浏览器浏览，页面显示实际费率。 在Excel中，我只得到这样的占位符：
Mortgage Rates 5 year Low Rate (closed) %* Prime Rate % 问题似乎是Excel无法识别网页上的dynamic内容。 如果我为感兴趣的数据“查看源代码”，则会看到这些费率由JavaScriptvariables填充：
<td class="ratesSubLabel">Prime Rate</td> <td class="rate"><script type="text/javascript">document.write(prime.value);</script>%</td>
有人能帮忙吗？
我从来没有真正使用过的networking源types的东西（它从来没有如何我想要的）。
您可以使用VBA将页面中的数据拖放到Excel中。
下面应该从网站上的表格中读取数据并将结果打印到sheet1中。
' The following code should be put in a new code module ' Requires "Microsoft Internet Controls" and "Microsoft HTML Object Library" References Sub Main() Dim Browser As InternetExplorer Dim Document As HTMLDocument Dim Element As IHTMLElement Dim Elements As IHTMLElementCollection Dim Child As IHTMLElement Dim Children As IHTMLElementCollection Dim Row As Integer Dim Column As Integer Row = 1 Set Browser = New InternetExplorer Browser.Navigate "www.bmo.com/home/personal/banking/rates/mortgages" Do While Browser.Busy And Not Browser.ReadyState = READYSTATE_COMPLETE DoEvents Loop Set Document = Browser.Document Set Elements = Document.getElementsByTagName("table")(0).getElementsByTagName("tr") Debug.Print Elements.Length For Each Element In Elements Column = 1 'Dim Children As IHTMLElementCollection 'Dim Child As IHTMLElement Set Children = Element.getElementsByTagName("td") For Each Child In Children ThisWorkbook.Worksheets("Sheet1").Cells(Row, Column).Value = Child.innerText Column = Column + 1 Next Child Row = Row + 1 Next Element End Sub