ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > E问E答 > Excel VBA > 如何用vba代码实现网页下拉列表选择?

如何用vba代码实现网页下拉列表选择?

作者:绿色风 分类: 时间:2022-08-17 浏览:104
楼主
kevinchengcw
Q: 如何用vba代码实现网页下拉列表选择?
A: 本例以登录ET时要填写的“安全提问”为例,演示一种直接调用脚本实现网页下拉列表选择的方式。
代码如下:
  1. Sub test()
  2. With CreateObject("InternetExplorer.Application")   '创建IE项目
  3.     .Visible = True     'IE项目可见
  4.     .navigate "http://www.exceltip.net/logging.php?action=login"    '打开登录页面
  5.     DoEvents    '交换控制权,防止挂起
  6.     While .busy     '等待网页载入完成
  7.         DoEvents
  8.     Wend
  9.     With .Document  '取得对应项目并赋值
  10.         .GetElementById("username").Value = "kevinchengcw"     '用户名
  11.         .GetElementById("password").Value = "12345678"          '密码!(假的,才不会告诉你真的密码^_^)
  12.         .parentwindow.eval "loadselect_liset('questionid', 0, 'questionid','4',this.innerHTML, 4)"  '执行页面脚本,实现对应答案的选择,与实际点击不同,页面不会出现所选内容,但打开下拉列表会看到所选内容已经变成粗体,本例选择了第4项
  13.         .GetElementById("answer").Value = "成功了吧"                 '向答案框输出文本
  14.         .GetElementById("loginsubmit").Click                              '点击登录按钮
  15.     End With
  16. End With
  17. End Sub
将各项改成你的个人设置,就可以用这个小程序自动登录ET啦!
2楼
亡者天下
还有网站都有这个功能
3楼
mmice
注释都写了,多谢
4楼
水星钓鱼
学习
5楼
xk1963
照葫芦画瓢,解决了一个网站登录的问题,非常感谢!

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap