vb获取excel有多少行

MsgBox Range("a65525")End(xlUp)Row

获取A列最大已用行 以上为excel2003，如2007以上，65525改为1048576。

如要获取整张表格已用最大行，例如A列无数据，但其他列有数据，可用如下：

Msgbox UsedRangeRowsCount

1、VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。

2、 VB读写EXCEL表：VB本身提自动化功能可以读写EXCEL表，其方法如下：

第一步：在工程中引用Microsoft Excel类型库：从"工程"菜单中选择"引用"栏；选择Microsoft Excel 90 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。

第二步：在通用对象的声明过程中定义EXCEL对象：Dim xlApp As ExcelApplicationDim xlBook As ExcelWorkBookDim xlSheet As ExcelWorksheet

第三步：在运用以上VB命令 *** 作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它 *** 作，也能够关闭EXCEL，同时也可对EXCEL进行 *** 作。但在EXCEL *** 作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。

你试用这就行了，是开始有内容的行到最后有内容的行数：

Sub Func1()

Dim SumRows As Integer

Sheets("Sheet2")Select

ActiveSheetUsedRangeRowsCount

End Sub

我一般用以下语句求A列最后一行：

lastrow = Cells(RowsCount, 1)End(3)Row

不使用UsedRange属性来判定使用的行数，改用其他方法：

1、如果知道某一列是必填列，则这一列的行数最多，用End属性来确定最大行数

2、如果已使用的区域中没有整行及整列空，用CurrentRegion属性来确定最大行数。

你是想获取总行数？还是选中行和列的索引？

获取总行数：dataGridView1RowsCount;

获取当前选中行索引：int

i

=

thisdataGridView1CurrentRowIndex;

获取当前选中列索引：int

j

=

thisdataGridView1CurrentCellColumnIndex;

以上就是关于vb获取excel有多少行全部的内容，包括:vb获取excel有多少行、怎样用VB读取Excel文件中表格中的数据、使用Excel VB得到表已使用的行数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！