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

 弄两个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

 

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

 

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

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

 做实例上来。

 那你就拆分成三部分，一个一个拷贝过去。

 不可能，上传实例。

 你肯定是没有关闭，才会提示打开的。你去任务管理器那里，看看还有没有 execel.exe 的进程

 上传实例。

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") '指定要复制的工作表
ws1.select
app.Visible = True