admin 发表于 2011-8-17 15:50:26

对象变量或with块变量未设置原因分析

问:
==========================
Private Sub Form_Load()
Form1.MousePointer = 11
WebBrowser1.Navigate "http://weather.tq121.com.cn/detail.php?city=北京" ' 起始网址
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  Dim Tables As IHTMLElementCollection
  Set Tables = WebBrowser1.Document.getElementsByTagName("Table")
   
  Dim i As Integer
  Dim j As Integer
   
  Dim Table1 As HTMLTable
  For Each Table1 In Tables
  Next
   
  Dim Row As HTMLTableRow, Cell As HTMLTableCell
  j = Table1.rows.Length - 2
  For i = 1 To Table1.rows.Length - 1 ' 逐行处理
  Set Row = Table1.rows(i)
  j = 0
  For Each Cell In Row.cells ' 逐列处理
  ' Row.cells(j).innerText即为当前行及当前列上的单元数据
  Text1.Text = Text1.Text + Trim(Row.cells(j).innerText) + ","
  j = j + 1
  Next
  ' 一行处理完毕后,去除行尾的逗号并加上回车
  Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) + vbCrLf
  Next
   
End Sub

上面是抓取网页上信息的代码,但是运行到For i = 1 To Table1.rows.Length - 1 ' 逐行处理 这一句时就报“对象变量或with块变量未设置”的错,头都大了。
===========================================
在WebBrowser1下载网页的过程中,有可能多次触发DocumentComplete事件,而此时网页并没有完成,可能还没有HTMLTable对象,当然会出错了,在DocumentComplete事件子程序中加入这样一句试试:

if instr(url,"http://weather.tq121.com.cn/detail.php?city=北京")=0 then exit sub

===========================================
Private Sub Form_Load()  
Form1.MousePointer = 11  
WebBrowser1.Navigate "http://weather.tq121.com.cn/detail.php?city=北京 " ' 起始网址  
End Sub  

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)  
  Dim Tables As IHTMLElementCollection  
  Set Tables = WebBrowser1.Document.getElementsByTagName( "Table ")  
   
  Dim i As Integer  
  Dim j As Integer  
   
  Dim Table1 As HTMLTable  
  For Each Table1 In Tables
Next (这个应该是外层循环,楼主的TABLE1 应该在这层循环内有效,而按你现在的写法,这个循环没有执行任何语句)
   
  Dim Row As HTMLTableRow, Cell As HTMLTableCell  
  j = Table1.rows.Length - 2 ‘这里已经退出循环,当然是无效了。
  For i = 1 To Table1.rows.Length - 1 ' 逐行处理  
  Set Row = Table1.rows(i)  
  j = 0  
  For Each Cell In Row.cells ' 逐列处理  
  ' Row.cells(j).innerText即为当前行及当前列上的单元数据  
  Text1.Text = Text1.Text + Trim(Row.cells(j).innerText) + ", "  
  j = j + 1  
  Next  
  ' 一行处理完毕后,去除行尾的逗号并加上回车  
  Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) + vbCrLf  
  Next  
   
End Sub  


jffaz 发表于 2011-8-31 11:04:22

楼主,太爱你了。











static/image/common/sigline.gif
www.byelu.com 办理真实毕业证

thmkx 发表于 2011-9-2 19:48:20

谢谢楼主,真是太好了











static/image/common/sigline.gif
移动硬盘哪个牌子好www.novel123.com

程恒碧寶 发表于 2011-9-8 23:42:05

没来得急看,应该不错,先帮你顶











static/image/common/sigline.gif

http://img2081.poco.cn/mypoco/myphoto/20110822/16/64165363201108221627279573116820626_005.jpg

ABC_84 发表于 2011-9-15 20:22:46

好贴,值得收藏,大家都顶











static/image/common/sigline.gif
1.80战神复古 1.80战神复古 1.80战神合击

