注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

且行且记录

点滴记录,行的更远!

 
 
 

日志

 
 

可以用XMLHTTP对象抓股票数据,这样不用依赖python  

2016-01-13 11:21:02|  分类: 搜集 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
python脚本功能强大,用他实现抓股票数据比较简单。为了减少依赖,可以用xmlhttp对象抓网页数据。

Sub ajax()
    Dim XmlHttp As Object
    Dim url As String
    Set XmlHttp = CreateObject("Msxml2.XMLHTTP.3.0")
    url = "http://qt.gtimg.cn/q=sz002100"
    XmlHttp.Open "GET", url, False
    XmlHttp.send
    If XmlHttp.readyState = 4 Then
        Debug.Print XmlHttp.responseText
        'MsgBox "Done"
    End If
End Sub

参考
XMLHttp成员

属性
onreadystatechange*
指定当readyState属性改变时的事件处理句柄。只写. 每个状态改变时都会触发这个事件处理器
readyState
返回当前请求的状态,只读.
responseBody
将回应信息正文以unsigned byte数组形式返回.只读
responseStream
Ado Stream对象的形式返回响应信息。只读
responseText
将响应信息作为字符串返回.只读
responseXML
将响应信息格式化为Xml Document对象并返回,只读
status
返回当前请求的http状态码.只读
statusText
返回当前请求的响应行状态,只读

表示此属性是W3C文档对象模型的扩展.VBA中不能直接调用

方法
abort
取消当前请求
getAllResponseHeaders
获取响应的所有http
getResponseHeader
从响应信息中获取指定的http
open
创建一个新的http请求,并指定此请求的方法、URL以及验证信息(用户名/密码)
send
发送请求到http服务器并接收回应
setRequestHeader
单独指定请求的某个http
  评论这张
 
阅读(35)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017