如何在pb中获取Excel表中数据总行数?

[hxbin1979]

前面的代码是:
lo_xlapp = Create OLEObject

li_ret = lo_xlapp.ConnectToNewObject( "Excel.Sheet" )
lo_xlapp.Application.Workbooks.Open(is_savepath)

lo_xlapp.Application.Visible = false
lo_xlsub = lo_xlapp.Application.ActiveWorkbook.Worksheets[1]

我需要从Excel表中提取字段数据,根据此字段数据在数据库中查询结果
在把结果填充到Excel表相应的字段中.
在使用for循环时必须取得Excel表中数据总行数
当循环超出Excel表数据总行数,程序将出错.

如果不能获取总行数的话,我只能把Excel中的数据导到datawindow里面处理了.

[balloonman2002]

读取EXCEL行数的：
ole_workbooks = myole.Worksheets(1)
ll_rows=ole_workbooks.UsedRange.Rows.Count
messagebox("rows",string(ll_rows))


读取EXCEL列数的：
ole_workbooks = myole.Worksheets(1)
ll_rows=ole_workbooks.UsedRange.columns.Count
messagebox("rows",string(ll_rows))

************************************************

UsedRange 属性
请参阅 应用于 示例 特性
返回代表指定工作表上已使用区域的 Range 对象。只读。

示例
本示例选定 Sheet1 中的已用区域。

Worksheets("Sheet1").Activate
ActiveSheet.UsedRange.Select