VB2008下添加引用和获得EXCEL的表中最后一行行数的问题

tongyu_2006 发布于 2010-04-11 13:44， 2039 次点击

有两个问题请大侠们帮忙：
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”但无论是双击还是选中后点确定，好象都没有什么反应。我该怎么知道目前都已添加了什么引用了呢？

4 回复

czyzhuo2010-04-13 09:40

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

tongyu_20062010-04-17 15:24

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

不说也罢2010-04-17 18:44

程序代码：

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

weichch1232010-04-19 00:00

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