| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3508 人关注过本帖
标题:VB6.0 如何读取 EXCEL 中最后一行指定的列?
只看楼主 加入收藏
jingfang_434
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2009-10-24
结帖率:33.33%
收藏
已结贴  问题点数:10 回复次数:3 
VB6.0 如何读取 EXCEL 中最后一行指定的列?
图片附件: 游客没有浏览图片的权限,请 登录注册


寻求帮助,如何读取最后一行中的C5呢?

最好能贴出全的代码,小弟初学
搜索更多相关主题的帖子: EXCEL 如何 最好 
2014-05-08 18:11
chen3523
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:33
帖 子:223
专家分:1165
注 册:2013-2-12
收藏
得分:5 
C5在VB中表示为:xlsheet.cells(5,3)  '第5行第3列
因编程电脑坏了,没试验过只是臆想a=xlsheet.cells(5,3)

调试失败3次后,关机睡觉,当醒来时多有收获。
2014-05-08 21:38
大赖皮雄
Rank: 1
等 级:新手上路
帖 子:4
专家分:5
注 册:2014-5-9
收藏
得分:5 
首先要建立excel对象,然后用对象打开工作薄文件,再到工作薄文件里去打开工作表,最后才能读写单元格内容。
2014-05-09 11:29
xw_hjs
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2015-5-9
收藏
得分:0 
在“工程”“部件”中添加“Microsoft Common Dialog Control 6.0”,在窗体中加入此控件及Command1,再写入以下代码:
Private Sub Command1_Click()
Dim xlApp
Dim xlBook
Dim xlSheet1
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(CommonDialog1.FileName)
Set xlSheet1 = xlBook.sheets(1)

msgbox xlSheet1.UsedRange.column.Count     '弹出窗口说明在第几列

xlBook.Close savechanges:=True
xlApp.Quit
Set xlSheet1 = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
end sub
2015-05-09 21:00
快速回复:VB6.0 如何读取 EXCEL 中最后一行指定的列?
数据加载中...
 
   



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

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