以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何把一个execl表格的内容和样式 拷贝到 另一个execl文件的末尾，合并为一个sheet？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=38543)
--  作者：silyangel
--  发布时间：2013/7/31 15:26:00
--  [求助]如何把一个execl表格的内容和样式 拷贝到 另一个execl文件的末尾，合并为一个sheet？
问题为：有exec1和exec12 两个文件，如何通过代码实现 把exec12的内容和样式 复制到 exec1文件的末尾？
[此贴子已经被作者于2013-7-31 16:08:48编辑过]
--  作者：狐狸爸爸
--  发布时间：2013/7/31 15:39:00
--  

\'例如将文件订单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")

 

注意不能存在同名的表，否则复制过去之前要改名,让然可以通过代码改名。
--  作者：silyangel
--  发布时间：2013/7/31 16:06:00
--  

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

[此贴子已经被作者于2013-7-31 16:07:29编辑过]
--  作者：狐狸爸爸
--  发布时间：2013/7/31 16:20:00
--  

订单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")
--  作者：silyangel
--  发布时间：2013/7/31 16:36:00
--  

谢谢