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

sxy2000 2002-04-12 10:52:38
给一百分!!!!!!!!!!!!!!!!!!!!
...全文
90 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
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本身的行列数!而是获取任意文件目前有多少行列???

1,108

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