各位专家
大家好，我现在想请教一个问题，在我上传的附件中，有三个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
以上是之前讨论过的代码，能否怎样修改一下，来实现预想结果。
加好友 
发短信
Post By：2019/10/12 22:25:00 [只看该作者]
