Filter Excel-Zeilen mit Hilfe von Excel-Filter oder vb.net

Question

I 17728 Zeilen in diesem Format haben, ich brauche nur die Zeilen zu halten "User aktiv", "Vorname", Nachname enthält "" Gruppe “, "24-Bit-Code-Karte" und "8,16 Bit Kartencode"

wie:.

Benutzer aktiv: Ja

Vorname: Pharma

Nachname: Vis itor 1

...

Und dies für alle 17.728 Zeilen in der Datei.

Gibt es eine Möglichkeit, dies durch Zeilennummer zu tun?

Wenn wir die Zeile Nummer 3 für "Benutzer aktiv" genommen und 19 hinzugefügt haben, landen wir in der zweiten Zeile "Benutzer aktiv". Oder gibt es eine andere Lösung?

Answer 1

Imports Excel = Microsoft.Office.Interop.Excel 

Public Class Form1 

Private Sub Button1_Click(ByVal sender As System.Object, _ 
ByVal e As System.EventArgs) Handles Button1.Click 

    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.ApplicationClass 
    xlWorkBook = xlApp.Workbooks.Open("c:\vbexcel.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) 
End Sub 

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 
End Sub 
End Class 

Quelle: To read the entire worksheet in an Excel workbook through VB.net Code