|
systemready = False
For Each file As String In filesys .GetFiles("c:\Data")
If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
Dim Book As New XLS.Book(file)
Dim Sheet As XLS.Sheet = Book.Sheets("2017年助学金")
For i As Integer = 1 To sheet.Rows.Count -1
Dim dr As DataRow = DataTables("助学金").AddNew
dr("区") = sheet(1,0).Text
dr("镇") = sheet(1,1).text
dr("村") = sheet(1,2).text
dr("组") = sheet(1,3).text
dr("姓名") = sheet(1,4).text
dr("身份证号码") = sheet(1,5).text
dr("享受的政策项目") = sheet(1,6).text
dr("银行卡号(现金)") = sheet(1,7).text
dr("每期打卡金额(若每期不一样的,分期填写)") = sheet(1,8).text
dr("备注") = filesys.GetName(file).Split(".")(0)
application.Doevents
Next
End If
Next
DataTables("助学金").save
systemready = True
|
加好友 
发短信
Post By：2018/7/18 9:29:00 [显示全部帖子]
