• 全部
  • API 调用
  • 基础类
  • 控件与界面
  • 数据库相关
  • DataWindow
  • 项目管理
  • Web 应用
  • 脚本语言

如何获知正在通信的EXcel文件中总共有多少行列????急!!!!!!

sxy2000 2002-04-12 10:52:38
给一百分!!!!!!!!!!!!!!!!!!!!
...全文
52 点赞 收藏 10
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
zhanwei 2002-04-12
65536,256
呵呵,列数错了!
ll_row = ole_excel.application.Worksheets("Sheet1").range('A1:B50')Columns.Count
回复
zhanwei 2002-04-12
65536,65536
呵呵,代码如下:

oleobject ole_excel
long ll_row
ole_excel = create oleobject
ole_excel.connecttoobject("c:\book1.xls")
ll_row = ole_excel.application.Worksheets("Sheet1").Rows.Count
messagebox('',string(ll_row))

destroy ole_excel
我建议,你指定范围再查,如:

oleobject ole_excel
long ll_row
ole_excel = create oleobject
ole_excel.connecttoobject("c:\book1.xls")
ll_row = ole_excel.application.Worksheets("Sheet1").range('A1:B50')Rows.Count
messagebox('',string(ll_row))

destroy ole_excel
回复
K999 2002-04-12
再加两句
Selection.End(xlDown).Select
Selection.End(xlToRight).Select
回复
K999 2002-04-12
试试从这句话中找出"吐破口"

ActiveCell.SpecialCells(xlLastCell).Select

他可以找到 "LastCell"
回复
sxy2000 2002-04-12
怎么加,怎么取?能否再具体一点!本人对VBA不熟!谢谢!
回复
sxy2000 2002-04-12
怎么加,怎么取?能否再具体一点!本人对VBA不熟!谢谢!
回复
zhanwei 2002-04-12
你可以在A列最末行加一个特殊值,如'<EOF>'(字符串)
你可以在1行最末列加一个特殊值,如'<EOF>'

在程序中找到位置,然后设定区域,
ole_excel.application.Worksheets("Sheet1").range('A1:XX####')
然后计算区域值即可!
回复
sxy2000 2002-04-12
谢谢你!
问题是我不知道范围!而且我希望只计算有值的单元格!没有值的不算!有办法吗?
按你的说法,其实范围是多少,算出来的值与范围是一样的!所以,意义不大!
回复
zhanwei 2002-04-12
那你得自己设定范围!
回复
sxy2000 2002-04-12
我需要的不是Excel本身的行列数!而是获取任意文件目前有多少行列???
回复
相关推荐
发帖
PowerBuilder
创建于2007-09-28

856

社区成员

PowerBuilder 相关问题讨论
申请成为版主
帖子事件
创建了帖子
2002-04-12 10:52
社区公告
暂无公告