主题：[求助]Excel导入问题

我在写生产订单的导入系统，想在一个Excel导入以后在Excel中第六行第二列做一个标记，代码 Sheet(5,1).Value = "已导入"  为什么这样不行，要如何写呢？

代码没问题，报什么错？完整代码怎么写？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目.foxdb

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:0928.xlsx

DataTables("订单").load()
Dim ddbh As String = e.Form.Controls("ddbh").value
Dim xdrq As Date = e.Form.Controls("xdrq").value
Dim zk As Double = e.Form.Controls("zk").value
Dim lj As String = e.Form.Controls("lj").value
Dim Book As New XLS.Book(lj)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim kg As String = Sheet(5,1).Value
If kg = "已导入" Then
    msgbox("该订单已经导入,请勿重复操作,谢谢合作!","64","温馨提示")
    e.Form.Controls("lj").value = ""
    Return
Else
    Tables("订单").StopRedraw()
    For n As Integer = 7 To Sheet.Rows.Count -1
        Dim nr As DataRow = DataTables("订单").AddNew()
        nr("客户名称") = Sheet(0,1).Value
        nr("订单编号") = ddbh
        nr("下单日期") = xdrq
        nr("折扣") = zk
        'start--开始加载订单模板数据
        nr("产品名称") = Sheet(n,0).Value
        nr("订购数量") = Sheet(n,1).Value
        nr("商标要求") = Sheet(n,2).Value
        nr("色彩要求") = Sheet(n,3).Value
        nr("特殊要求") = Sheet(n,4).Value
        nr("备注") = Sheet(n,5).Value
        'end--订单模板数据加载完毕
    Next
    Tables("订单").ResumeRedraw()
    Sheet(5,1).Value = "已导入"
End If
e.Form.Controls("lj").value = ""
e.form.Controls("国内订单").Checked = False
e.form.Controls("国外订单").Checked = False
e.form.Controls("加单").Checked = False
DataTables("订单").DeleteFor("订单编号 Is Null Or 客户名称 Is Null Or 产品名称 Is Null")
DataTables("订单").load()

你上传的excel文件已损坏无法测试。

 

你给sheet赋值以后，最后你要save一下 book.Save(lj)

.NET Framework 版本：2.0.50727.8669
Foxtable 版本：2017.8.19.1
错误所在事件：窗口,订单输入,Button1,Click
详细错误信息：
非法Excel OpenXml文件（*.xlsx）。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:0928.xlsx

你安装的ms office是什么版本的？尽量不要安装2016，要安装2013或2013以下的版本。

此主题相关图片如下：微信截图_20170929095259.png

你上传的excel文件有问题，无法正确打开。