主题：如

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

 你必须打开xls文件然后保存一下才行，不然不能打开。