对象变量 或with块未设置

[wyj518]

对象变量 或with块未设置 ,什么原因啊，说代码错误所在行是
Dim email As Integer
email = WebBrowser1.Document.body.innertext 说这行有错误 如何改正啊 ，在关闭窗口是提示这个错误。有时候运行还正常

[Tiger_Zhao]

网页没打开或已经关闭，WebBrowser1.Document 为 Nothing。

[chinaboyzyq]

Private Sub Command1_Click()
  Dim email As String
  WebBrowser1.Navigate "http://www.baidu.com"
  Do While WebBrowser1.Busy
     DoEvents
  Loop
  email = WebBrowser1.Document.body.innertext
  MsgBox email

End Sub

[wyj518]

[Quote=引用 1 楼 tiger_zhao 的回复:]
网页没打开或已经关闭，WebBrowser1.Document 为 Nothing。
[/Quote]
具体如何解决呢