- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]若exel表格不统一，怎样提取数据到狐表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141871)
-- 发布时间：2019/10/12 22:25:00
-- [求助]若exel表格不统一，怎样提取数据到狐表
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:马龙区.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 |
-- 发布时间：2019/10/12 22:25:00
--
还有一个数据源excel附件
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:宣威市.xlsx |
-- 发布时间：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