Foxtable(狐表)用户栏目专家坐堂 → [原创]请教一下,能批量导入xls文件到foxtab吗?


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

主题:[原创]请教一下,能批量导入xls文件到foxtab吗?

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


加好友 发短信
等级:婴狐 帖子:4 积分:91 威望:0 精华:0 注册:2012/3/19 19:39:00
[原创]请教一下,能批量导入xls文件到foxtab吗?  发帖心情 Post By:2012/3/19 19:41:00 [只看该作者]

请教一下,能批量导入xls文件到foxtab吗?

请教大虾专家


 回到顶部
帅哥,在线噢!
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/19 21:17:00 [只看该作者]

可以批量导入,看看:

 

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

 


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


加好友 发短信
等级:婴狐 帖子:4 积分:91 威望:0 精华:0 注册:2012/3/19 19:39:00
请大侠详解一下可以吗?  发帖心情 Post By:2012/3/20 8:43:00 [只看该作者]

请教大侠,我有一批xls表(近400个),数据结构完全一样,文件名为:“**省**市01县.xls,*省**市02县.xls,*省**市03县.xls,*省**市n县.xls”,路径d:\数据,请问要如何才能批量导入数据呀?

 回到顶部
帅哥,在线噢!
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/20 8:47:00 [只看该作者]

下面是一个批量合并的例子,假定目录c:\data下有多个Excel文件,需要将这些文件中的订单表合并到Foxtable的订单表中:


For Each fl As String In FileSys.GetFiles("c:\Data")
    Dim mg As New Merger
    mg.SourcePath = fl
    mg.Format = "excel" '指定格式
    mg.SourceTableName = "订单" '指定要合并的表
    mg.DataTableName = "订单" '指定接收数据的表
    mg.Merge() '开始合并
Next


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


加好友 发短信
等级:婴狐 帖子:4 积分:91 威望:0 精华:0 注册:2012/3/19 19:39:00
导入出错  发帖心情 Post By:2012/3/20 11:40:00 [只看该作者]

按照大侠的代码,一直导入失败

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


加好友 发短信
等级:婴狐 帖子:4 积分:91 威望:0 精华:0 注册:2012/3/19 19:39:00
  发帖心情 Post By:2012/3/20 11:43:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看
错误提示如上图

 回到顶部
帅哥,在线噢!
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/20 11:46:00 [只看该作者]

名称用: sheet_1$

 

加个符号$看看


 回到顶部
帅哥,在线噢!
狐狸爸爸
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/20 11:51:00 [只看该作者]

其实四楼就告诉你答案了:

 

For Each fl As String In FileSys.GetFiles("c:\1")
    Dim mg As New Merger
    mg.SourcePath = fl
    mg.Format = "excel" '指定格式
    mg.SourceTableName = "sheet_1$" '指定要合并的表
    mg.DataTableName = "表ac" '指定接收数据的表
    mg.Merge() '开始合并
Next


 回到顶部