首先引用
step1:进入VBA中,“工具”----”引用“----“Microsoft XML, v3.0”选中,----“确定”
第1种方式:直接引用
Public Sub g()
'第一种
Dim xh As xmlHttp
xh.Open ""
End Sub
引用“Microsoft XML, v3.0”后,直接定义一个xmlhttp后,后面会直接跟方法。这种方式比较简单。但很多时候兼容性不好。
第二种:后期绑定
Public Sub g()
'第二种
Set http1 = CreateObject("MSXML2.XMLHTTP")
Set http2 = CreateObject("Microsoft.XMLHTTP")
End Sub
这种方式比较稳定,基本每台电脑都适用。
总结:
xmlhttp的属性有responseBody,responseText,readyState
xmlhttp的方法用open,send,setRequestHeader,getResponseHeader
'创建对象
Dim xmlHttp as Object
Set xmlHttp = CreateObject("MSXML2.XMLHTTP