主题：如何在excel模板中隐藏内容

如图  当送货数量>0的行数量>1即 有送货单是打印送货单区域  当退货数量>0的行数量>1即 有退货单是打印退货单区域 

此主题相关图片如下：qq图片20160719173320.png

 弄两个sheet，然后做两个模板，生成报表后，剪切复制到一张表里去

 

比如你生成了报表 d:\text.xls

 

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
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).Select '横向拷贝
ws3.Cells(Ws1.UsedRange.Rows.Count,1).Select '纵向拷贝
ws3.paste

'Wb.Save
app.Visible = True
'App.Quit

红袍老师   因为明细表是动态生成的 无法知道从哪开始到哪结束啊

 

不需要从哪里开始，哪里结束。

 

送货单一个模板，退货单一个模板。

我有个疑问 比如我做了2个模板 sheetA sheetB 我只需要将b细节区拷贝到A即可  2个问题  第一 如何定位到A的细节区末尾 第二 如何准确获得B的细节区的范围

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("sheetA") '指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("sheetB")
Ws2.Select

Ws2.UsedRange.Copy
'ws1.Cells(1,Ws1.UsedRange.Columns.Count+1).Select '横向拷贝
ws1.Cells(Ws1.UsedRange.Rows.Count+1,1).Select '纵向拷贝
ws1.paste

'Wb.Save
app.Visible = True
'App.Quit