把网页上的表格数据读取下来，然后写入excel

啊谦

如题，感觉TC能做得到的，请各位朋友帮帮忙
网页还不可以直接进入
比如说，这个网址里面右边外汇牌价：http://www.czbank.com/

个人神话

//代码如下，因为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
两天没看，虽然我自己已经做出来了，还是采纳你了，留给后面的朋友用，自己还做了数据库的 ...

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

个人神话

感觉VIP怎么问那么简单的问题，首先https 是没办法抓包的。只能放一个浏览器控件，然后再取txt

啊谦

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

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