请问ACCESS可否直接下载数据？如有人能提供帮助，将万分感谢。

inadequate

请问ACCESS可否直接下载数据？如有人能提供帮助，将万分感谢。
http://kaijiang.zhcw.com/zhcw/html/qlc/list.html
这个网站的数据如果用EXCEL可以下载，但是如果用ACCESS直接下载存放，将比EXCEL下载，然后再存入ACCESS更好。
希望有人能够提供帮助。谢谢
这是EXCEL下载数据的程序
Sub cc()
    Dim url As String, arr() As String, rng() As String, s, i%, j%, k%, m%, n%, str As String
    [a1:b1] = [{"期号", "开奖号码"}]
    m = 0
    n = 0
    ReDim s(0 To 10000, 1)
    For k = 1 To 70
        url = "http://kaijiang.zhcw.com/zhcw/html/qlc/list_" & k & ".html"
        With CreateObject("Msxml2.XMLHTTP")
            .Open "GET", url, False
            .send
            HTML = StrConv(.responsebody, vbUnicode, &H804)
            rng = Filter(Split(HTML, "</td>"), "center")
            arr = Filter(Split(HTML, "</"), "<em")
        End With
        
        For i = 1 To UBound(rng) Step 5
            s(m, 0) = Split(rng(i), ">")(1)
            m = m + 1
        Next
        For i = 0 To UBound(arr) Step 8
            j = 0
            Do While j < 8
                str = Split(arr(i), ">")(UBound(Split(arr(i), ">")))
                j = j + 1
                If j = 8 Then s(n, 1) = s(n, 1) & "+ " & str: Exit Do
                s(n, 1) = s(n, 1) & str & " "
                i = i + 1
            Loop
            n = n + 1
            i = i - 7
        Next
    Next
    [a2].Resize(UBound(s), 2) = s
   End Sub

guojianlin1985

坐等，学习。

inadequate

有人会吗？帮帮忙哈

roych

很简单啊，其实。
把里面的一部分东西改成记录集就好了：
Sub cc()
'增加一个z变量和rst记录集。
Dim url As String, arr() As String, rng() As String, s, i%, j%, k%, m%, n%, z%, str As String
Dim rst As New ADODB.Recordset
    m = 0
    n = 0
    ReDim s(0 To 10000, 1)
    For k = 1 To 70
        url = "http://kaijiang.zhcw.com/zhcw/html/qlc/list_" & k & ".html"
        With CreateObject("Msxml2.XMLHTTP")
            .Open "GET", url, False
            .send
            HTML = StrConv(.responsebody, vbUnicode, &H804)
            rng = Filter(Split(HTML, "</td>"), "center")
            arr = Filter(Split(HTML, "</"), "<em")
        End With
        
        For i = 1 To UBound(rng) Step 5
            s(m, 0) = Split(rng(i), ">")(1)
            
            m = m + 1
        Next
        
        For i = 0 To UBound(arr) Step 8
            j = 0
            Do While j < 8
                str = Split(arr(i), ">")(UBound(Split(arr(i), ">")))
                j = j + 1
                If j = 8 Then s(n, 1) = s(n, 1) & "+ " & str: Exit Do
                s(n, 1) = s(n, 1) & str & " "
               
                i = i + 1
            Loop
            n = n + 1
            i = i - 7
        Next
        
    Next
'从这里开始改。把里面的二维数组提取出来，写入记录集。
rst.Open "test", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For z = 0 To UBound(s, 1) - 1
    rst.AddNew
    rst(1) = s(z, 0)
    rst(2) = s(z, 1)
    rst.MoveNext
Next
'关闭记录集并清空内存
rst.Close
Set rst = Nothing
   End Sub

inadequate

roych 发表于 2012-1-8 21:49
很简单啊，其实。
把里面的一部分东西改成记录集就好了：
Sub cc()

谢谢，能不能给个实例。我对ACCESS不太熟悉。如能提供帮助实例，不盛感激。
并且这里面如何从远到近的排序？

inadequate

roych 发表于 2012-1-8 21:49
很简单啊，其实。
把里面的一部分东西改成记录集就好了：
Sub cc()

兄弟，如何在这个ACCESS加上一个按钮。使运行程序时，不要进入模块中运行，只要点一下按钮就成了。谢谢

roych

把Sub ()和End Sub之外的全部代码加入按钮的单击事件中即可。或者写了模块，在单击事件中Call cc()。

inadequate

roych 发表于 2012-1-10 21:03
把Sub ()和End Sub之外的全部代码加入按钮的单击事件中即可。或者写了模块，在单击事件中Call cc()。

谢谢，如果我想得到最近一期号（即期号最大值），要怎么写代码？
我写了一个不成，能帮忙写一个吗？再次感谢
Sub cc()
Dim rst As New ADODB.Recordset
Set cnn = New ADODB.Connection

SQL = "select max(期号) from 七乐彩"
rst.Open SQL, cnn, adOpenKeyset, adLockReadOnly
MsgBox rst

rst.Close
Set rst = Nothing
End Sub

roych

按期号降序排一下不就可以了嘛？
如果不需要那么多，可以把前面的：
For k = 1 To 70
去掉（别忘了同时去掉对应的外围Next），然后修改这一句：
url = "http://kaijiang.zhcw.com/zhcw/html/qlc/list_" & k & ".html"
为：
url = "http://kaijiang.zhcw.com/zhcw/html/qlc/list_1.html"
那么将只获取第一页的数据。

inadequate

非常{:soso_e128:}谢谢
请问如何清空数据，谢谢