主题：导入问题。求助。。

参考代码

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim book As new XLS.Book(dlg.FileName)
    Dim sheet As XLS.Sheet = book.Sheets(0)
    For i As Integer = 0 To sheet.Rows.Count-1
        If sheet(i ,1).Text = "已缴合计" Then
            Dim yj_10 As String = sheet(i, 10).text
            Dim yj_11 As String = sheet(i, 11).text
            Dim yj_16 As String = sheet(i, 16).text
            Dim yj_17 As String = sheet(i, 17).text
            msgbox(yj_10 & " " & yj_16)
           
            Dim qj_10 As String = sheet(i+1, 10).text
            Dim qj_11 As String = sheet(i+1, 11).text
            Dim qj_16 As String = sheet(i+1, 16).text
            Dim qj_17 As String = sheet(i+1, 17).text
            msgbox(yj_10 & " " & yj_16)
            Dim xm As String = sheet(i-4, 1).text
           
            msgbox(xm.SubString(3))
        End If
    Next
End If