主题：EXCEL报表合并问题

前几天所写的测试代码都还可以运行，今天把代码另写入设计文件后，报错，不合并表格，请老师指导指导。谢谢

请把数据库发上来。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:gh.zip

Dim Book1 As New XLS.Book(ProjectPath & "Attachments\test.xls")
Dim fl As String = ProjectPath & "Reports\test.xls"
Dim Sheet1 As XLS.Sheet = Book1.Sheets(0)
Dim Sheet2 As XLS.Sheet = Book1.Sheets(1)
Dim Sheet3 As XLS.Sheet = Book1.Sheets(2)
Sheet1(3,8).Value = "<记账日期 = # " & Date.Today & "#>"  '写入打印条件
Sheet2(3,6).Value = "<记账日期1 = # " & Date.Today & "#>"  '写入打印条件

Book1.Build() '生成报表
Book1.Save(fl)

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("Sheet1") '指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("Sheet2")
Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("Sheet3")
Ws1.UsedRange.Copy
ws3.Cells(1,1).Select
ws3.paste
Ws2.UsedRange.Copy
ws3.Cells(1,Ws1.UsedRange.Columns.Count+2).Select '横向拷贝
'ws3.Cells(Ws1.UsedRange.Rows.Count,1).Select '纵向拷贝
ws3.paste
Wb.Save
app.Visible = True
'App.Quit

非常感谢老师的指导！！！

老师，又要麻烦您了，参照您给的代码写入设计文件，弄了一晚上还是报错，是不是我的EXCEL有问题，还是我的细节区设置有问题，还得请老师再帮忙看看。

Dim Book1 As New XLS.Book(ProjectPath & "Attachments\test.xls")
Dim fl As String = ProjectPath & "Reports\test.xls"

 

Dim App As New MSExcel.Application
try
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("Sheet1") '指定要复制的工作表
    Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("Sheet2")
    Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("Sheet3")
    Ws1.UsedRange.Copy
    ws3.activate
    ws3.Cells(1,1).Select
    ws3.paste
    Ws2.UsedRange.Copy
    ws3.activate
    ws3.Cells(1,Ws1.UsedRange.Columns.Count+2).Select '横向拷贝
    'ws3.Cells(Ws1.UsedRange.Rows.Count,1).Select '纵向拷贝
    ws3.paste
    Wb.Save
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    App.Quit
End try