我使用 VBA 从 ASX 网站 (www.asx.com.au) 检索股票价格已经有一段时间了,但是,我的脚本不再有效,因为网站已更新,现在使用 JavaScript 来构建内容。
因此,下面显示的脚本现在返回部分而不是页面内容。
VBA(相当标准):
With CreateObject("WINHTTP.WinHTTPRequest.5.1")
.Open "GET", strURL, False
.send
http.body.innerHTML = .responseText
End With
Run Code Online (Sandbox Code Playgroud)
.responseText 包含以下内容:
<SCRIPT>
var urlArray = window.location.hash.split('/');
if (urlArray != null) {
var var1 = urlArray[1];
window.location = "http://www.asx.com.au/asx/research/companyInfo.do?by=asxCode&asxCode=" + var1;
}
</SCRIPT>
Run Code Online (Sandbox Code Playgroud)
如何像在浏览器中查看网页一样检索网页?我唯一没有尝试过的是创建一个浏览器对象可以从中获取 HTML。