主题：合并表格的问题

 我使用以下命令合并：

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

 

此主题相关图片如下：qq截图20130614093745.png

我想让合并好的数据在同一行该怎么做？

此主题相关图片如下：qq截图20130614094122.png


此主题相关图片如下：qq截图20130614094135.png

这是要合并的两个数据表

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

点击浏览该文件:多表导入.rar

我直接在命令窗口执行代码的，就是1L那一段：

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

 

两个excel放在C:\tt 下面

就是两个表合并出来的数据不能在同一行。

如果有很多EXCEL表格的话，用手动复制合成一张岂不是很麻烦？

谢谢！

谢谢大家的解答！

狐爸和BIN老师都是从EXCEL里面找到和FOXTABLE中的表格对应的数据，然后写入表格，这样就不会出现采用mg.Merge()每次只能合并一个表格的局限性，受教了。