#vb#实现获取网页标签中的值并按行存储到excel表格中

Private Sub Form_Load()
WebBrowser1.Navigate "localhost/getwebtable/"
End Sub


Private Sub Command1_Click()



 Set vDos = WebBrowser1.Document.getElementsByTagName("td")
 　　
    Text1.Text = vDos(1).innerText
     Text2.Text = vDos(3).innerText
     Text3.Text = vDos(5).innerText
     
     Dim I As Integer
    Set xlsApp = Excel.Application
    xlsApp.Visible = False
    Set xlsBook = xlsApp.Workbooks.Open("..\Desktop\most\a.xls")
    I = 1
    Do While xlsApp.Sheets(1).cells(I, 1) <> ""
             
             
             
             I = I + 1
    Loop
    xlsApp.Sheets(1).cells(I, 1) = Text1.Text
    xlsApp.Sheets(1).cells(I, 2) = Text2.Text
    xlsApp.Sheets(1).cells(I, 3) = Text3.Text
    xlsBook.Close (True)
    xlsApp.Quit
    Set xlsApp = Nothing
    MsgBox "数据写入成功！"
End Sub