Foxtable(狐表)用户栏目专家坐堂 → 再次求助获取网页数据


  共有1264人关注过本帖树形打印复制链接

主题:再次求助获取网页数据

帅哥哟,离线,有人找我吗?
W1234
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:41 积分:344 威望:0 精华:0 注册:2017/8/7 9:15:00
再次求助获取网页数据  发帖心情 Post By:2017/10/13 23:51:00 [只看该作者]

我将参考的代码按我的理解改了一下,如下:


Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://hb.122.gov.cn/views/examappointpub.html")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop



'取数据
Dim Cols() As String = { "序号","考试日期","考试场地","考试场次","普通预约计划","优先预约计划","操作" }


Dim elems As object = web.Document.GetElementById("list_elem").GetElementsByTagName("tr")
Dim m As Integer = 0
For Each elem As object In elems
    Dim i As Integer = -1
   
    m = m + 1
    If m > 1 Then  '因为网页的表格有标题,如果不判断,就会增加出一个空行
        Tables("考试预约计划表").AddNew
    End If
   
    Dim tdelems As object =  elem.GetElementsByTagName("td")
    For Each tdelem As object In tdelems
        i = i + 1
        Tables("考试预约计划表").Current(Cols(i)) = tdelem.Innertext
        
         
    Next
Next


 


 


不能实现导出网页https://hb.122.gov.cn/views/examappointpub.html的数据,再请版主指点一下,谢谢


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/10/14 8:46:00 [只看该作者]

请不要重复发帖

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=107975

 回到顶部