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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求导入合并数据代码

共有22074人关注过本帖树形打印复制链接主题：求导入合并数据代码

exonjee

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

加好友

发短信

等级：小狐帖子：352 积分：3192 威望：0 精华：0 注册：2008/9/1 9:38:00

求导入合并数据代码 发帖心情

Post By：2009/6/5 13:01:00 [显示全部帖子]

1、删除当前表的所有行代码如何写
2、Merger合并文件时不能正确导入数据上，编写代码如下：附原始文件

Dim dlg As New OpenFileDialog '定一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.csv" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
   FileSys.CopyFile(dlg.filename, "C:\kk.txt",True)
   Dim mg As New Merger
   mg.SourcePath = "c:\" '指定数据文件所在目录
   mg.Format = "Delimited" '指定格式
   mg.SourceTableName = "kk" '指定要合并的文本文件,无需扩展名
   mg.DataTableName = "data" '指定接收数据的表
   mg.Merge() '开始合并
end if

[此贴子已经被作者于2009-6-5 13:45:55编辑过]

exonjee

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

加好友

发短信

等级：小狐帖子：352 积分：3192 威望：0 精华：0 注册：2008/9/1 9:38:00

Post By：2009/6/5 13:34:00 [显示全部帖子]

请用附件进行测试原始文件(1楼附件)，导入数据为空白，谢谢!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:项目a.table

原始CSV文件：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:aaa.rar

[此贴子已经被作者于2009-6-8 10:32:28编辑过]

exonjee

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

加好友

发短信

等级：小狐帖子：352 积分：3192 威望：0 精华：0 注册：2008/9/1 9:38:00

Post By：2009/6/5 14:03:00 [显示全部帖子]

要导入的原始文件

[此贴子已经被作者于2009-6-8 12:50:34编辑过]

exonjee

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

加好友

发短信

等级：小狐帖子：352 积分：3192 威望：0 精华：0 注册：2008/9/1 9:38:00

Post By：2009/6/5 17:18:00 [显示全部帖子]

以下是引用yangming在2009-6-5 16:30:00的发言：
Dim mg As New Merger
mg.SourcePath = "c:\AAA.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "AAA$" '指定要合并的表
mg.DataTableName = "data" '指定接收数据的表
mg.Merge() '开始合并

5楼的原始文件是CSV的标准文件，要求转换成TXT文件后再合并，上边这个代码运行报错