Foxtable(狐表)用户栏目专家坐堂 → 批量导入外部表


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

主题:批量导入外部表

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/1 9:11:00 [显示全部帖子]

利用GetFiles 获得所有文件名http://www.foxtable.com/help/topics/0341.htm
遍历,然后利用Importer导入http://www.foxtable.com/help/topics/0684.htm


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/1 9:20:00 [显示全部帖子]

你使用的是外部数据源,导入后表就是外部数据源表.

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/1 9:27:00 [显示全部帖子]

没有搞懂你是什么意思, 请你整理一下文字, 描述清楚你的需求.

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/1 9:39:00 [显示全部帖子]

以下是引用女娲娘娘在2014-4-1 9:19:00的发言:
Dim lst As List(Of String)
lst = Connections("xyerp").GetTableNames
For Each nm As String In lst
    Output.Show(nm)
Next


BIN的方法好像不对。我在帮助里找到这个办法了。列出表中,下一步没想好,请给补充一下、
[此贴子已经被作者于2014-4-1 9:23:19编辑过]

看你这里的代码你的意思是合并数据到现有的表上面去是吧.
Dim lst As List(Of String)
lst = Connections("xyerp").GetTableNames
For Each nm As String In lst
Next

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/1 9:58:00 [显示全部帖子]

假如你文件名和表名一致

Dim lst As List(Of String)
lst = Connections("xyerp").GetTableNames
For Each nm As String In lst
    Dim mg As New Merger
mg.SourcePath = "C:\" & nm & ".xls"
mg
.Format = "excel" '指定格式
mg.ConnectionName = "xyerp" '指定数据源名称
mg.SourceTableName = nm
 '指定要合并的表
mg.DataTableName = nm
 '指定接收数据的表
mg.Merge() 
'开始合并
Next

 回到顶部