示例四
合并文本文件:
Dim mg As New Merger
mg.SourcePath = "c:\data\" '指定数据文件所在目录
mg.Format = "Delimited" '指定格式
mg.SourceTableName = "订单" '指定要合并的dbase文件,无需扩展名(此处应该是:指定要合并的文件)
mg.DataTableName = "订单" '指定接收数据的表
mg.Merge() '开始合并
合并文本文件的时候,最好配合有schema.ini文件。
示例五
合并Excel文件文件:
Dim mg As New Merger
mg.SourcePath = "c:\data\销售管理.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "订单" '指定要合并的表 (此处应该是:mg.SourceTableName = "订单$")
mg.DataTableName = "订单" '指定接收数据的表
mg.Merge() '开始合并