Получение максимального числа заполненных ячеек с помощью vb.net - PullRequest
0 голосов
/ 05 ноября 2010

Есть ли способ получить максимальное количество ячеек, заполненных пользователем, в листе Excel, не пропуская диапазон или итеративно просматривая максимальное количество ячеек в таблице Excel?

сейчас у меня есть

Imports Excel = Microsoft.Office.Interop.Excel
Private Sub DoStuff()
      Dim oApp As New Excel.Application
      Dim oWB As Excel.Workbook
      Dim oSheet As Excel.Worksheet

      oWB = oApp.Workbooks.Open(txtExcel.Text)
      oSheet = CType(oWB.ActiveSheet, Excel.Worksheet)

      For Each iCount As Integer in oSheet.Cells.Rows.Count
        'get cell text for every row in a specific column'
        dim sCellText as string = oSheet.Cells(iCount, 1).toString
        'do stuff'
      Next
End Sub

Прямо сейчас oSheet.Cells.Rows.Count = 1048576 и просматривая лист, есть менее 1000 строк данных.

1 Ответ

1 голос
/ 05 ноября 2010

Попробуйте oSheet.UsedRange
Здесь вы можете проверить столбец в экземпляре Range, возвращенном выше, чтобы определить ячейки, заполненные в конкретном столбце.

OR

WorksheetFunction.CountA(range("A1:A20000"))

...