- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于EXCEL 多列数据 导入处理 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83371)
-- 发布时间：2016/4/7 14:41:00
-- [求助]关于EXCEL 多列数据 导入处理
此主题相关图片如下：fox.png
-- 发布时间：2016/4/7 14:51:00
--
参考代码
Dim Book As New XLS.Book("d:\\test.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim nms() As String = {"第一列", "第二列"}
For n As Integer = 3 To Sheet.Rows.Count-1
For c As Integer = 0 To sheet.Cols.count-1 Step 2
Dim r As Row = Tables("表A").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = Sheet(n,c+m).Value
Next
Next
Next
-- 发布时间：2016/4/7 15:40:00
--
好的！谢谢！
-- 发布时间：2016/4/7 16:06:00
--
如直接在导入时，就将空白行筛选掉？导入后再删除速度太慢了！
-- 发布时间：2016/4/7 16:10:00
--
Dim Book As New XLS.Book("d:\\test.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim nms() As String = {"第一列", "第二列"}
For n As Integer = 3 To Sheet.Rows.Count-1
For c As Integer = 0 To sheet.Cols.count-1 Step 2
If Sheet(n,c).Text > "" Then
Dim r As Row = Tables("表A").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = Sheet(n,c+m).Value
Next
End If
Next
Next