以文本方式查看主题 -  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=186928)

--  作者：moseser --  发布时间：2023/6/8 19:55:00 --  导入excel时，如何防止空内容导入 Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog  dlg.Filter = "Excel文件|*.xls|excel文件|*.xlsx" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮     MessageBox.Show(1)     \'文件的地址： dlg.FileName     Dim Book As New XLS.Book(dlg.FileName)     Dim Sheet As XLS.Sheet = Book.Sheets(0)     Tables("合同台账.签约价格").StopRedraw()     \'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致     Dim nms() As String = {"物资名称", "规格型号", "计量单位", "暂定数量", "采购单价", "是否含税", "税率", "固定单价", "是否为资产"}     \'注意下面的循环变量从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             MessageBox.Show(Sheet(n, m).Value)             r(nms(m)) = Sheet(n, m).Value         Next     Next     Tables("合同台账.签约价格").ResumeRedraw() End If 举例： 我的表格内容，一共有3行，第一行为标题行，另外两个为内容行，导入的时候，软件将后面的红白行业导入了，如何避免？

--  作者：有点蓝 --  发布时间：2023/6/8 20:18:00 --       For n As Integer = 1 To Sheet.Rows.Count - 1 if Sheet(n, 0).text > "" then         Dim r As Row = Tables("合同台账.签约价格").AddNew()         For m As Integer = 0 To nms.Length - 1             MessageBox.Show(Sheet(n, m).Value)             r(nms(m)) = Sheet(n, m).Value         Next end if     Next

--  作者：chnfo --  发布时间：2023/6/8 22:04:00 --   如果在excel表中本来就已经把非数据区域的所有格式都清空，可以考虑使用usedrange