以文本方式查看主题

-  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=189512)

--  作者:lur320
--  发布时间:2023/12/6 9:38:00
--  excel空值的判断
 一群excel有两行,第一行是测试项目,第二行是对应的结果。
但每个文件中,测试项目是不同的,想要通过sheet(0, i).Text <> ""来判断是否以及历遍所有含有文字的列。但是运行的时候出错。空值没有排除掉。

请问如何修改?

For Each file As String In filesys.GetFiles("C:\\Users\\104143\\Desktop\\新建文件夹")
    Tables("QC数据").StopRedraw
    If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
        Dim Book As New XLS.Book(file)
        Dim Sheet As XLS.Sheet = Book.Sheets(1)
        
        For i As Integer = 0 To 100
           
            If sheet(0, i).Text <> "" Then
                Dim dr As DataRow = DataTables("QC数据").AddNew
                
                dr("类型") = "成品数据"
                dr("测试项") = Sheet(0, i).text
                dr("结论") = Sheet(1, i).text
            Else
                i = 99
            End If


--  作者:有点蓝
--  发布时间:2023/12/6 9:41:00
--  
If sheet(0, i).Text.trim > "" Then
--  作者:lur320
--  发布时间:2023/12/6 9:41:00
--  
 刚发完就找到问题了。。。
exit For