在 Excel 中使用 WinHttpRequest 的 HTTP 重定向请求失败错误

在 Excel 中使用 WinHttpRequest 的 HTTP 重定向请求失败错误

我创建了一个 excel 脚本,用于将国际股票的历史价格下载到文本文件中,这个脚本直到上周一都运行良好,但现在每次我使用一些参数调用这段代码来定位 finance.yahoo.com 页面以包含指定股票的今日页面时,都会收到重定向错误,这里是部分代码:

Function GetTodayStockYahoo(ByVal simbolo As String, ByVal HojaDatos As 
String, Optional ByVal RenglonInicial = 5, Optional ByVal ColumnaInicial = 
1) As Integer
Dim pagina() As Byte
Dim strPagina As String
Dim WebObject2 As WinHttpRequest

PaginaYahoo = "https://es-us.finanzas.yahoo.com/quote/AMXL.MX"

URL = PaginaYahoo
Set WebObject2 = New WinHttpRequest
WebObject2.Open "get", URL
WebObject2.Send
WebObject2.WaitForResponse
strPagina = WebObject2.ResponseText

错误发生在 WebObject2.send 行,这里是该消息的屏幕截图:

运行时错误

我在一些网站上看到,重定向可能是由页面请求 cookie 引起的,以前似乎并非如此,但现在是这样的,有人可以建议我如何修改脚本,以便我可以像以前一样通过字符串获取页面吗?

相关内容