主题：合并EXCELpiao据

 生成报表之后，用vba把sheet2的内容拷贝过来即可。

 先看下vba的知识点 http://www.foxtable.com/help/topics/2121.htm

完完全全不理解你的意思。

你上传一个可以测试的例子，同时做出你要的效果图。

或者看5楼，把表数据拷贝过去即可。

提示什么错误？代码是没有错的

Wb.Save 后面还要加一句 App.Quit

 你之前写的代码，是复制表，不是合并表......

 你把生成的excel文件传上来，我帮你写代码。

 我对vba也不太熟悉，代码大概这样写。意思是把sheet2的全部拷贝到sheet1的后面去

Dim App As New MSExcel.Application
try
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("e:\test.xls")  
    Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("sheet1")
    Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("sheet2") '指定要复制的工作表
    Dim Rg As MSExcel.Range = Ws2.UsedRange

    Rg.copy(ws1.cells(ws1.UsedRange.Rows.count+10, 1))

    Wb.Save
catch ex As exception
    msgbox(ex.message)  
finally
    App.Quit
End try

 回复15楼，你把这两个模板发上来有什么用？

 请看14楼的代码，自己改一下使用。

 回复17楼，你生成后的报表，是一个xls文件有两张，还是两个xls文件？

 请详细说明，自己看14楼代码....

代码这样改。注意点，你的 收购单 要有两个表格，红色代码改成你对应的 表名

Dim Book As New XLS.Book(ProjectPath & "Attachments\收购单.xls")
Book.Marks.Add("用户名",User.Name)
Dim fl As String = ProjectPath & "Reports\收购单.xls"
Book.Build()
Book.Save(fl)

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 Rg As MSExcel.Range = Ws2.UsedRange
    Rg.copy(ws1.cells(ws1.UsedRange.Rows.count+1, 1))
    Wb.Save

    App.Visible = True
    addhandler Wb.BeforePrint, addressof Workbook_BeforePrint
    Ws1.PrintPreview()
catch ex As exception
    msgbox("出错信息:" & ex.message)
finally
    App.Quit
End try