主题：读取Excel报表问题

msgbox(sheet1(7, i).Text)

If sheet1(7, i).Text > "" Then

End If

加在第一个循环的后面，也就是

for i as integer = 3 to sheet1.Rows.count-1

    If sheet1(7, i).Text > "" Then

    End If

Dim xls As String
Dim s1 As String() ={"办事处","销售人员","采购订单号","项目名称","代理商名称","提货金额","销售合同签订情况","订单类型","提货申请表"}
Dim s,fname As String
Dim xs As Double
Dim sqbname = "提货申请表"
Dim sqb As Boolean = False
Dim n As Integer = 0
Dim m As Integer = Tables("提货申请单").Rows.Count

Dim drs = DataTables("提货申请单").DataRows
For Each dr As DataRow In drs
    sqb = False
    fname = dr("路径") & dr("文件名")
    MsgBox("读取文件fname=" & fname )
    xls = dr("文件名")
    MsgBox("读取文件xls=" & xls )
    If dr("路径") <> "" AndAlso dr("文件名") <> "" AndAlso FileSys.FileExists(fname) Then
        Dim book As new XLS.Book(fname)
        Dim sheet1 As XLS.Sheet = book.Sheets(0)
        For j As Integer = 0 To sheet1.Cols.Count - 1
            If DataTables("提货申请单").DataCols.Contains(sheet1(3, j).text) Then
                dr(sheet1(3,j).text) = sheet1(4,j).text
            End If
        Next
        For i As Integer = 6 To sheet1.Rows.Count-1
            If sheet1(i,0).text > "" Then
                Dim r As Row = Tables("提货申请单").AddNew()
                r("序号") = dr("序号")
                r("文件名") = dr("文件名")
                r("办事处") = dr("办事处")
                r("销售人员") = dr("销售人员")
                r("路径") = dr("路径")
                For j As Integer = 0 To sheet1.Cols.Count - 1
                    If DataTables("提货申请单").DataCols.Contains(sheet1(5, j).text) Then
                        r(sheet1(5,j).text) = sheet1(i,j).text
                    End If
                Next
               
               
            End If
        Next
    End If
Next

For i As Integer = drs.count-1 To 0 Step -1
    drs(i).delete
Next

Tables("提货申请单").AutoSizeCols