主题：如

For Each fl As String In FileSys.GetFiles("c:\Data")
    Dim mg As New Merger
    mg.SourcePath = fl
    mg.Format = "excel" '指定格式
    mg.SourceTableName = "订单" '指定要合并的表
    mg.DataTableName = "订单" '指定接收数据的表
    mg.Merge() '开始合并
Next

mg.SourceTableName = "订单" '指定要合并的表  

我的合并表名 就是文件的名称 在怎么写

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:6-26 回货明细.xls