Dim Book As New XLS.Book(ProjectPath & "Attachments\1.xls")
Dim fl As String = ProjectPath & "Reports\1.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("1") '指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("2")
Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("3")
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,1).Select '纵向拷贝
ws3.paste
'Wb.Save
app.Visible = True
'App.Quit
加好友 
发短信
Post By：2015/9/5 21:48:00 [只看该作者]
