Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.open("D:\FoxtableUse\PFC\Reports\项目概算汇总表.xls")
Dim ws As MSExcel.WorkSheet
ws = Wb.WorkSheets(1)
Dim rg As MSExcel.Range = ws.Cells(ws.UsedRange.Rows.Count+1,1)
app.DisplayAlerts = False
For i As Integer = Wb.WorkSheets.Count To 2 Step -1
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets(i)
Dim Rg2 As MSExcel.Range = Ws2.UsedRange
rg2.Copy
rg.PasteSpecial()
rg = ws.Cells(ws.UsedRange.Rows.Count+1,1)
'Ws2.Delete
Next
Wb.Save
App.Quit
这个方法，是把所有的sheet里的数据逐行复制到一个sheet中。
问题：
能不能设定把其中两个sheet，如sheet2和sheet3做列的复制呢。即sheet3的数据从sheet2的第一个空列开始复制？
加好友 
发短信
Post By：2018/1/2 22:58:00 [显示全部帖子]
此主题相关图片如下：报表组合.png