VB.NET - 读取 Excel 文件的全部内容

Question

我已经知道如何使用 VB.NET 读取 .xls 文件的特定单元格的基本过程，但我不知道如何自动从此类文件中获取所有数据。

基本上，我获取的数据是这样的：

Dim xlApp As Excel.Application
Dim wb As Workbook
Dim ws As Worksheet
xlApp = New Excel.Application
wb = xlApp.Workbooks.Open("myfile.xls")
ws = wb.Worksheets("worksheet1")
For Each cell In ws.Range("A1", "C10")
     Console.WriteLine(cell.value)
Next

在这种情况下，我知道 A、B 和 C 列的前 10 行中会有内容，但是如果我有一个大小如此巨大的文档，我该怎么办内容甚至可能会不时发生变化？我知道还有一个属性 ws.rows.count 但它总是返回一个像 60000 这样的大值，即使只有几行被占用。

所以基本上，我正在寻找一种简单的方法来循环遍历 Excel 文件的所有已使用的行，并可以访问该行中的每个单元格。

Answer 1

在 VBA 中 - 与 VB.NEt 不同（所以我在这里可能偏离目标），您可以使用

ActiveSheet.UsedRange
MsgBox ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

（根据需要“重置”UsedRange 的第一行，SpecialCells(xlCellTypeLastCell) 通常会给出比实际存在的范围更大），或更常见

或

Dim rng1 As Range
Set rng1 = ActiveSheet.Cells.Find("*", [a1], xlValues, , xlByRows, xlPrevious)
If Not rng1 Is Nothing Then MsgBox rng1.Row

Answer 2

仍然在 VBA 中，我们经常使用 End 语句来解决此类问题：

ws.Cells(Rows.Count, "A").End(xlUp).Row

更改列名称或编号以满足您的需要（或者以与最后一行相同的方式使用 End 查找它） (xl左)

Answer 3

这是我过去使用过的一个例子。

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

        xlApp = New Excel.ApplicationClass
        xlWorkBook = xlApp.Workbooks.Open("c:\test1.xlsx")
        xlWorkSheet = xlWorkBook.Worksheets("sheet1")
        'display the cells value B2
        MsgBox(xlWorkSheet.Cells(2, 2).value)
        'edit the cell with new value
        xlWorkSheet.Cells(2, 2) = "http://vb.net-informations.com"
        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

Answer 4

Dim aDataTemp = xl.Worksheets(sSheetName).UsedRange.value

Answer 5

使用 Spire.XLS 可以轻松读取所有可用单元格，例如：

Dim workbook As New Workbook
workbook.LoadFromFile("your-excel-file.xls")
Dim worksheet As Worksheet = workbook.Worksheets(0)
Dim range As CellRange = worksheet.AllocatedRange
Console.WriteLine("LastRow Index: {0}, LastColumn Index:{1}", range.LastRow, range.LastColumn)
For Each cell As CellRange In range.Cells
    If cell.IsBlank Then
        Continue For
    End If
    Console.WriteLine("{0} = {1}", cell.RangeAddressLocal, cell.Value2)    
Next