主题：合并EXCELpiao据

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

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

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

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

利用这个方式,获取 SHEET2数据http://www.foxtable.com/help/topics/2334.htm

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

 

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

 

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

 

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

 

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

 

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

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

这样编写代码不行？

 

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

 

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