用Exporter遍歷導出為同一文件即可
Exporter
Exporter用于导出数据。
属性
- SourceTableName
字符型，指定导出表的名称。
- Filter
字符型，指定导出条件表达式；请参考表达式的运算符和函数 和 条件表达式。
- Fields
字符型，指定导出字段(列)，不同的字段，用逗号隔开，如果不指定，则导出所有字段。
不能包括表达式列，如果导出文件一定要包括某一表达式列，那么请将该列改为普通数据列，并用代码进行计算。
- Format
字符型，指定导出格式，包括Access、Access2007、Excel、Excel2007、dBASE、Delimited、Fixed
其中Delimited为符号分割的文本文件，Fixed为固定列宽的文本文件。
默认为Access
除Excel2007外，其余格式的文件均可自动创建，而Excel2007格式的目标文件必须事先已经存在。
- PassWord
字符型。如果导出格式是Access，可以用此属性指定目标文件的密码。
如果目标文件是Excel格式，那么不能设置密码，否则无法正常导出。
- Header
逻辑型，用于指定导出文本文件的时候，是否包括列名称。
- FilePath
字符型，指定目标数据库文件名，含文件路径。
如果导出格式是dBASE或者文本文件，那么只需指定路径。
- NewTableName
字符型，指定导出后的表的名称。
如果目标数据文件已经存在同名表，将不能导出。
对于dBASE和文本格式，用文件名代替表名，不含扩展名，如果目标文件已经存在，也不能导出。
方法:
请将下面的示例代码复制到命令窗口进行测试。
示例一
将订单表导出为Access格式：
Dim
ex
as
New
Exporter
ex.SourceTableName = "订单" '指定导出表
ex.filepath = "c:\Data\订单.mdb" '指定目标文件
ex.Export() '开始导出
示例二
将订单表导出为Access 2007格式：
Dim
ex
as
New
Exporter
ex.SourceTableName = "订单" '指定导出表
ex.FilePath = "c:\Data\订单.accdb" '指定目标文件
ex.Format =
"Access2007" '导出格式为Access 2007
ex.Export()
'开始导出
示例三
将产品PD01的订单导出为Excel格式保存，并只导出指定的列：
Dim
ex
as
New
Exporter
ex.SourceTableName = "订单" '指定导出表
ex.FilePath = "c:\Data\订单.xls" '指定目标文件
ex.Format =
"Excel" '导出格式为Excel
ex.Fields = "日期,客户,数量,单价"
'指定导出字段
ex.Filter = "[产品] = 'PD01'" '指定导出条件
ex.Export()
'开始导出
示例四
将订单表的数据导出为dbf格式：
Dim
ex
as
New
Exporter
ex.SourceTableName = "订单"
'指定导出表
ex.FilePath =
"c:\Data\"
'指定目标文件路径
ex.Format = "dbase"
'导出格式为dBASE
ex.NewTableName = "订单数据"
'指定文件名，注意无须扩展名
ex.Export() '开始导出
示例五
将订单表的数据导出为以逗号分割的文本文件：
Dim ex as New
Exporter
ex.SourceTableName = "订单"
'指定导出表
ex.FilePath = "c:\Data\"
'指定目标文件路径
ex.Format = "Delimited"
'导出格式为符号分割的文本文件
ex.NewTableName = "订单数据"
'指定文件名，注意无须扩展名
ex.Export() '开始导出
执行之后，同时还会生成一个配置文件schema.ini，里面有新生成文本文件的信息，还包括各列的名称、类型、宽度。
示例六
将订单表的数据导出为固定列宽的文本文件：
Dim ex as New
Exporter
ex.SourceTableName = "订单"
'指定导出表
ex.FilePath = "c:\Data\"
'指定目标文件路径
ex.Format = "Fixed"
'导出格式为固定宽度的文本文件
ex.NewTableName = "订单数据2"
'指定文件名，注意无须扩展名
ex.Export() '开始导出
执行之后，同时还会生成一个配置文件schema.ini，里面有新生成文本文件的信息，还包括各列的名称、类型、宽度。
加好友 
发短信
Post By：2012/4/30 8:45:00 [显示全部帖子]
