Dim Book As New XLS.Book("c:\成绩输出表.xlsx") Dim Sheet As XLS.Sheet = Book.Sheets(0) For n As Integer = 1 To Sheet.Rows.Count -1 Dim r As Row = Tables("成绩管理").AddNew() r("准考证号") = Sheet(n, 0).Value r("姓名") = Sheet(n, 1).Value Dim das As String = sheet(n, 2).value Dim ary = das.split(".") For i As Integer = 1 To ary.length-1 r("题" & i) = left(ary(i), 1) Next Next
加好友 
发短信
Post By：2018/12/28 9:35:00 [显示全部帖子]
