- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]Excel导入问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107484)
-- 发布时间：2017/9/28 17:08:00
-- [求助]Excel导入问题
我在写生产订单的导入系统，想在一个Excel导入以后在Excel中第六行第二列做一个标记，代码 Sheet(5,1).Value = "已导入" 为什么这样不行，要如何写呢？
-- 发布时间：2017/9/28 17:20:00
--
代码没问题，报什么错？完整代码怎么写？
-- 发布时间：2017/9/29 8:22:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目.foxdb |
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:0928.xlsx |
-- 发布时间：2017/9/29 8:23:00
--
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()
-- 发布时间：2017/9/29 9:17:00
--
你上传的excel文件已损坏无法测试。
你给sheet赋值以后，最后你要save一下 book.Save(lj)
-- 发布时间：2017/9/29 9:50:00
--
.NET Framework 版本：2.0.50727.8669
Foxtable 版本：2017.8.19.1
错误所在事件：窗口,订单输入,Button1,Click
详细错误信息：
非法Excel OpenXml文件（*.xlsx）。
-- 发布时间：2017/9/29 9:50:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:0928.xlsx |
-- 发布时间：2017/9/29 9:52:00
--
你安装的ms office是什么版本的？尽量不要安装2016，要安装2013或2013以下的版本。
-- 发布时间：2017/9/29 9:54:00
--
此主题相关图片如下：微信截图_20170929095259.png
-- 发布时间：2017/9/29 9:54:00
--
你上传的excel文件有问题，无法正确打开。