TC官方合作论坛

标题: 把网页上的表格数据读取下来，然后写入excel [打印本页]

作者: 啊谦 时间: 2015-10-21 09:44
标题: 把网页上的表格数据读取下来，然后写入excel
如题，感觉TC能做得到的，请各位朋友帮帮忙
网页还不可以直接进入
比如说，这个网址里面右边外汇牌价：http://www.czbank.com/

作者: 个人神话 时间: 2015-10-24 22:30
感觉VIP怎么问那么简单的问题，首先https 是没办法抓包的。只能放一个浏览器控件，然后再取txt

作者: 个人神话 时间: 2015-10-26 04:39
本帖最后由个人神话于 2015-10-26 04:40 编辑

//代码如下，因为Excel不能在线程操作，所以我做了2个按钮一个访问网页，打开网页成功后，再写入Excel
//帖子不能显示链接，我用****代替

功能按钮0_点击()
线程开启("打开浏览器","")
结束
功能打开浏览器()
网页跳转("浏览器0","****")
循环(真)
      如果(网页加载("浏览器0"))
         跳出
      结束
结束
调试输出("加载完毕")
变量元素点击返回=网页元素点击("浏览器0","tag:SPAN&index:10&frame:0")
循环(真)
      如果(网页加载("浏览器0"))
         跳出
      结束
结束

结束
功能按钮1_点击()
变量采集数组=数组()
变量 Excel写入数组=数组()
变量 b=1
变量 a=0
遍历(变量 i=0; i < 50; i++)
      数组追加元素(采集数组,网页元素获取("浏览器0","text","tag:TD&index:"&i),"第"&b&"行")
      b=b+1
      如果(b>5)
         Excel写入数组["row"&a]=采集数组
         b=b-5
         a=a+1
         采集数组=数组()
      结束
结束
变量写入返回=excel写(浏览框获取文本("浏览框0"), Excel写入数组, "TC表格")
如果(写入返回==真)
      消息框("写入成功","提示")
否则
      消息框("写入失败","提示")
结束
结束

作者: 啊谦 时间: 2015-10-26 13:11

个人神话发表于 2015-10-26 04:39
//代码如下，因为Excel不能在线程操作，所以我做了2个按钮一个访问网页，打开网页成功后，再写入Excel
//帖 ...

两天没看，虽然我自己已经做出来了，还是采纳你了，留给后面的朋友用，自己还做了数据库的

作者: 个人神话 时间: 2015-10-26 15:29

啊谦发表于 2015-10-26 13:11
两天没看，虽然我自己已经做出来了，还是采纳你了，留给后面的朋友用，自己还做了数据库的 ...

好的，还是数据库的好一点

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)