如：http://www.foxtable.com/webhelp/scr/2334.htm
Dim Book As New XLS.Book("c:\test\考勤.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1 Step 4
For c As Integer = 2 To Sheet.Rows.Count -1
Dim r As Row = Tables("表B").AddNew()
r("工号") = Sheet(n,0).Value
r("日期") = Sheet(0,c).Value
r("上班1") = Sheet(n,c).Value
r("上班2") = Sheet(n+1,c).Value
r("上班3") = Sheet(n+2,c).Value
r("上班4") = Sheet(n+3,c).Value
Next
Next
加好友 
发短信
Post By：2019/2/19 15:47:00 [显示全部帖子]
