Dim ObjIE As Object = CreateObject("InternetExplorer.Application")
Dim Tbl As Table = Tables("表A")
Dim R As Row
'Tbl.DataTable.DataRows.Clear
StatusBar.Message1 = "正在前往网页..."
ObjIE.Navigate("http://www.knfilters.com/search/applications.aspx?prod=69-9756TFK")
Do Until ObjIE.ReadyState = 4
Application.Doevents
Loop
Dim Dom As Object = ObjIE.Document
Dim HTMLTbl As Object = Dom.ALL.tags("cph_dl_apps")
If HTMLTbl IsNot dbnull.value Then
Dim RowCnt As Integer = HTMLTbl.Rows.Length
'Tbl.StopRedraw '取消注释此行以提高效率
For i As Integer = 0 To RowCnt - 1
R = Tbl.AddNew
R("第一列") = HTMLTbl.Rows(i).Cells(0).InnerText
R("第二列") = HTMLTbl.Rows(i).Cells(1).InnerText
R("第三列") = HTMLTbl.Rows(i).Cells(2).InnerText
StatusBar.Message1 = "正在获取第 " & i + 1 & "/" & RowCnt & "行数据..."
Next
'Tbl.ResumeRedraw '取消注释此行以提高效率
StatusBar.Message1 = "数据获取完成..."
ObjIE.Quit
Msgbox("OK")
StatusBar.Reset
Else
StatusBar.Message1 = "获取数据失败"
End If
原始网页是这个http://www.knfilters.com/search/applications.aspx?prod=69-9756TFK
想要读取数据放到表A
看了不少关于DOM方面的资料，还是没搞懂
麻烦帮忙看一下
这里面DOM应该怎么写？
谢谢
加好友 
发短信
Post By：2014/10/20 21:09:00 [显示全部帖子]
