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

[sxy2000]

给一百分！！！！！！！！！！！！！！！！！！！！

[sxy2000]

我需要的不是Excel本身的行列数！而是获取任意文件目前有多少行列？？？

[zhanwei]

那你得自己设定范围！

[sxy2000]

谢谢你！
问题是我不知道范围！而且我希望只计算有值的单元格！没有值的不算！有办法吗？
按你的说法，其实范围是多少，算出来的值与范围是一样的！所以，意义不大！

[zhanwei]

你可以在A列最末行加一个特殊值，如'<EOF>'（字符串）
你可以在1行最末列加一个特殊值，如'<EOF>'

在程序中找到位置，然后设定区域，
ole_excel.application.Worksheets("Sheet1").range('A1:XX####')
然后计算区域值即可！

[sxy2000]

怎么加，怎么取？能否再具体一点！本人对VBA不熟！谢谢！

[sxy2000]

怎么加，怎么取？能否再具体一点！本人对VBA不熟！谢谢！

[K999]

试试从这句话中找出"吐破口"

ActiveCell.SpecialCells(xlLastCell).Select

他可以找到 "LastCell"

[K999]

再加两句
Selection.End(xlDown).Select
Selection.End(xlToRight).Select

[zhanwei]

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

[zhanwei]

65536,256
呵呵，列数错了！
ll_row = ole_excel.application.Worksheets("Sheet1").range('A1:B50')Columns.Count