谈XMLHTTP对象(属性和方法)VBA抓取网页数据

《谈XMLHTTP对象(属性和方法)VBA抓取网页数据》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、用VBA抓取网页数据有不少方法，其中一种便是引用XMLHTTP对象。在这里尝试为大家介绍一下这个对象的一些基本属性和方法还有一些应用示例。XMLHTTP对象参考IXMLHTTPRequest提供客户端同http服务器通讯的协议示例以下示例建立一个XMLHTTP对象，并向http服务器发出指定地址的请求，请求返回XML的源文件(XMLdocument)，如果服务器不能连通，则返回错误。DimHttpReqAsObjectSetHttpReq=CreateObject("MSXML2.XMLHTTP.3.0")HttpReq.open"GET","http://ajaxSer

2、ver.aspx",FalseHttpReq.sendMsgBoxHttpReq.responseText说明：第一，二行可以用以下语句代替，但前提是需要在对象里先引用MicrosoftXML,v2.6-6.0(msxml2.dll,msxml3.dll,msxml4.dll,msxml5.dll,msxml6.dll)其中之一。DimHttpReqAsNewMSXML2.XMLHTTP30备注客户端可以通过XmlHttp对象(MSXML2.XMLHTTP.3.0)向http服务器发送请求并使用微软XML文档对象模型Microsoft®XMLDocumentObjectM

3、odel(DOM)处理回应。该对完全象集成了MicrosoftXMLCoreServices(MSXML)，支持直接发送请求，并用MSXMLDOM分析响应。由于集成了对ExtensibleStylesheetLanguage(XSL)的支持，XMLHTT对象组件提供一个很简易的途径向HTTP服务器发送一个结构化查询，并支持用多种形式有效显示结果。通常的使用顺序是，先用open方法，再用send方法发送请求，然后用setRequestHeader方法设置自定义头信息，最后查看四种以不同形式返回的响应结果。XMLHTTP对象支持MicrosoftInternetExplore

4、r(IE)5.0及以上版本，只要你的网页浏览器指定一种语言进行浏览。更详细的信息请查看Explorer的帮助文件关于"TospecifyanotherlanguageforWebpagecontent"的部份。版本MSXML2.0及以上版本先决条件如果不用CreateObject方法创建对象，则需要先引用以下任意一个版本的文件:msxml3.dll,msxml2.lib(MSXML3.0)msxml4.dll,msxml2.lib(MSXML4.0)msxml5.dll,msxml2.lib(MSXML5.0forMicrosoftOfficeApplications)m

5、sxml6.dll,msxml2.lib(MSXML6.0)HeaderandIDLfiles:msxml2.h,msxml2.idlXMLHttp成员属性onreadystatechange*指定当readyState属性改变时的事件处理句柄。只写.每个状态改变时都会触发这个事件处理器readyState返回当前请求的状态，只读.responseBody将回应信息正文以unsignedbyte数组形式返回.只读responseStream以AdoStream对象的形式返回响应信息。只读responseText将响应信息作为字符串返回.只读responseXML将响应信息

6、格式化为XmlDocument对象并返回，只读status返回当前请求的http状态码.只读statusText返回当前请求的响应行状态，只读*表示此属性是W3C文档对象模型的扩展.在VBA中不能直接调用方法abort取消当前请求getAllResponseHeaders获取响应的所有http头getResponseHeader从响应信息中获取指定的http头open创建一个新的http请求，并指定此请求的方法、URL以及验证信息(用户名/密码)send发送请求到http服务器并接收回应setRequestHeader单独指定请求的某个http头readyState属性返

7、回XMLHTTP请求的当前状态此属性只读，返回值为4字节的长整型（具体值请看备注）当XMLHttp对象把一个HTTP请求发送到服务器时将经历若干种状态：一直等待直到请求被处理；然后，它才接收一个响应。这样以来，脚本才正确响应各种状态-XMLHttpRequest对象拥有一个描述对象的当前状态的readyState属性。语法strValue=oXMLHttpRequest.readyState;示例DimXmlHttpAsObjectSetXmlHttp=CreateObject("Msxml2.XMLHTTP.3.0")  X