对象变量或 with块变量未设置

[fuweiw]

第一次执行 timer1.timerd的时候不出错 第二次eventIE_NavigateComplete Call Timer1_Timer 到 wangye = doc.body.innerHtml 这句的时候就出错 对象变量或 with块变量未设置 求教


Option Explicit


Dim dWinFolder As New ShellWindows
Dim WithEvents eventIE As WebBrowser_V1

Private Sub eventIE_NavigateComplete(ByVal URL As String)
Text1.Text = Text1.Text + Chr(13) + Chr(10) + URL
Timer1.Enabled = True
Call Timer1_Timer
End Sub

Private Sub Timer1_Timer()
Dim objIE As Object
Dim doc As Object
Dim wangye As String

' On Error Resume Next

For Each objIE In dWinFolder
If InStr(objIE.Document.Title, "xxx公司") <> 0 And objIE.ReadyState = READYSTATE_COMPLETE Then
Set eventIE = objIE
Set doc = objIE.Document

Print objIE.Document.Title
wangye = ""
wangye = doc.body.innerHtml ' 第一次执行 timer1.timerd的时候不出错 第二次eventIE_NavigateComplete Call Timer1_Timer 到这句的时候就出错 对象变量或 with块变量未设置 求教
Text2.Text = ""
Text2.Text = wangye
Timer1.Enabled = False
Exit For
End If
Next
End Sub

[clear_zero]

检查Set doc = objIE.Document

[上善若水而不争]

在timer过程最后加一条set doc=nothing清掉变量试下，应该就行了

[fuweiw]

多谢楼上的各位，

意义试过了，还是一样。。。

继续求解！！1

[shawls]

标定对象

这样可以

[东方之珠]

wangye=""
wangye=Cstr(doc.body.innerHtml)

[东方之珠]

还有：没有下面这种用法，去掉后一句，有了Timer1.Enabled=True，Timer事件会自动定时执行。
Timer1.Enabled=True
Call Timer1_Timer

[knowledge_Is_Life]

不会,帮顶

[meiZiNick]

好像没那么简单,呵呵.