谢谢你，有点蓝，这次预期结果能出来了。不过，今天我又有一个新问题要请教了。在今天我上传的附件中，有多个excel,其中的两个分别是“博世通档案移交台账”和“水寨档案移交台账”，我现在想把所有的excel台账都汇总到“台账汇总.foxtable”中的表“台账汇总”里。不同的是，不光是从excel的B列到F列的数据需要对应的提取到“台账汇总.foxtable”中，还有从H列到L列的数据需要对应的提取到“台账汇总.foxtable”中，即，excel中的数据是左右并列的，像这种情况又怎样一次性把各种车辆各辆车的相关数据对应的提取到狐表中呢？在我上传的附件foxtable中，1--8行是给出的示例结果。我试着写出的代码如下，但预想结果出不来，请问需怎么修改代码
Dim dr As DataRow
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 bm As String = sheet(0 ,0).text.SubString(0,6)
For i As Integer = 4 To Sheet.Rows.Count -1
If sheet(i,1).Text.trim() > ""
dr = DataTables("台账汇总").AddNew
dr("部门") = bm
dr("业务类型") = sheet(i,1).Text And dr("业务类型") = sheet(i,7).Text
dr("号牌种类") = sheet(i,2).Text And dr("号牌种类") = sheet(i,8).Text
dr("号牌号码") = sheet(i,3).Text And dr("号牌号码") = sheet(i,9).Text
dr("档案编号") = sheet(i,4).Text And dr("档案编号") = sheet(i,10).Text
dr("办结日期") = sheet(i,5).Text And dr("办结日期") = sheet(i,11).Text
End If
Next
End If
加好友 
发短信
Post By：2020/6/2 22:39:00 [显示全部帖子]
