我写的这个循环在网页上填数据的可行不?
我写的这个循环在网页上填数据的可行不?大家给一下指导
Private Sub Command1_Click()
Dim ex As Object
Dim wb As Object
Dim sh As Object
Dim Doc as object
dim i as integer
Set ex = CreateObject("Excel.Application")
Set wb = ex.Workbooks.Open("c:\1.xls")
Set sh = wb.Sheets(1)
FOR i=2 to 200
Webbrowser1.Navigate "http://192.168.1.2" '打开需要的网页
Do While WebBrowser1.IsBusy
Application.DoEvents() '等待网页完全打开
Set Doc = WebBrowser1.Document
Doc("name").click ‘点一个按钮
Do While WebBrowser1.IsBusy
Application.DoEvents() '再等待网页完全打开
Doc("work")=sh.cells(i,2)
Doc("end").click
next
ex.Visible = True
Set ex = Nothing
Set wb = Nothing
Set sh = Nothing
end sub