经本人调查后发现,必须使用https访问,并且在请求头部添加Referer字段
因为之前使用 @持有封基 老师的Excel模板,相关vbs的代码需要更新,添加请求头。但原来的XmlHttp对象无法伪造部分HTTP头信息(包括Referer),所以必须改为WinHttp对象才能访问
附上修改后的宏代码:
With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "GET", URL, False
.setRequestHeader "Referer", "https://finance.sina.com.cn"
.Send
sTemp = .responseText
End With