以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]从EXCEL引入数据报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46054)

--  作者:狐作非为
--  发布时间:2014/2/16 13:56:00
--  [求助]从EXCEL引入数据报错

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140216135432.png
图片点击可在新窗口打开查看

以下是帮助中的作了一点修改
          Dim file As String ="D:\\456.xls"  
        Dim Book As New XLS.Book(file)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim dr As DataRow = DataTables("员工").AddNew
        dr("姓名") = sheet(4,1).Text
        dr("部门") = sheet(5,1).text
        dr("出生日期") = sheet(4,3).text
        dr("雇佣日期") = sheet(5,3).text
        dr("性别") = sheet(6,1).text
        dr("职务") = sheet(6,3).text
        dr("地址") = sheet(7,1).text
        dr("家庭电话") = sheet(8,1).text
        dr("办公电话") = sheet(8,3).text
        dr("备注") = sheet(9,0).text
[此贴子已经被作者于2014-2-16 13:56:39编辑过]

--  作者:狐作非为
--  发布时间:2014/2/16 14:37:00
--  
今天好像没人啊
--  作者:sloyy
--  发布时间:2014/2/16 16:10:00
--  
你看看你的 内部表 有 "员工" 这个表吗?
--  作者:狐作非为
--  发布时间:2014/2/16 16:45:00
--  
都有的,最后我只留下  Dim file As String ="D:\\456.xls"  这一句代码都报错,难道用WPS打开过的EXCEL文件,狐表就不支持了?
--  作者:sloyy
--  发布时间:2014/2/16 17:25:00
--  
可能是兼容性问题   把他另存为excel2003格式试试看
--  作者:狐作非为
--  发布时间:2014/2/17 8:30:00
--  
我一直都用2003格式保存的,奇怪了,狐爸在哪呢
--  作者:Bin
--  发布时间:2014/2/17 8:32:00
--  
表发出来看看
--  作者:e-png
--  发布时间:2014/2/17 8:47:00
--  
版本问题吧D