VBA网页提取数据相关，求修改指点，更新速度太慢

chulia520

用下面的代码提取速度太慢了，而且我只需要提取页面部分内容！求大神修改下，怎么样更新速度快，
或是有别的什么好方法提取？
Sub 提取行情报价() '
Dim html  As Object
Dim tb, dmt, k%, j%
On Error Resume Next
Sheet1.Range("A:AP").ClearContents
Set html = CreateObject("HTMLFILE")
    With CreateObject("WinHttp.WinHttprequest.5.1")
    .Open "get", "https://5665151.com/lotteryV2/resultList.do?lotCode=FFC&startDate=2020-01-28", False '网址
    .Send
    html.body.innerHTML = .responseText
    Set tb = html.All.tags("table")(0).Rows
     For k = 0 To tb.Length - 1 '行
         For j = 0 To tb(k).Cells.Length - 1 '列数
             Cells(k + 1, j + 1) = tb(k).Cells(j).innerText '！！！
         Next j
     Next k
    End With
    Set html = Nothing
    Set tb = Nothing
End Sub

chulia520

用下面的代码提取速度太慢了，而且我只需要提取页面部分内容！求大神修改下，怎么样更新速度快，
或是有别的什么好方法提取？
Sub 提取行情报价() '
Dim html  As Object
Dim tb, dmt, k%, j%
On Error Resume Next
Sheet1.Range("A:AP").ClearContents
Set html = CreateObject("HTMLFILE")
    With CreateObject("WinHttp.WinHttprequest.5.1")
    .Open "get", "https://5665151.com/lotteryV2/resultList.do?lotCode=FFC&startDate=2020-01-28", False '网址
    .Send
    html.body.innerHTML = .responseText
    Set tb = html.All.tags("table")(0).Rows
     For k = 0 To tb.Length - 1 '行
         For j = 0 To tb(k).Cells.Length - 1 '列数
             Cells(k + 1, j + 1) = tb(k).Cells(j).innerText '！！！
         Next j
     Next k
    End With
    Set html = Nothing
    Set tb = Nothing
End Sub

YZC51

chulia520 发表于 2020-1-28 21:28
用下面的代码提取速度太慢了，而且我只需要提取页面部分内容！求大神修改下，怎么样更新速度快，
或是有别 ...

需要提取那部分内容？

chulia520

YZC51 发表于 2020-1-28 21:38
需要提取那部分内容？

附件里有说明！前两列数据！

YZC51

chulia520 发表于 2020-1-28 21:40
附件里有说明！前两列数据！

自动化错误！不能提取数据

chulia520

YZC51 发表于 2020-1-28 21:55
自动化错误！不能提取数据

多运行一次，我这边可以。可能是网络问题！

Kaohsing

1.网页返回数据需要大约10秒左右。
2.数据大约有1400条
3.写入表格大约 17秒