以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何应用Foxtable实现网络数据导入更新?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=37490)

--  作者:西联哥
--  发布时间:2013/7/4 22:53:00
--  [求助]如何应用Foxtable实现网络数据导入更新?

如何应用Foxtable实现网络数据导入更新?效果就像Excel连接网站数据那样的,如下面的Excel图示,Foxtable能实现同样的效果吗?

附:1、电子表格是Office2007的Excel

      2、需导入的网络数据(网址):http://zst.cjcp.com.cn/cjwssc/view/ssc_zonghe-zonghe-5-ssc-0-3-50.html

 

(图1)

图片点击可在新窗口打开查看

 

图1:在Excel的“获取外部数据——自网站”中可以定义需要查询的网址,如http://zst.cjcp.com.cn/cjwssc/view/ssc_zonghe-zonghe-5-ssc-0-3-50.html

 

 

 

(图2)

图片点击可在新窗口打开查看

 

图2:这里输入地址,转入后,在选中导入区域后直接导入有效数据。

 

 

 

(图3)

图片点击可在新窗口打开查看

 

图3:网页数据导入Excel表格的初始阶段:正在获取数据中。。。

 

 

 

(图4)

图片点击可在新窗口打开查看

 

图4:Excel表格完成网页数据导入,这样的数据就可以在其他表或其他列进行不同要求的利用了。

 

 

(图5)

图片点击可在新窗口打开查看

 

图5:而且,还可以设置连接数据的刷新频率,如图设为1分钟,即是1分钟刷新1次网站数据并更新到Excel表格中,这样的目的就是,确保文件能自动更新最新数据,以便于相关表格的统计分析。

 

至此,Excel获取并导入外部数据的基本操作就完成了,相信Foxtable在这方面绝对比Excel给力,但由于初学Foxtable,帮助也浏览几次了,就是没有找到关于这方面的帮助,因此不怕冷笑,大胆到论坛上求助,请老师们就上例,结合Foxtable给予指导,谢谢!

 

(在线等。。。)

[此贴子已经被作者于2013-7-4 22:55:28编辑过]

--  作者:西联哥
--  发布时间:2013/7/4 23:18:00
--  
难道,没有狐友可以帮帮我吗???
--  作者:西联哥
--  发布时间:2013/7/5 1:24:00
--  
以下是引用在2012-5-29 22:05:00的发言:
按照图片建一个名为"号码查询"的表,然后把以下代码放到立即窗口或者按钮中执行


图片点击可在新窗口打开查看此主题相关图片如下:表结构.jpg
图片点击可在新窗口打开查看


Dim ObjIE As Object = CreateObject("InternetExplorer.Application")
Dim Tbl As Table = Tables("号码查询")
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")
Dim RowCnt As Integer = HTMLTbl.Rows.Length
\'Tbl.StopRedraw     \'取消注释此行以提高效率
For i As Integer = 0 To RowCnt - 1
    R = Tbl.Rows.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

 

 

===================================================

 

照葫芦画瓢,使用了上面代码,出现错误提示,求解。。。

图片点击可在新窗口打开查看


--  作者:西联哥
--  发布时间:2013/7/5 1:29:00
--  

这个是在论坛上看到的——《获取网页数据》用Excel2007做的效果,求大师根据这个Excel效果帮我做一个Foxtable项目,谢谢。

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:货币牌价实时采集.xlsx


--  作者:Bin
--  发布时间:2013/7/5 8:37:00
--  
论坛上有个例子 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=19543
--  作者:西联哥
--  发布时间:2013/7/5 11:50:00
--  

我知道有这个例子,也下载了,可是我们试用版的看不了,格式不支持啊

 

 

留上 Bin老师,可以帮帮我吗

[此贴子已经被作者于2013-7-5 11:50:21编辑过]

--  作者:Bin
--  发布时间:2013/7/5 11:55:00
--  
那就参考这个 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=32808
--  作者:西联哥
--  发布时间:2013/7/5 12:02:00
--  

图片点击可在新窗口打开查看

 

Bin老师,下载打开文件后,出现这个提示,点确定可以打开文件,但不明白这里提示的是什么


--  作者:Bin
--  发布时间:2013/7/5 12:05:00
--  
重新打开
或者看看这个是否能解决你的问题 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=29816&replyID=&skin=1#
--  作者:西联哥
--  发布时间:2013/7/5 12:10:00
--  

图片点击可在新窗口打开查看

 

Bin老师介绍的例子我打开了,并修改了网址。

但是,如何实现我要从该网页上采集的数据到Foxtable表里面去?(红框部分,或全部)