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

浏览数：68 / 时间：2015年06月09日

vb中包括text、button

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

 

我觉得不好的地方就是要数是第几个td，如果网页中有很多table，那么td的个数容易搞混。第一个td为0；

 

郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。

标签： des class style com log si it 数据 la des class style com log si it 数据 la

相关文章

随机文章

您可能还喜欢

您可能还喜欢