Dim vDoc Dim j as integer If WebBrowser1.ReadyState = READYSTATE_COMPLETE Then Set vDoc = WebBrowser1.Document.getElementsByTagName("a") vCount = vDoc.Length End If
For j = 0 To vCount If vDoc(j).innerText = xlSheet.Cells(i, 2).Value Then vDoc(j).Click Exit For End If next j
编译到If vDoc(j).innerText = xlSheet.Cells(i, 2).Value Then 老出错，说是对象变量或 With 块变量没有设置（错误 91）。。。怎么以前可以，哪里出错啦？？？For j = 0 To vCount-1 上面的真快。。。 呵呵，我知道怎么回事了。。。是网页还没加载过来。。。呵呵。。。分就分给你俩吧
