需要导入五千多的EXCEL

每人一张表

只想要之中的  个人姓名

  已缴合计行中的   K列 L列 Q列 R列 的数值

  欠缴合计行中的   K列 L列 Q列 R列 的数值

其中需要统计的 我已经标记颜色了。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:曹成斌.xls

救命啊~~~~~~~大神们。。。着急

参考代码

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