Dim Book As New XLS.Book("F:\H\问题测试\机械管理使用情况表.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("机械使用情况表").StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"机械使用情况1","机械使用情况2","机械使用情况3","机械使用情况4","机械使用情况5","机械充电情况1","机械充电情况2","机械充电情况3","机械充电情况4","机械充电情况5","保养维护情况1","保养维护情况2","保养维护情况3"}
'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
Dim r As Row = Tables("机械使用情况表").AddNew()
For m As Integer = 0 To nms.Length - 1
If Tables("机械使用情况表").Cols(nms(m)).IsBoolean Then
r(nms(m)) = IIF(Sheet(n,m).Value=1,true ,False)
Else
r(nms(m)) = Sheet(n,m).Value
End If
Next
Next
Tables("机械使用情况表").ResumeRedraw()
或者直接导入
Tables("机械使用情况表").StopRedraw()
Dim mg As New Merger
mg.SourcePath = "F:\H\问题测试\机械管理使用情况表.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "Sheet1$"
mg.DataTableName = "机械使用情况表"
mg.Merge()
Tables("机械使用情况表").ResumeRedraw()
加好友 
发短信
Post By：2016/9/11 22:35:00 [只看该作者]
