使用vb.net在特定列中查找特定文本/字符串的行

Question

即时通讯新的Vb.net，并想问如何找到特定列中特定字符串的确切行号。例如：

1 CEBE 
2 START 
3 Aico, Pilar 
4 END 

在上面的例子我想获得文本/字符串开头的行数是第2行和END这是在第4行我会怎么做呢？提前致谢。

Answer 1

循环代码按列和行计数。

Dim xlApp As Excel.Application 
    Dim xlWorkBook As Excel.Workbook 
    Dim xlWorkSheet As Excel.Worksheet 
    Dim range As Excel.Range 
    Dim rCnt As Integer 
    Dim cCnt As Integer 
    Dim Obj As Object 

    xlApp = New Excel.Application 
    xlWorkBook = xlApp.Workbooks.Open("c:\Schedule.xlsx") 
    xlWorkSheet = xlWorkBook.Worksheets("sheet1") 

    range = xlWorkSheet.UsedRange 

    For rCnt = 1 To range.Rows.Count 
     For cCnt = 1 To range.Columns.Count 
      Obj = CType(range.Cells(rCnt, cCnt), Excel.Range) 
      MsgBox(Obj.value) 
     Next 
    Next 

    xlWorkBook.Close() 
    xlApp.Quit() 

    releaseObject(xlApp) 
    releaseObject(xlWorkBook) 
    releaseObject(xlWorkSheet) 

末次

Private Sub releaseObject(ByVal obj As Object) 
    Try 
     System.Runtime.InteropServices.Marshal.ReleaseComObject(obj) 
     obj = Nothing 
    Catch ex As Exception 
     obj = Nothing 
    Finally 
     GC.Collect() 
    End Try