如下,自己核对一下
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate(projectpath & "临床.htm")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
'取数据
Dim Cols As new List(of String)
Dim elems As object = web.Document.GetElementsByTagName("Table")(0).GetElementsByTagName("tr")
Dim m As Integer = 0
For Each elem As object In elems
Dim i As Integer = 0
Dim tdelems As object = elem.GetElementsByTagName("td")
If m = 0 Then
For Each tdelem As object In tdelems
If tdelem.InnerText.trim > "" Then
Cols.add(tdelem.Innertext)
End If
Next
Else
If m > 1 Then '因为网页的表格有标题,如果不判断,就会增加出一个空行
Dim r As Row = Tables("临床").AddNew
i = 0
For Each tdelem As object In tdelems
If Tables("临床").Cols.Contains(Cols(i))
r(Cols(i)) = tdelem.Innertext
End If
i = i + 1
Next
End If
End If
m = m + 1
Next
Tables("临床").save