Foxtable(狐表)用户栏目专家坐堂 → [求助]如何应用Foxtable实现网络数据导入更新?


  共有7216人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
西联哥
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:181 威望:0 精华:0 注册:2013/6/30 2:30:00
[求助]如何应用Foxtable实现网络数据导入更新?  发帖心情 Post By:2013/7/4 22:53:00 [显示全部帖子]

如何应用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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
西联哥
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:181 威望:0 精华:0 注册:2013/6/30 2:30:00
  发帖心情 Post By:2013/7/4 23:18:00 [显示全部帖子]

难道,没有狐友可以帮帮我吗???

 回到顶部
帅哥哟,离线,有人找我吗?
西联哥
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:181 威望:0 精华:0 注册:2013/6/30 2:30:00
  发帖心情 Post By: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

 

 

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

 

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
西联哥
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:181 威望:0 精华:0 注册:2013/6/30 2:30:00
  发帖心情 Post By:2013/7/5 1:29:00 [显示全部帖子]

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
西联哥
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:181 威望:0 精华:0 注册:2013/6/30 2:30:00
  发帖心情 Post By:2013/7/5 11:50:00 [显示全部帖子]

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

 

 

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

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

 回到顶部
帅哥哟,离线,有人找我吗?
西联哥
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:181 威望:0 精华:0 注册:2013/6/30 2:30:00
  发帖心情 Post By:2013/7/5 12:02:00 [显示全部帖子]

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
西联哥
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:181 威望:0 精华:0 注册:2013/6/30 2:30:00
  发帖心情 Post By:2013/7/5 12:10:00 [显示全部帖子]

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

 

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
西联哥
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:181 威望:0 精华:0 注册:2013/6/30 2:30:00
  发帖心情 Post By:2013/7/5 12:23:00 [显示全部帖子]

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


 回到顶部
帅哥哟,离线,有人找我吗?
西联哥
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:181 威望:0 精华:0 注册:2013/6/30 2:30:00
  发帖心情 Post By:2013/7/5 18:20:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
西联哥
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:181 威望:0 精华:0 注册:2013/6/30 2:30:00
  发帖心情 Post By:2013/7/5 19:58:00 [显示全部帖子]

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

 

 

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

 

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

 

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

[此贴子已经被作者于2013-7-5 19:59:23编辑过]

 回到顶部
总数 12 1 2 下一页