VBA获取外部网站信息错误提示

corydoras2

是一个API的信息，想拿其中的一些字段，但是最近发现这个抓取就出错，用了MSGBOX来测试发现提示“运行时错误，1072896658 (c00ce56e)”

高手帮忙看看怎么解决！先致谢了。

附：之前一些朋友说将.responseText 改成VBA.StrConv(.responseBody, vbUnicode, &H804)，结果提示是“运行时错误，438，对象不支持该属性或方法”





Sub GetData()

Dim code As String
Dim url As String

code = 162605
url = "http://fundgz.1234567.com.cn/js/" & code & ".js" & "?" & Timer()

With CreateObject("msxml2.Serverxmlhttp")
        .Open "GET", url, False
        .setrequestheader "If-Modified-Since", "0"
        .send
        MsgBox .responsetext


End With

End Sub


先谢谢了

corydoras2

老师们，抽空帮小弟一把，感谢啊

天真无鞋

corydoras2 发表于 2024-10-1 15:37
老师们，抽空帮小弟一把，感谢啊

在.send下面加一句试试

responseText = .responseText

corydoras2

天真无鞋 发表于 2024-10-1 16:03
在.send下面加一句试试

responseText = .responseText

还是不行，之前也试过这个赋值做法，也是不行的

corydoras2

谢谢天真无鞋！还是不行，我之前也试过先赋值，但是结果是一样的，运行错误

perfect131

corydoras2 发表于 2024-10-2 18:01
谢谢天真无鞋！还是不行，我之前也试过先赋值，但是结果是一样的，运行错误

需要转码
https://club.excelhome.net/forum ... 84&pid=11597914

Windor123