VB.NET获取excel某列有数据的单元格有多少行

要获取Excel中某列有数据的单元格有多少行，您可以使用VB.NET中的Excel Interop库来实现。以下是一个示例代码，演示了如何获取某列有数据的单元格行数：

Imports Microsoft.Office.Interop

Public Class Form1
    Private Sub GetColumnRowCountButton_Click(sender As Object, e As EventArgs) Handles GetColumnRowCountButton.Click
        ' Excel文件路径
        Dim filePath As String = "路径\文件名.xlsx"

        ' 创建Excel应用程序对象
        Dim excelApp As New Excel.Application()
        ' 打开工作簿
        Dim workbook As Excel.Workbook = excelApp.Workbooks.Open(filePath)
        ' 获取工作表
        Dim worksheet As Excel.Worksheet = workbook.Sheets("Sheet1")

        ' 获取要计算行数的列的范围
        Dim columnRange As Excel.Range = worksheet.Range("A:A")  ' 例如，计算A列有数据的行数

        ' 获取有数据的单元格范围
        Dim usedRange As Excel.Range = columnRange.SpecialCells(Excel.XlCellType.xlCellTypeConstants)

        ' 获取行数
        Dim rowCount As Integer = usedRange.Rows.Count

        ' 关闭工作簿并退出Excel应用程序
        workbook.Close()
        excelApp.Quit()

        ' 释放资源
        ReleaseObject(usedRange)
        ReleaseObject(columnRange)
        ReleaseObject(worksheet)
        ReleaseObject(workbook)
        ReleaseObject(excelApp)

        MessageBox.Show("有数据的行数：" & rowCount.ToString())
    End Sub

    ' 释放对象资源的方法
    Private Sub ReleaseObject(obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
            MessageBox.Show("释放资源时发生错误：" + ex.ToString())
        Finally
            GC.Collect()
        End Try
    End Sub
End Class

在上述代码中，我们使用`Open`方法打开Excel工作簿，并使用`Sheets`属性获取指定名称的工作表。然后，我们使用`Range`方法指定要计算行数的列范围（例如"A:A"表示计算A列有数据的行数）。

接下来，我们使用`SpecialCells`方法获取有数据的单元格范围，并使用`Rows.Count`属性获取行数。

最后，我们关闭工作簿并退出Excel应用程序，并释放资源。

请注意，您需要根据实际情况修改Excel文件路径和要计算行数的列范围。

希望这可以帮助到您！