主题：[求助]如何把一个execl表格的内容和样式 拷贝到 另一个execl文件的末尾，合并为一个sheet？

问题为：有exec1和exec12 两个文件，如何通过代码实现 把exec12的内容和样式 复制到 exec1文件的末尾？

'例如将文件订单2.xls的表复制到文件订单1.xls

Dim  Book1 As New XLS.Book("c:\test\订单1.xls")
Dim  Book2 As New XLS.Book("c:\test\订单2.xls")
Dim  Sheet1 As XLS.Sheet = Book1.Sheets(0)
Dim  Sheet2 As XLS.Sheet = Book2.Sheets(0)
book2.Sheets.Remove(sheet2)
book1.Sheets.Add(sheet2)
book1.save("c:\test\订单1.xls")

 

注意不能存在同名的表，否则复制过去之前要改名,让然可以通过代码改名。

我是要合并两个sheet 到一个execl文件的一个sheet

订单1追加到订单2：

 

 

Dim Book1 As New XLS.Book("c:\test\订单1.xls")
Dim Book2 As New XLS.Book("c:\test\订单1.xls")
Dim Sheet1 As XLS.Sheet = Book1.Sheets(0)
Dim Sheet2 As XLS.Sheet = Book2.Sheets(0)
For r As Integer = 1 To sheet1.Rows.count - 1
    Dim cnt As Integer = sheet2.Rows.count
    For c As Integer = 0 To sheet1.Cols.count -1
        sheet2(cnt,c).value = sheet1(r,c).value
        sheet2(cnt,c).Style = sheet1(r,c).Style
    Next
Next
Book2.Save("c:\test\订单2.xls")

谢谢