标题：excel空值的判断

1楼

lur320 发表于：2023/12/6 9:38:00

一群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

2楼

有点蓝 发表于：2023/12/6 9:41:00

If sheet(0, i).Text.trim > "" Then

3楼

lur320 发表于：2023/12/6 9:41:00

刚发完就找到问题了。。。

exit For

共3 条记录, 每页显示 10 条, 页签: [1]