导入判断 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导入判断

共有7382人关注过本帖树形打印复制链接主题：导入判断

don

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：八尾狐帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2013/2/27 16:04:00 [显示全部帖子]

用Merger即可:

Dim Bm,flt As String

flt = DataTables("物料基础信息表").GetComboListString("物料编号","","物料编号")

flt = "物料编号 In ('" & flt.Replace("|","','") & "')" '物料编号存在于物料基础信息表的

Bm = "要合并Excel的表名" & "$"

Dim mg As New Merger

mg.SourcePath = "D:\Text.xls"

mg.Format = "excel" '指定格式

mg.SourceTableName = Bm '指定要合并的表

mg.DataTableName = "产成品入库汇总表" '指定接收数据的表

mg.Filter = flt '指定合并条件

mg.Merge() '开始合

[此贴子已经被作者于2013-2-27 16:06:52编辑过]

don

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：八尾狐帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2013/2/27 16:37:00 [显示全部帖子]

帮助中有,在帮助文件中搜索[ 常用对话框 ]

don

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：八尾狐帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2013/2/27 17:18:00 [显示全部帖子]

参考10楼

主题：导入判断