[已解决]怎么提取网页所有数据

LMY123

1. Sub text()
   
2. On Error Resume Next
   
3. Cells.Clear
   
4. Columns("D:D").NumberFormatLocal = "@"
   
5. Dim n, m
   
6. With CreateObject("internetexplorer.application")
   
7. .Visible = True
   
8. .Navigate "http://www.bjjs.gov.cn/tabid/2041/Default.aspx"
   
9. While .ReadyState <> 4 Or .Busy
   
10. DoEvents
    
11. Wend
    
12. Set r = .Document.All.tags("table")(7).Rows
    
13. m = Range("a65536").End(xlUp).Row
    
14. For i = 0 To r.Length - 1
    
15. For j = 0 To r(i).Cells.Length - 1
    
16. Cells(i + m, j + 1) = r(i).Cells(j).innerText
    
17. Next j
    
18. Next i
    
19. End With
    
20. Cells.Columns.AutoFit
    
21. End Sub

复制代码

网页数据提取.rar (13.48 KB, 下载次数: 207)

2016-10-21 20:13 上传

点击文件名下载附件

我是来讨说法的

这样的网页要用POST方法提交获取其他页面的信息

ammyc

请参考（已更新）： 网页数据提取20161023.rar (22.41 KB, 下载次数: 282)

2016-10-23 10:24 上传

点击文件名下载附件

LMY123

ammyc 发表于 2016-10-23 10:19
请参考（已更新）：

非常感谢大师的帮助,效果非常好,不知能否进一步实现,我选中右侧的试验员,点击右下方的搜索按钮,把左侧搜索到的试验员数据写入EXCEL表中

ammyc

LMY123 发表于 2016-10-23 10:48
非常感谢大师的帮助,效果非常好,不知能否进一步实现,我选中右侧的试验员,点击右下方的搜索按钮,把左侧搜 ...

网页数据提取20161023-2.rar (19.04 KB, 下载次数: 311)

2016-10-23 11:19 上传

点击文件名下载附件

LMY123

非常感谢大师的再次帮助,效果非常好,能否最后实现,我选中右侧上方的工作单位:,输入北京住总,点击右下方的搜索按钮,把左侧搜索到的北京住总数据写入EXCEL表中

ammyc

LMY123 发表于 2016-10-23 11:42
非常感谢大师的再次帮助,效果非常好,能否最后实现,我选中右侧上方的工作单位:,输入北京住总,点击右下方的搜 ...

可用“网页抓取小工具“找到对应的元素代码，组合一下就行了。

wangez

学习！

arecluse

下来学习一下怎么用