Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim App As New MSExcel.Application
msgbox(0.1)
try
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
msgbox(0.2)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("计划表")
msgbox(0.3)
Dim Rg As MSExcel.Range = Ws.UsedRange
msgbox(0.4)
Dim ary = rg.value
msgbox(0.5)
Tables("配载订单").ResumeRedraw()
msgbox(1)
Tables("配载订单").StopRedraw()
msgbox(2)
Dim nms() As String = {"项目","下单日期","MK号","DO号","城市","客户","送货地址","物料代码","数量","体积","重量","承运商","司机","车牌","车数","车型","出车日期"}
msgbox(3)
For n As Integer = 2 To ws.UsedRange.Rows.Count -1
msgbox(4)
Dim r As Row = Tables("配载订单").AddNew()
msgbox(5)
For m As Integer = 0 To nms.Length - 1
msgbox(6)
If Tables("配载订单").Cols(nms(m)).IsDate Then
msgbox(7)
Dim d As Date
msgbox(8)
If Date.TryParse(ary(n,m+1), d)
msgbox(9)
r(nms(m)) = d
msgbox(10)
End If
msgbox(11)
Else
r(nms(m)) = ary(n,m+1)
msgbox(12)
End If
Next
Next
Tables("配载订单").ResumeRedraw()
msgbox(13)
catch ex As exception
msgbox(14)
msgbox(ex.message)
msgbox(15)
app.quit
msgbox(16)
End try
End If
e.Form.Controls("提示").Text = "正在导入,请稍后..."
Application.DoEvents()
e.Form.Controls("提示").Text = "已经导入完成."
e.Form.TimerInterval = 5000
e.Form.TimerEnabled = True
加好友 
发短信
Post By：2015/11/24 10:12:00 [只看该作者]
