Foxtable(狐表)用户栏目专家坐堂 → 应要求.自动操作网页以及获取网页数据.详细例子放出来了!(更新使用事件实现以及详细中文注译讲解)


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

主题:应要求.自动操作网页以及获取网页数据.详细例子放出来了!(更新使用事件实现以及详细中文注译讲解)

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


加好友 发短信
等级:三尾狐 帖子:781 积分:6670 威望:0 精华:0 注册:2017/8/31 12:07:00
  发帖心情 Post By:2021/11/24 15:40:00 [显示全部帖子]

学习了。

 回到顶部
帅哥哟,离线,有人找我吗?
洮沙
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:781 积分:6670 威望:0 精华:0 注册:2017/8/31 12:07:00
老师,计划打开网页,自动输入fa piao代码、fa piao号码等信息,改如何实现呢?麻烦帮忙指点一下,谢谢!  发帖心情 Post By:2022/11/9 15:27:00 [显示全部帖子]

老师,计划打开网页,自动输入fa piao代码、fa piao号码等信息,该如何实现呢?麻烦帮忙指点一下,谢谢!

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20221109102733.png
图片点击可在新窗口打开查看

Dim Proc As New Process '定义一个新的Process
Proc.File = "https://inv-veri.chinatax.gov.cn/index.html" '指定要打开的网页地址
Proc.Start()

参考例子,卡住了:

web.Document.Window.Frames(1).Document.GetElementById("fpdmjy").SetAttribute("Value", "a110110") '
web.Document.Window.Frames(1).Document.GetElementById("fpdm").SetAttribute("Value", "a110110") '
web.Document.GetElementById("fpdmjy").SetAttribute("Value", "0001628") '
web.Document.GetElementById("fpdm").SetAttribute("Value", "0001628") '

不知怎么写了?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.foxdb


[此贴子已经被作者于2022/11/9 17:28:54编辑过]

 回到顶部