ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
123
返回列表 发新帖

[已解决] VBA 获取网页多页数据 (网址不变)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2017-6-5 11:24 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
VBA万岁 发表于 2014-8-18 20:50
Sub a()
Dim IEE As Object
  Dim mM As Integer

http://club.excelhome.net/thread-1146100-1-1.html,您好,为什么下一页的数据采集不到啊,都是重复的采集第一页,是不是下一页的按钮没有单击到?还是其他的什么问题呢?

TA的精华主题

TA的得分主题

发表于 2017-10-4 10:28 | 显示全部楼层
  1. Sub 提取数据()


  2. On Error Resume Next

  3. Set ie = CreateObject("internetexplorer.application")
  4. 'ie.Visible = True
  5. ie.navigate "http://eipo.szse.cn/main/eipo/xjxx/fxrxjxx/"

  6. Do Until ie.readystate = 4
  7.         DoEvents
  8. Loop


  9. With ie.Document
  10.     For p = 1 To 21 '数据共有21页

  11.     Set tables = .getElementsByTagName("table") '得到网页中 所有的表格数组
  12.    
  13.     Set btn = .getElementsByTagName("input") '网页中所有 按钮 表格数组

  14.    
  15.          
  16.         rc = tables(4).Rows.Length '当前页中 数据表的 行数
  17.         lc = tables(4).Rows(0).Cells.Length '当前页 数据表 列数
  18.         
  19.         
  20.         For i = 0 To rc - 1 '工作表中的行
  21.         
  22.             tc = tc + 1 '累加行数
  23.             
  24.             For j = 0 To lc - 1 '工作表中的列
  25.                 v = tables(4).Rows(i).Cells(j).innertext
  26.             
  27.                 Sheets(1).Cells(tc, j + 1) = v
  28.                
  29.             Next
  30.             Sheets(1).Cells(tc, 14) = "第" & p & "页"
  31.             
  32.         Next
  33.       
  34.         
  35.         btn(6).Click '下一页按钮
  36.         tc = tc + 1 '数据页之间增加空行
  37.         
  38.         Do Until ie.readystate = 4
  39.             DoEvents
  40.         Loop

  41.     Next
  42. .Quit
  43. MsgBox "数据提取完成"
  44. End With
复制代码


TA的精华主题

TA的得分主题

发表于 2017-10-4 22:09 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
学习了,先收藏。

TA的精华主题

TA的得分主题

发表于 2018-9-3 15:57 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

Hi, 因我也有类似这样要获取多页网页数据的问题,然后我试了一下代码,可运行出现,如截图,这要怎么修改?我下载你们那的文件来运行代码的,不是复制到excel来弄的。多谢
代码出现问题.jpg
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-1-13 10:31 , Processed in 0.038117 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表