以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何复制另一工作簿的第一个工作表?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=23615)
--  作者：sloyy
--  发布时间：2012/9/14 10:12:00
--  如何复制另一工作簿的第一个工作表?
我有2个工作簿 book1.xls book2.xls  在foxtable里面,如何把book.xls的第一个工作表复制到book2.xls ?如果book2.xls 里面有同名文件,能否覆盖掉?
--  作者：lin_hailun
--  发布时间：2012/9/14 10:58:00
--  
 看看帮助的这个例子

Dim Book1 As New XLS.Book("C:\\001.xls")
Dim Book2 As New XLS.Book("C:\\002.xls")
Dim Sheet = Book1.Sheets("订单")
Book1.Sheets.Remove(Sheet)
Book2.Sheets.Add(Sheet)
Book2.Save("C:\\002.xls")
--  作者：lin_hailun
--  发布时间：2012/9/14 11:04:00
--  
具体例子

Dim book1 As New XLS.Book("d:\\test.xls")
Dim book2 As New XLS.Book("d:\\test2.xls")
For Each s As XLS.Sheet In book2.Sheets
    try
        book2.Sheets.Remove(s)
        book1.Sheets.Add(s)
    catch ex As exception
        book1.Sheets.Remove(s.Name)
        book1.Sheets.Add(s)
    End try
Next
book1.Save("d:\\test.xls")