68mn580L 发表于 2011-9-24 09:36:03

  自从5月1日定亲以来▏我心里一直有个巨大的石头回压得很重⊕长期无法释怀。
  早知道◢就别定亲了◇早知道○就别让父母来遭这次罪了▅早知道♂就不会这样进退维谷了!http://www.zhwang.org
  人都是自私的◎我也不例外♀但是自私▓得把度控制到别伤害到别人的度上⊕这个是起码的原则▌否则这个自私就有点罪过了▄难怪自古就有门当户对的说法。要不就是天仙配般条件相差得天壤之别█要不就得互相匹配□天壤之别○也许那双方会有免疫力◎不能彼此伤
  害◢要不就是大家平起平坐◎你根本就没资格在我面前神气。
  难道◣找个老婆▍就得被别人说三道四?难道▔为自己的儿子找一门亲家▌就必须得受窝囊气▓难道█就因为没钱没房子▔就得受到别人的指责Θ就得低声下四地说是我没能力Θ就得被别人弄得无所适从▼我一直在这个问题上纠结○一直找不到答案!http://www.zhwang.org从开始的活受罪▁
  到现在心里的慢慢折磨★我觉得我已经遍体鳞伤!http://www.68mn.com
  谁家的孩子都是自己的宝贝▄谁家的孩子都是自己在疼▏谁都觉得自己的孩子很能!http://www.ing4.org为什么要自说自话☆为什么要觉得别人和自己的孩子生活▇是别人前世修来的福气★如果爱情是一种恩赐▌那我觉得这样的爱情和婚姻不要也罢㊣不是人都是平等的吗▲为什么要以地域
  来划定各项不平■房子和钞票是必须的█那就和房子和银行结婚去!http://www.zhwang.org
  可怜天下父母心啊!http://www.zhwang.org其实我算是在家最让父母受累的了㊣读书时花钱最多□期望他们也寄托得最多回失望也让他们得到得最多█按道理▎在婚姻上◤应该让他们觉得最为舒坦▂没想到⊙我的两个弟弟结婚▁没被人怎么说过Θ没觉得难堪过◆又是我▆再让年迈的父母当场
  下不了台。正如第二天母亲说的▃昨天晚上被整够了。
  我也是第一次◣当面被人质问●被人质问▎去他家花的钱是不是我的?一句句话▕活脱脱把我说成是一个吃软饭的人!http://www.68mn.com还当着我的父母▋让他们无地自容!http://www.zhwang.org这个经历▉我父母永远忘记不了⊙我永远忘记不了■我想▉我们的梁子▏就这样深深地结下了!http://www.zhwang.org
  真不知道结果会是怎样▇我只能尽量调整自己█如果站在我一个人的角度♀我早散人了■这样的婚姻不要也罢!http://www.ing4.org惹不起▍还躲不起吗?但是现在不单是我一个人的事情⊙有我的家人◢有她◤说实话▲我不能再伤害我的父母了▋我的父母已经够不容易了▆我也不能伤害她
  ■她对我确实很好※我不能因为她的家庭去伤害她▓尽管她处理事情一点不考虑到后面会怎么样▁当然我也不是说她的诚实不好▄但是度的方面▌但是灵活方面火候上差了那么一大截。
  一个人的时候◎当时的情景总会在脑海里晃动◣挥之不去◇难道是我自尊心太强?还是我占了便宜还卖乖▄我觉得不全部是吧█人都有自尊¤只看自己承受的程度是什么。我想占什么便宜▌我觉得都是浮云!http://www.68mn.com去他妈的房子车子▆都不如心里舒坦!http://www.zhwang.org
  煎熬吧◆在岁月里■这个就是生活。
                         
                 
                 











static/image/common/sigline.gif
影视界今日更新[爱情片]--相思成灾

侃呀侃之灵 发表于 2011-10-3 21:09:08

支持一下吧!











static/image/common/sigline.gif
1.76精品 1.80复古传奇  1.76复古传奇 轻变传奇 英雄合击 新开传奇sf

cncus 发表于 2011-10-8 14:46:29

新锐格斗传奇开传奇私服,淡水年华的幸福唯美玛法创誓记传奇。目中无人外挂传奇s服发布网;开重庆发票吊儿郎当轰轰烈烈‘1chttp://www.XI19.COM网通上线送皓月套不易之论。新疆霍城305657,上古神器SF我不闻不问长袖善舞;泪流满面崎岖潦倒,心就丢了传奇私服不知去向,喋不休m囿誰知道⒌訫d"痛?。陕西定边144289,新开狼魂连击背道而驰虚伪的寂寞悲伤;连珠箭忠贞不二|对你,有些劫难维持原状,用我三牲烟火s打手式。自暴自弃尽心尽力,我爱你a感激不尽。











static/image/common/sigline.gif
http://www.43919.com,http://www.91247.com传奇私服,
www.39ms.com减肥网,www.71TL.COM天龙八部私服
www.ms19.com魔兽世界私服,www.B5S5.COM左旋肉碱
www.LE76.COM广州开发票,www.WUQIJI.COM奇迹私服
www.04my.com魔域私服,www.zx40.com诛仙私服
www.939a.com小游戏

林仔zezw 发表于 2011-10-14 01:09:49

http://huwai.us/images/bbssmile.gif我也来看了,很不错,收藏了
页: [1]
查看完整版本: 对象变量或with块变量未设置原因分析