主题：[求助]如何应用Foxtable实现网络数据导入更新？

参考我里面的代码你自然就知道如何做了.

嗯，正在对照帮助做笔记中。。。。。。谢谢Bin老师

老大，你那个是开发版的

求大师解题，怎么Foxtable就做到不Excel简单的动作吗？有没有高手帮我做这一个获取网页数据到Foxtable表的文件（不要开发版）？？？？？？

其实你自己都写好了啊：

 

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://video.shishicai.cn/haoma/cqssc/list/120.aspx")
Do Until ObjIE.ReadyState = 4
    Application.Doevents
Loop
Dim Dom As Object = ObjIE.Document
Dim HTMLTbl As Object = Dom.GetElementById("bonusNumberData")
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

谢谢老大关注，直接使用您这段代码，问题依旧没有得到解决

 

 

 

始终出现这个错误提示，也看不懂什么意思，

 

再者，就是，没有真正把网页数据导入到Foxtable表的单元格里面

我也不懂这个，你用这个这个方法分析一下，看看代码问题出在哪一行：

 

http://www.foxtable.com/help/topics/1485.htm

 

谢谢17楼的“有点甜”，您的指点给我莫大帮助，谢谢您

那么到底是怎么回事呢？