主题：excel数据读取效率请教

第一步：新增行，直接新增n行 Tables("订单表").AddNew(2500)

第二步：一次性赋值单元格内容转成数组

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Add
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("A1:B10")
ws.cells(1,1).value = "1"
ws.cells(1,2).value = "2"
Dim ary = rg.value
For i As Integer = 1 To 10
    For j As Integer = 1 To 2
        output.show(ary(i,j))
    Next
Next