以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  同时将多个execl表导入foxtable  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80990)
--  作者：xjwangq
--  发布时间：2016/2/15 22:44:00
--  同时将多个execl表导入foxtable
如何将在同一目录（c:\\汇总）下将多个execl表（表结构相同，内容不同）导入到foxtable同一张表内
--  作者：大红袍
--  发布时间：2016/2/15 22:54:00
--  

编写代码即可。

 

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