VB.NET 打开excel表格有效行

在VB.NET中，你可以使用Microsoft.Office.Interop.Excel命名空间中的Excel对象模型来操作Excel文件，包括打开工作簿并获取有效行数。首先，你需要引用`Microsoft.Office.Interop.Excel`库。下面是一个简单的示例，演示如何打开Excel工作簿并检查有效行数：

Imports Microsoft.Office.Interop.Excel

Public Sub GetValidRows()
    ' 创建Excel应用对象
    Dim excelApp As New Application()
    
    ' 指定要打开的工作簿路径
    Dim workbookPath As String = "C:\path\to\your.xlsx"
    
    ' 打开工作簿
    Dim workbook As Workbook = excelApp.Workbooks.Open(workbookPath)
    
    ' 获取工作表对象
    Dim worksheet As Worksheet = workbook.Sheets(1) ' 假设默认活动工作表是第1张
    
    ' 计算有效行数，通常通过查找空白行或特定条件判断
    Dim lastRow As Integer = worksheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    
    ' 由于Excel索引从1开始计数，减一得到实际的最后一条有效记录行数
    Dim validRowCount As Integer = lastRow - 1
    
    ' 输出有效行数
    Console.WriteLine("有效行数: " & validRowCount)
    
    ' 关闭工作簿并释放资源
    workbook.Close()
    excelApp.Quit()
End Sub