[已解决]再次求助飞翔版主！

cxzfy12758 · 发表于 2011-9-7 18:52

本帖最后由 cxzfy12758 于 2011-9-7 18:52 编辑

版主帮忙做的网页数据提取，测试后，其他轮次怎么无法下载！出错位置
Set r = objDmt.getElementsByTagName("table")(4).Rows
是不是要引用什么对象？
谢谢！

最佳答案

月排行榜 / 总排行榜

开辆小富康

2011-9-10 08:36

在错误行的上一行，你获取原网址时出错了。
正确的代码应该是引用原来的网址，例如这一个就能获取正确结果：
Set objDmt = GetDocument("http://www.okooo.com/match/1/181592/odds/")
利用你的M或N列的代码应该是：
Set objDmt = GetDocument(Replace(Range("g" & Tg.Row).Offset(0, Tg.Column).Value, "about:", "http://www.okooo.com"))

跳转到最佳答案楼层

吕?布 · 发表于 2011-9-8 08:17

我这里没有出错啊

cxzfy12758 · 发表于 2011-9-8 09:51

回复吕?布的帖子

是不是要引用什么对象？

吕?布 · 发表于 2011-9-8 12:25

是有一些引用，看一下你的 QQ截图未命名.png

cxzfy12758 · 发表于 2011-9-8 13:40

回复吕?布的帖子

引用了该对象还是不能用。

cxzfy12758 · 发表于 2011-9-8 21:57

在另一台电脑上可以用。不知道是什么原因。

开辆小富康 · 发表于 2011-9-10 08:36

在错误行的上一行，你获取原网址时出错了。
正确的代码应该是引用原来的网址，例如这一个就能获取正确结果：
Set objDmt = GetDocument("http://www.okooo.com/match/1/181592/odds/")
利用你的M或N列的代码应该是：
Set objDmt = GetDocument(Replace(Range("g" & Tg.Row).Offset(0, Tg.Column).Value, "about:", "http://www.okooo.com"))

cxzfy12758 · 发表于 2011-9-12 19:29

回复开辆小富康的帖子

谢谢老师热情帮助。飞翔老师已经帮忙解决了。祝中秋快乐！！！

		自动登录	找回密码
密码			注册