| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2039 人关注过本帖
标题:VB2008下添加引用和获得EXCEL的表中最后一行行数的问题
只看楼主 加入收藏
tongyu_2006
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-4-11
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:4 
VB2008下添加引用和获得EXCEL的表中最后一行行数的问题
有两个问题请大侠们帮忙:
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”但无论是双击还是选中后点确定,好象都没有什么反应。我该怎么知道目前都已添加了什么引用了呢?

搜索更多相关主题的帖子: EXCEL 
2010-04-11 13:44
czyzhuo
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:17
帖 子:230
专家分:1459
注 册:2010-3-11
收藏
得分:14 
参考一下这里,写得挺详细的
http://blog.
2010-04-13 09:40
tongyu_2006
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-4-11
收藏
得分:0 
有一定的帮助,但并没有给出正确的答案
2010-04-17 15:24
不说也罢
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:39
帖 子:1481
专家分:4989
注 册:2007-10-7
收藏
得分:0 
程序代码:

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



===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================
2010-04-17 18:44
weichch123
Rank: 1
来 自:中华人民共和国
等 级:新手上路
帖 子:16
专家分:0
注 册:2009-5-20
收藏
得分:0 
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
2010-04-19 00:00
快速回复:VB2008下添加引用和获得EXCEL的表中最后一行行数的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016504 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved