Question

用vba下载网页数据，网址如下：

http://www.wanlicai.com/sd11y/index.shtml
下载如下图所示部分并实时更新，最好能修改更新时间间隔。

下载的数据可以放在变量、数组、单元格区域或剪贴板都行。

Answer 1

VBE--工具--引用  microsoft internet controls
Sub 获取网页信息1()
Dim vDoc, vTag, coll
     Dim i As Integer
     Dim j As Integer
     Dim ie As New InternetExplorer
'     Set ie = CreateObject("InternetExplorer.Application")
     ie.Navigate "http://www.wanlicai.com/sd11y/index.shtml"
     ie.Visible = True
     Do Until ie.ReadyState = READYSTATE_COMPLETE '如果IE加载宏完成
   DoEvents '在窗体加载时转交操作权
   Loop
  Application.Wait (Now + TimeValue("0:00:03")) '等待3秒，防止网速有延迟
     Set vDoc = ie.Document
     Dim mstrcell As String
     Set coll = vDoc.All("historyTable")
     For i = 0 To coll.Rows.Length - 1
         For j = 0 To coll.Rows(i).Cells.Length - 1
             mstrcell = mstrcell & Space(4) & coll.Rows(i).Cells(j).innertext
             Cells(i + 1, j + 1) = coll.Rows(i).Cells(j).innertext
         Next j
         Debug.Print mstrcell
         mstrcell = ""
     Next i
     ie.Quit
     Set ie = Nothing
     Set vDoc = Nothing
     Set coll = Nothing
End Sub

追问

我这里可以实现看得见就能够下载数据，关键是要求按设定时间间隔更新的，不能用重新打开网页的方法更新。

追答

可以用在最后面加一句 Application.OnTime Now + TimeValue("00:01:30"), "获取网页信息1"
让程序间隔 1分30秒 就运行一次
如果间隔比较长 ，也不是非常占用电脑资源 ，这种方法也是可以考虑的

追问

我觉得只要是用浏览器打开网页取数据的方法都不会优于全选复制到剪贴板再处理数据，一般得到的数据很容易处理，并且不需要工作表辅助处理，如下图所示：

纯文本格式无代码标签，无需正则表达式等复杂处理。

当然，还是要多谢你的关注和帮助。

Answer 2

VBA可以读取WebService数据，如果不是则不行