msgbox(11)-----------弹出了11
Dim Book As New XLS.Book("D:\计划.xls")
msgbox(12)----没有弹出12，却爆出了未将对象引用设置到对象的实例。这是怎么回事？最起码也应该弹出12吧。
Dim Sheet As XLS.Sheet = Book.Sheets(0)
msgbox(13)
Tables("计划表").StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
msgbox(0)
Dim nms() As String = {"生产订单号码","工单行号","物料编码","物料名称","类别说明","部门名称","开工日期","完工日期","生产订单数量","入库数量","完成数量","产品批次","工单状态","订单号","订单行号","客户","备注","软件版本","料况追踪","基板","周需求交期","合同约定交期","生产反馈","修改标记"}
'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
Dim scddhm As String = sheet(n,1).Text
Dim gdhh As String = sheet(n,2).text
msgbox(1)
If DataTables("计划表").Find("生产订单号码 = '" & scddhm & "' and 工单行号 = '" & gdhh & "'") Is Nothing Then '如果不存在同编号的计划表
Dim r As Row = Tables("计划表").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = Sheet(n,m).Value
Next
End If
Next
Tables("计划表").ResumeRedraw()
Tables("计划表").save
msgbox("导入完成")
加好友 
发短信
Post By：2016/5/9 11:22:00 [只看该作者]
