Foxtable(狐表)用户栏目专家坐堂 → 从excel提取数据失败


  共有2230人关注过本帖树形打印复制链接

主题:从excel提取数据失败

帅哥哟,离线,有人找我吗?
散客
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:159 积分:1626 威望:0 精华:0 注册:2013/11/15 16:23:00
从excel提取数据失败  发帖心情 Post By:2016/7/25 10:36:00 [只看该作者]

For Each file As String In filesys .GetFiles("c:\data")

    If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then

        Dim Book As New XLS.Book(file)

        Dim Sheet As XLS.Sheet = Book.Sheets(0)

        Dim dr As DataRow = DataTables("融资项目情况表").AddNew

        dr("借款单位") = sheet(3,1).Text

        dr("主管部门") = sheet(3,3).text

        dr("融资机构") = sheet(5,1).text

        dr("合同名称") = sheet(4,1).text

        dr("借款用途") = sheet(5,3).text

        dr("合同编号") = sheet(4,3).text

        dr("融资期限") = sheet(9,1).text

        dr("抵质押物担保人") = sheet(13,1).text

        dr("融资额度") = sheet(12,1).text

        dr("合同利率") = sheet(9,0).texT


 

 

    End If

Next

 提取的数据不知是哪里来的,不知何故?请问excel表和fox的表要怎样对应


 回到顶部
帅哥哟,离线,有人找我吗?
散客
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:159 积分:1626 威望:0 精华:0 注册:2013/11/15 16:23:00
  发帖心情 Post By:2016/7/25 10:44:00 [只看该作者]

求教?

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/25 11:06:00 [只看该作者]

你代码怎么写?怎么失败?

 

帮助文档的意思是,在c:\data文件夹下,取出全部的excel文件,然后提取里面的单元格数据。


 回到顶部
帅哥哟,离线,有人找我吗?
散客
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:159 积分:1626 威望:0 精华:0 注册:2013/11/15 16:23:00
  发帖心情 Post By:2016/7/25 11:15:00 [只看该作者]

是按例子的意思复制的,
只是先用一个excel文件做例子,但取到的值不是想要的

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/25 11:53:00 [只看该作者]

取值的坐标你要弄争取,才行

 

sheet(3,1).Text

sheet(3,3).Text


 回到顶部