Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("F:\rfgf.xls")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("表A") '指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("表B")
Ws2.Select
Ws2.UsedRange.Copy
'ws1.Cells(1,Ws1.UsedRange.Columns.Count+1).Select '横向拷贝
ws1.Select
ws1.Cells(Ws1.UsedRange.Rows.Count+1,1).Select '纵向拷贝
ws1.paste
'Wb.Save
app.Visible = True
'App.Quit
加好友 
发短信
Post By：2016/7/20 8:46:00 [显示全部帖子]
