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

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

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

订单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")