Foxtable(狐表)用户栏目专家坐堂 → [求助]若exel表格不统一,怎样提取数据到狐表


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

主题:[求助]若exel表格不统一,怎样提取数据到狐表

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


加好友 发短信
等级:幼狐 帖子:196 积分:1979 威望:0 精华:0 注册:2012/11/8 14:15:00
[求助]若exel表格不统一,怎样提取数据到狐表  发帖心情 Post By:2019/10/12 22:25:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:马龙区.xlsx

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:陆良县.xlsx

各位专家
     大家好,我现在想请教一个问题,在我上传的附件中,有三个excel表格,它们的格式相似,但不完全相同,如,陆良县的excel中,首行是空着的,马龙区的excel中,领取数量和使用数量这两列的位置不同于其他表格,而在宣威市的excel中,行驶证这一行的位置不同于其他表格,这些我都已经用不同颜色填充标注了。我想把3个excel中行驶证的使用及损耗数据提取到狐表中,如附件是我的预想结果。
       并且,在我的预想结果中,我还想把各excel表格中的标题行中的前三个字或前四个字,即XX区,XX县,XX市字样的,提取到狐表相应的行政区划这一列中。
       请问各位专家,我的预想结果能否实现,代码又该怎么写。因为,如果所有的数据源excel表格格式动相同的话,我倒知道该怎么写代码,
      For Each file As String In filesys .GetFiles("f:\物资损耗")
    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(2,1).Text
        dr("领用量") = sheet(2,2).Text
        dr("剩余量") = sheet(2,3).Text
        dr("使用量") = sheet(2,4).Text
        dr("制证量") = sheet(2,5).Text
        dr("损耗量") = sheet(2,6).Text
        dr("损耗率") = sheet(2,7).Text
    End If
Next
以上是之前讨论过的代码,能否怎样修改一下,来实现预想结果。
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:物资损耗统计预想结果.table


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


加好友 发短信
等级:幼狐 帖子:196 积分:1979 威望:0 精华:0 注册:2012/11/8 14:15:00
  发帖心情 Post By:2019/10/12 22:25:00 [只看该作者]

还有一个数据源excel附件
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:宣威市.xlsx


 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105467 积分:536320 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/13 21:25:00 [只看该作者]

参考:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105144

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=51515

 回到顶部