从中国银行网站采集银行汇率-大海
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


从中国银行网站采集银行汇率

发表时间:2017/12/8 11:23:29 评论(4) 浏览(3030)  评论 | 加入收藏 | 复制
   
摘 要:从指定网页采集数据的源代码示例。
正 文:

      因为工作的原因,需要实时获取当日的银行汇率,以前一直是通过打开网页复制获得数据,现在用access数据库制做了一个从中国银行网站上采集汇率的示例,感觉方便了很多。本示例的下载请点击屏幕左下角的“阅讯原文”,供大家参考!

代   码:

Sub 汇率采集()
    Dim url As String
    Dim hmlFile As Object
    Dim arr() As Variant
    Dim r As Variant
    Dim I As Integer
    Dim j As Integer
    Dim m As Integer
    Dim SQL1 As String
    Dim rst1 As New ADODB.Recordset
    CurrentDb.Execute "delete * from 中国银行汇率"
    url = "http://www.boc.cn/sourcedb/whpj"
    With CreateObject("microsoft.xmlhttp")
        .Open "GET", url, False
        .Send
        Do Until .ReadyState = 4
            DoEvents
        Loop
        Set hmlFile = CreateObject("htmlfile")
        hmlFile.body.innerhtml = .responsetext
    End With
    Set r = hmlFile.ALL.tags("table")(1).Rows
    ReDim arr(r.Length - 1, r(0).Cells.Length - 1)
    For I = 0 To UBound(arr)
        For j = 0 To UBound(arr, 2)
            arr(I, j) = r(I).Cells(j).innertext
        Next
    Next
    SQL1 = "select * from 中国银行汇率"
    rst1.Open SQL1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    On Error Resume Next
    For m = 1 To UBound(arr)
        rst1.AddNew
        rst1!货币名称 = arr(m, 0)
        If arr(m, 1) <> "" Then rst1!现汇买入价 = arr(m, 1) Else rst1!现汇买入价 = 0
        If arr(m, 2) <> "" Then rst1!现汇卖出价 = arr(m, 2) Else rst1!现汇卖出价 = 0
        rst1!现钞买入价 = arr(m, 3)
        rst1!中行折算价 = arr(m, 4)
        rst1!现钞卖出价 = arr(m, 5)
        rst1!发布日期 = arr(m, 6)
        rst1!发布时间 = arr(m, 7)
        rst1.Update
    Next
    Set hmlFile = Nothing
    Set rst1 = Nothing
End Sub

附   件:

点击下载此附件


图   示:

点击图片查看大图



Access软件网交流QQ群(群号:198465573)
 
 相关文章
从网页采集数据的示例  【zzcjp   2009/9/11】
【Access小品】一网打尽---从网页快速提取数据  【煮江品茶  2012/8/26】
从网页抓取航班信息,在本地窗体查询分析  【何必见戴  2012/9/1】
VB操作网页功能模块  【赵文斌  2014/3/23】
【Access示例】--提取网页数据和进度条的综合使用  【MDZZ  2016/12/5】
 
 访客评论
2019/4/21好大王国
有人知道这个在SQL的存储过程应该怎么写吗?

2017/12/10球哥
请教大神:如指定只采集每月1日的汇率,怎么实现呢?

2017/12/8春暖花开
好东西

2017/12/8Big Young
好东东,值得收藏。

总记录:4篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

大海

文章分类

文章存档

友情链接