导入excel太慢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

zsxx999	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00	导入excel太慢 Post By：2018/7/18 6:17:00 [只看该作者] 用户已被锁定

主题：导入excel太慢