主题：请教Excel报表

说了的，你说过考虑，可能后来忘记了。

此主题相关图片如下：未命名.jpg

现在可以自己写代码解决。

Dim Book1 As New XLS.Book("C:\001.xls") '定义一个Excel工作簿
Dim Book2 As New XLS.Book("C:\002.xls") '定义一个Excel工作簿
Dim sheet As XLS.Sheet = Book1.Sheets("abc")
Book1.Sheets.Remove(sheet)
Book2.Sheets.Add(sheet)
Book1.Save("C:\001.xls")
Book2.Save("C:\002.xls")

这样，为什么执行不成功?

请问怎样解决，代码怎样写？？？

自己写代码复制工作簿大概是下面这样子吧.
当然实际使用时还要做判断是否存在来源和接收文件是否存在，还要判断来源文件是否存在该工作簿，还要判断接收文件中是否存在相同的工作簿。

Dim Book1 As New XLS.Book("D:\001.xls")
Dim Book2 As New XLS.Book("D:\002.xls")
Dim sheet1 As XLS.Sheet = Book1.Sheets("abc")
Book2.Sheets.Add("abc")
Dim sheet2 As XLS.Sheet = Book2.Sheets("abc")
For i As Integer = 0 to Sheet1.Cols.Count - 1
    For r As Integer = 0 To Sheet1.Rows.Count - 1 '填入数据
        Sheet2(r,i).Value = Sheet1(r,i).Value
    Next
Next
Book1.Sheets.Remove("abc")
Book1.Save("D:\001.xls")
Book2.Save("D:\002.xls")

谢谢16楼楼主
问题还是未解决! 

看来只有等待狐爸的下次更新才会解决了

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)
Book1.Save("C:\001.xls")
Book2.Save("C:\002.xls")
以上执行成功

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)
Book1.Save("C:\001.xls")
Book2.Save("C:\002.xls")
以上执行出错

请问为什么?