TO 大红袍，以下代码您看一下我改的对吗？感觉效率没怎么提升啊，帮我看看还有优化的空间吗？Dim dlg As New OpenFileDialog
Dim l1 As WinForm.Label = e.Form.Controls("Label1")
dlg.Filter= "所有文件|*.*|Excel2003文件|*.xls|Excel2007文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim t1 As Date = Date.Now
DataTables("表A").StopRedraw
Dim App As New MSExcel.Application
try
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
Dim ary = rg.value
For i As Integer = 1 To rg.Rows.Count
For j As Integer = 1 To rg.Columns.Count
If rg.Cells(i,j).Text > "" Then
Dim dr As DataRow = DataTables("表A").AddNew
'dr("第一列") = Rg.Cells(i,j).value
dr("第一列") = ary(i,j)
End If
Next
Next
catch ex As exception
msgbox(ex.message)
finally
DataTables("表A").ResumeRedraw
app.quit
End try
l1.text="计算结束, 耗时: " & (Date.Now - t1).TotalSeconds & "秒"
Else
Return
End If
加好友 
发短信
Post By：2016/5/24 23:31:00 [只看该作者]
