Re:msxml3.dll (0x800C0005) 系统未找到指定的资源
Function GetBody(weburl) 'XMLHTTP组件获取数据
'创建对象
Dim Retrieval
GetBody="你要赋的值"
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
On Error Resume Next
With Retrieval
Retrieval.Open "Get", weburl, False
Retrieval.Send '第 24 行
GetBody = Retrieval.ResponseBody
End With
If Retrieval.Status<>200 then
Set Retrieval=Nothing
Exit function
End if
'释放对象
Set Retrieval = Nothing
End Function