2016-05-06 2 views
0

enter image description hereфильтра строк Excel с помощью фильтра Excel или vb.net

У меня есть 17728 строк в этом формате, мне нужно держать только строки, содержащие «активный пользователь», «Имя», Фамилия «» Группа », "24 битный код карты", и "8,16 бит код карты"

как:.

Пользователь активен: Да

Имя: Pharma

Фамилия: Vis itor 1

...

И это для всех 17728 строк в файле.

Есть ли способ сделать это по номерам строк?

Если мы взяли номер строки 3 для «User active» и добавили 19, мы приземлимся на вторую строку «User active». Или есть ли другое решение?

+0

Поместите автоматический фильтр на колонке и фильтр для всего, что вы хотите сохранить (или удалить). – Leviathan

+0

Спасибо, @Leviathan за ваш ответ, но мне нужно было это сделать в vb.net. – Tony

ответ

0
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 

Источник: To read the entire worksheet in an Excel workbook through VB.net Code

 Смежные вопросы

  • Нет связанных вопросов^_^