以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  导入excel太慢  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=122048)

--  作者：有点甜 --  发布时间：2018/7/18 9:29:00 --   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