代码如下：可是总是实现不了，谢谢大家！

Dim WENBEN As String
Dim A As Integer

For i = 0 To 88

WebBrowser1.Navigate "http://www.126"& i

 While WebBrowser1.Busy
          DoEvents
  Wend
 WENBEN = WebBrowser1.Document.body.innerText
  Open "D:\" & i & ".text" For Output As #1
  Print #1, WENBEN
  Close #1
  Next