下面的代码在一个文件中完美运行,但是当我尝试在另一个文件中使用它时,我收到错误“未定义用户定义的类型”并且“http As New WinHttpRequest”被突出显示。这可能是什么原因突然不起作用?
谢谢!
url = Links(2, j)
Dim http As New WinHttpRequest
http.Open "GET", url, False
http.send
Dim Resp As String: Resp = http.ResponseText
最佳答案
问题是 WinHttpRequest
库未添加到项目中,而是添加到其他 Excel 文件中。
添加 WinHTTP
VBE 菜单 > 工具 > 引用中的库:
上述方法称为早期绑定(bind) .下面那个叫后期装订 :
如果您想避免添加库并使用速度较慢的代码并且没有 Intellisense,请使用以下命令:
Dim http As Object
Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
然后简单地复制和粘贴这个总是有效的:Sub TestMe()
Dim http As Object
Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
http.Open "GET", "https://stackoverflow.com", False
http.Send
Debug.Print http.ResponseText
End Sub
关于excel - WinHttpRequest 在不同文件中使用代码时停止工作,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/63526195/