1、读入速度
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.Filter= "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
SystemReady = false
Tables("采购订单执行").StopRedraw
For Each file As String In dlg.FileNames
Dim Book As New XLS.Book(file)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim i As Integer = 5
Do While (sheet(i,1).Text)<>""
Dim dr As Row = Tables("采购订单执行").AddNew
dr("采购组织") = sheet(i,0).Text
dr("订单编号") = sheet(i,1).Text
dr("供应商") = sheet(i,3).Text
dr("采购部门") = sheet(i,5).Text
dr("订单日期") = sheet(i,6).Text
dr("行号") = sheet(i,7).Text
dr("物料编码") = sheet(i,10).Text
dr("物料名称") = sheet(i,11).Text
dr("客户") = sheet(i,35).Text
i = i + 1
Loop
Next
Tables("采购订单执行").ResumeRedraw
SystemReady = True
End If
2、保存速度
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=98689&skin=0