主题：合并EXCELpiao据

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

点击浏览该文件:收购单.xls

如何将上述sheet1和sheet2合并为一张piao据，将sheet1显示在sheet2上面。

在打印收购单价汇总时，能在其上面显示重量明细。

sheet1只显示重量，没有标题，与sheet2的标题不符，我的意思是想先打印完sheet1的重量，如200，210，250，195，188，221。。。。。。，在sheet1下面打印sheet2,只合并打印，其表不能合并。

                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
                Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "Reports\收购单价汇总.xls")
                Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("收购单明细") '指定要复制的工作表
                With Wb.WorkSheets
                    Ws.Copy(Before:=.Item(1))'复制到最前面
                End With
                Wb.Save
                Dim Proc As New Process '打开工作簿
                Proc.File = fl
                proc.verb = "print"
                Proc.Start()
               

这样编写代码不行？

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2014.5.6.1
错误所在事件：窗口,打印收购窗口,Button4,Click
详细错误信息：
无效索引。 (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))

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

点击浏览该文件:收购单.xls

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

点击浏览该文件:重量明细.xls

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

点击浏览该文件:收购单.xls

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

点击浏览该文件:重量明细.xls

    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(ProjectPath & "Reports\收购单.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+1, 1))     
        Wb.Save
    catch ex As exception
        msgbox(ex.message)
    finally
        App.Quit
    End try
    Dim f2 As String = ProjectPath & "Reports\收购单.xls"
    Dim App1 As New MSExcel.Application
    Dim Wb1 As MSExcel.WorkBook = App.WorkBooks.Open(f2)
    Dim Ws11 As MSExcel.WorkSheet = Wb1.WorkSheets(1)
    App1.Visible = True
    addhandler Wb1.BeforePrint, addressof Workbook_BeforePrint
    Ws11.PrintPreview()
    App.Quit