主题：合并表格的问题

 我使用以下命令合并：

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

这是要合并的两个数据表

什么都没?

你EXCEL表 和例子做一个上来  我帮你完善代码!

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

点击浏览该文件:多表导入.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 下面

有什么问题？没见出什么问题？

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

因为你是2个文件啊，你把复制过来合并就是1列

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

.

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

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

呵呵，马后炮我也放一个：

 

Tables("表A").StopRedraw()
DataTables("表A").DataRows.clear
For Each fl As String In FileSys.GetFiles("c:\tt")
    Dim Book As New XLS.Book(fl)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As DataRow
        If DataTables("表A").DataRows.Count >= n Then
            r = DataTables("表A").DataRows(n-1)
        Else
            r = DataTables("表A").AddNew
        End If
        For m As Integer = 0 To sheet.Cols.Count - 1
            r(sheet(0,m).Text) = Sheet(n,m).Value
        Next
    Next
Next
Tables("表A").ResumeRedraw()