access 一亿条数据_巧用split处理网抓数据

↑↑↑点击上方图片，了解详情

正　文：

有网友在群里讨论，对于网页数据，excel有PQ可以直接导入网页数据，那对于access 如何处理网页数据。

论坛里有一个示例：

【Access小品】提取网页中股票数据

http://www.accessoft.com/article-show.asp?id=10505  案例里代码和操作复杂，不是太适合新手。 

尝试修改简化如下：

1."MSXML2.XMLHTTP" 模拟访问网页。

2.split  relpace 等处理数据。

3 rst记录集写入数据。

具体代码如下：

Option Compare Database
Sub 数据抽取()
    tt = Now
    Dim strText As String
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim sql As String
    sql = "select * from 行情"
    CurrentDb.Execute ("delete * from 行情")
    Set rst = CurrentDb.OpenRecordset(sql)
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", "https://www.lvdingjia.com/app/search.html?category=3&long=180", False
        .Send
        strText = .responsetext    
     End With
    strText = Split(Split(strText, "")(1), "")(0)
    arr = Split(strText, "")
    ReDim brr(1 To UBound(arr), 1 To 5)
    For i = 1 To UBound(arr)
        Z = Split(Replace(Replace(Replace(Split(arr(i),"htm"">")1), "", ""), " diff2""", ""), "", ""), "")
        rst.AddNew
        With rst            
            !日期 = Z(0)
            !最低价 = Z(1)
            !最高价 = Z(2)
            !均价 = Z(3)
            !涨跌 = Z(4)
            .Update
        End With
     Next
  MsgBox "处理完成" & vbLf & "用时" & Format(Now - tt, "hh:nn:ss")
    DoCmd.OpenTable "行情"
End Sub

 图 示 

示例下载：

点击本文末尾左下角的

End 推荐阅读 用Access分析数据  免费精品微课连载课程，真实工厂案例，每节课几分钟，零基础也可以学会。【详情>> 】   Access课程集锦  众多Access数据库课程，每一名学员，都可以找到适合自已学习的课程。【详情>> 】   Access软件作品  十二位Access学员对自已开发的软件进行了介绍并分享开发心得，一起来了解Access开发的软件。【详情>> 】   Access VBA的作用  从5个方面讲解了Access VBA的作用并举例说明，提供源码示例下载，可供借鉴。【详情>> 】   Access学习资源管理  6分钟免费微课并分享源代码，开发了一个小软件来管理学习资源。【详情>> 】   张志，Access数据库培训讲师，『Access软件网』创始人，服务过的知名企业有北京奔驰、立达(中国)纺织仪器、宜家(中国)投资等。 2003~2013年连续10年获微软最有价值专家。【详情>>】