[求助]导入excel某些列出错。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

End If

Tables("计划表").ResumeRedraw()

Tables("计划表").save

msgbox("导入完成")

不，可，能。上传你excel文件测试一下。

或者，你换一个文件或换一台电脑测试。

我觉得也是不可能的啊。

这是execl。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:计划.rar

你excel文件有问题，你要打开后保存一次。

或者是用vba打开

msgbox(11)
Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\计划.xls")
msgbox(12)

是另存为execl文件？这么做了还是报同样的错

此主题相关图片如下：另存为excel文件.png

打开保存一下，看4、5楼，我测试没问题

msgbox(11)
Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\计划.xls")
msgbox(12)

采用这样的话，提示未申明sheet。

这么写对不对？

Dim App As New MSExcel.Application

App.Visible = True

Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\计划-0506.xls")

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)