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

admin

问:
==========================
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事件子程序中加入这样一句试试：
[code=vbscript]
if instr(url,"http://weather.tq121.com.cn/detail.php?city=北京")=0 then exit sub
[/code]
===========================================
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

楼主，太爱你了。












www.byelu.com 办理真实毕业证

thmkx

谢谢楼主，真是太好了












移动硬盘哪个牌子好www.novel123.com

程恒碧寶

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

ABC_84

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












1.80战神复古 1.80战神复古 1.80战神合击

68mn580L

　　自从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
　　煎熬吧◆在岁月里■这个就是生活。
　　                       
　　               
　　               












影视界今日更新[爱情片]--相思成灾

侃呀侃之灵

支持一下吧！












1.76精品 1.80复古传奇  1.76复古传奇 轻变传奇 英雄合击 新开传奇sf

cncus

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












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

我也来看了，很不错，收藏了