甜老师 我自己试着从另外网站获取数据 代码如下:DataTables("xync").DataRows.Clear()
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://trend.baidu.lecai.com/cqkl10/tailTrend.action?recentPhase=200&onlyBody=false&phaseOrder=up")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim elems As object = web.Document.GetElementById("chartTableWrapper").GetElementsByTagName("Table")(0).GetElementsByTagName("tr")
For i As Integer = 1 To elems.Count - 25
Dim tdelems As object = elems(i).GetElementsByTagName("td")
Dim nr As Row = Tables("xync").AddNew
For j As Integer = 0 To tdelems.count - 1
Dim str As String = tdelems(j).InnerHtml
If str.IndexOf(".jpg") > -1 Then
nr(j) = str.SubString(str.IndexOf(".jpg")-2,2)
Else
nr(j) = str
End If
Next
Next
Tables("xync").save
但要出现个
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:qq截图20141016192109.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2014-10/2014101619201448190.png)
点击确认后也能导出数据,但导出的第二列由于数字“19”“20”是红色标注的,就在表格里生成了多余的字母,如
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:1111111111.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2014-10/201410161922984933.png)
还有个问题就是能不能像网页那样不显示多余的遗漏
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:2222222222222.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2014-10/2014101619244314401.png)
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:3333333333.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2014-10/2014101619245428828.png)
项目上传
[此贴子已经被作者于2014-10-16 19:25:58编辑过]