主题：同时将多个execl表导入foxtable

编写代码即可。

For Each f As String In FileSys.GetFiles("c:\汇总")
    If f.EndsWith(".xls") OrElse f.EndsWith(".xlsx") Then
        Dim mg As New Merger
        mg.SourcePath = f
        mg.Format = "excel" '指定格式
        mg.SourceTableName = "订单" '指定要合并的表
        mg.DataTableName = "订单" '指定接收数据的表
        mg.Merge() '开始合并
    End If
Next