请帮忙修改一下自动导入网页部分数据的代码（赠送财富值2000）

winland

原帖由 ldy 于 2009-6-13 18:40 发表


h t t p://quote.tool.hexun.com/hqzx/quote.aspx?type=2&market=0&sorttype=3&updown=up&page=1&count=2000

这个网址太好了，但这个网址是如何取得的？请教一下有什么诀窍？

安装FireFox，然后装上HttpFox或者Live Http Headers插件，可以记录这些额外访问的网址，例如，可以获得视频网站视频的直接路径。

ldy

非常感谢，下载个试试。

itxianfeng

版主还在，刚才下班了，在快下班的时候，发现版主最后那个完整的版本，速度很慢，所以还没有看到结果，是不是因为那个股票代码的调用很麻烦造成的。

[ 本帖最后由 itxianfeng 于 2009-6-13 21:43 编辑 ]

winland

原帖由 itxianfeng 于 2009-6-13 21:38 发表
版主还在，刚才下班了，在快下班的时候，发现版主最后那个完整的版本，速度很慢，所以还没有看到结果，是不是因为那个股票代码的调用很麻烦造成的。

下载的数据大小在137KB左右，我这里的调试结果是下载数据大概1.5秒，填充数据大概1.5秒，跟升降符号和加颜色有一点点关系。

itxianfeng

现在看不慢了，可能在单位没有操作好（在单位，我删除了几行，一直没有反应，之后就下班了），在家里重新试验没有删除行，速度挺快。

itxianfeng

winland 版主，我已经申请发放红包了，费了很大的劲才搞定，申请程序太复杂了，正在等待管理员审批，因为我已经承诺要感谢帮助我的人，请您有空一定查看一下吧。
你写的程序比我上传的附件中的代码简练很多，也比较通俗易懂，我自己修改起来也很方便，在此向您学习了，以后少不了打扰您了。

[ 本帖最后由 itxianfeng 于 2009-6-13 22:56 编辑 ]

itxianfeng

原帖由 TY1011 于 2009-6-14 08:50 发表
版主你好，那个时间怎么不能显示在下载的表格中尼，要是时间能显示最好

我也需要时间，添加一行语句即可，添加位置自己找 提示：按照后面的相同代码位置寻找，在之前添加
           Cells(i + 3, 17) = Now
         
            Next i
        Else
            MsgBox "下载网页数据失败"

[ 本帖最后由 itxianfeng 于 2009-6-14 09:35 编辑 ]

TY1011

版主你好，那个时间怎么不能显示在下载的表格中尼，要是时间能显示最好

itxianfeng

忘记说明，那个17是指的第17列输入时间，不知道你指的是那一个表，填在第几列，自己改改吧

huailian1216

看看，初学者