主题：[求助]求助，麻烦各位老师帮忙看一下报表，我使用交叉统计统计了盘点的月度汇总计算报表问题

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.open("d:\订单.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
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets(2)
Dim Rg2 As MSExcel.Range = Ws2.UsedRange
rg2.Copy
rg.Select
ws.PasteSpecial()
rg = ws.Cells(ws .UsedRange.Rows.Count+1,1)
app.visible = True

'Wb.Save
'App.Quit