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(0 To Sheet.Rows.Count -1,1).Text
dr("号牌种类") = sheet(0 To Sheet.Rows.Count -1,2).Text
dr("号牌号码") = sheet(0 To Sheet.Rows.Count -1,3).Text
dr("档案编号") = sheet(0 To Sheet.Rows.Count -1,4).Text
dr("办结日期") = sheet(0 To Sheet.Rows.Count -1,5).Text
Else dr("部门") =sheet(0 ,0)Substring(0,0,1,6).Text
End If
Next