有两个问题请大侠们帮忙：
1、我用的是VB2008，想打开一个EXCEL文件，取得其中一张表的最后一行的行数，以前在VB6.0下，是这样实现的
dim k as integer
k = Worksheets("表名").Range("A65536").End(xlUp).Row
但在VB2008下，
dim eRange as EXCEL.RANGE
但End里没有xlUp，且End后也没有Row属性，该怎么办啊？

2、在VB2008下如何添加引用呢。
从“项目”下选择“添加引用”，其画面和原来VB6下不一样，COM中列出了可以添加的引用 ,但下面只有“确定”和“取消”两个按钮，我想添加“Microsoft Excel 12.0 Object Library”但无论是双击还是选中后点确定，好象都没有什么反应。我该怎么知道目前都已添加了什么引用了呢？

参考一下这里，写得挺详细的
http://blog.

有一定的帮助，但并没有给出正确的答案

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As New Excel.Application '写到New这里后面按一个空格，出来的列表中有EXCEL,说明正确引用了EXCEL对象了
        Dim b As Excel.Workbook = a.Workbooks.Open("d:\tmp.xls")
        Dim c As Excel.Worksheet = b.Worksheets(1)
        MsgBox(c.Range("A65536").End(Excel.XlDirection.xlUp).Row.ToString())  ' 注意，非 End(xlUp).Row
        a.Quit()
    End Sub
End Class

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As New Excel.Application '写到New这里后面按一个空格，出来的列表中有 EXCEL,说明正确引用了EXCEL对象了
        Dim b As Excel.Workbook = a.Workbooks.Open("d:\tmp.xls")
        Dim c As Excel.Worksheet = b.Worksheets(1)
        MsgBox(c.Range("A65536").End(Excel.XlDirection.xlUp).Row.ToString())  ' 注意，非 End(xlUp).Row
        a.Quit()
    End Sub
End Class