- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求导入合并数据代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3042)
-- 发布时间：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编辑过]
-- 发布时间：2009/6/5 13:18:00
--
1.DataTables("表").DataRows.Clear()
2.没试过
-- 发布时间：2009/6/5 13:34:00
--
请用附件进行测试原始文件(1楼附件)，导入数据为空白，谢谢!
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:项目a.table |
原始CSV文件：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:aaa.rar |
[此贴子已经被作者于2009-6-8 10:32:28编辑过]
-- 发布时间：2009/6/5 13:47:00
--
一楼没有附件?你要合并的到底是TXT文件还是EXCEL文件?
[此贴子已经被作者于2009-6-5 14:02:04编辑过]
-- 发布时间：2009/6/5 14:03:00
--
要导入的原始文件
[此贴子已经被作者于2009-6-8 12:50:34编辑过]
-- 发布时间：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() \'开始合并
-- 发布时间：2009/6/5 16:42: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() \'开始合并
Dim mg As New Merger
mg.SourcePath = "c:\\AAA.xls"
mg.Format = "excel" \'指定格式
mg.SourceTableName = "AAA$" \'指定要合并的表
mg.DataTableName = "data" \'指定接收数据的表
mg.Merge() \'开始合并
能加上个由用户指定打开路径的代码，然后选择要合并的文件，这个代码只能放在固定的地方。
-- 发布时间：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() \'开始合并
Dim mg As New Merger
mg.SourcePath = "c:\\AAA.xls"
mg.Format = "excel" \'指定格式
mg.SourceTableName = "AAA$" \'指定要合并的表
mg.DataTableName = "data" \'指定接收数据的表
mg.Merge() \'开始合并
5楼的原始文件是CSV的标准文件，要求转换成TXT文件后再合并，上边这个代码运行报错
-- 发布时间：2009/6/5 17:21:00
--
那只能是先转成文本文件后再合并,可将上述代码改成文本文件的合并代码
-- 发布时间：2009/6/8 10:34:00
--
我在代码中是先将CSV文件转换为TXT文件后再导入合并数据的，但还是导入一片空白，导入了部份行数，但没有数据。3楼的附件是foxtable项目文件和CSV文件，请帮忙看下什么原因