一群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
|
|
加好友 
发短信
Post By：2023/12/6 9:38:00 [只看该作者]
