Dim App As New MSExcel.Application
try
Dim Wb As MSExcel.Workbook = App.WorkBooks.open("f:\test.xls")
Dim ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim rg As MSExcel.Range = ws.UsedRange
app.DisplayAlerts = False
rg.Copy
Dim rg2 As MSExcel.Range = ws.Cells(45,1)
Dim n=2 '复制2遍
For i As Integer = 1 To n
rg2.PasteSpecial()
rg2 = ws.Cells(ws .UsedRange.Rows.Count+1,1)
Next
Wb.Save
Wb.Close
App.Quit
catch ex As Exception
App.Quit
End try
加好友 
发短信
Post By：2016/11/25 10:12:00 [显示全部帖子]
