主题：请教Excel报表

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

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

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