vs2008 VB查看excel文件有内容的row行数的代码？

参考代码
Dim appExcel As New Microsoft.Office.Interop.Excel.Application’声明excel可执行程序
Dim DocExcel As Microsoft.Office.Interop.Excel.Workbook‘声明workbook，也就是excel文件
Dim MySheet As Microsoft.Office.Interop.Excel.Worksheet '声明sheet
'打开excel文件
DocExcel = appExcel.Workbooks.Open(SrcExcelPath)
appExcel.Visible = True‘显示excel文件
MySheet = DocExcel.Sheets(1)
'从最后一行向上查找使用的行数
MsgBox(MySheet.Range("A65525").End(Excel.XlDirection.xlUp).Row)

备注：
1、使用Microsoft.Office.Interop.Excel需要在程序的顶部引入，使用import
例如：Imports Microsoft.Office.Interop.Excel
此外还需要在工程中添加.NET引用（切记，不可重复添加）
Microsoft.Office.Interop.Excel
2、有些使用usedrange来获取行数的，获取的是使用过的行数，其中会包含已编辑过的空白行的行数。