新手求助！vb读取一个网页上姓名等信息 然后填写到Excel中并打印

网页在 VB 的 WebBrowse 控件中打开即可获取网页中文本框的信息。也就是说，要自制一个建议的网页浏览器——

Private Sub Timer1_Timer()
On Error Resume Next
If 【开始】.Caption = "&B．开 始" Then
日期时间.Caption = ""
Else
日期时间.Caption = Now
End If
截获数据.Text = WebBrowser1.Document.getelementbyid(Trim(文本框名.Text)).Value
End Sub
Private Sub 【刷新】_Click() '　载入网页
Dim cTS$, cURL$, cWZ$
cWZ = Chr(72) & Chr(116) & Chr(116) & Chr(112)
cWZ = cWZ & Chr(58) & Chr(63) & Chr(63)
cTS = Trim(网页地址.Text)
If UCase(Mid$(cTS, 1, 7)) = cWZ Then
cURL = cTS
Else
cURL = mPath & cTS
End If
WebBrowser1.Navigate cURL
End Sub
'　获得网页代码，以便找到文本框在网页中的名称
Private Sub 【代码】_Click()
On Error Resume Next
Dim nF1%, cTS$, cWJ$
nF1 = FreeFile '　获得空闲的通道号
cTS = WebBrowser1.Document.documentElement.outerHTML
cWJ = mPath & "网页代码.TXT"
Open cWJ For Output As nF1
Print #nF1, cTS
Close nF1
cTS = "C:\Windows\Notepad.EXE" & Chr(32)
cTS = cTS & cWJ
Shell cTS, 1
End Sub