VFP取指定Excel表的行数和列数

VFP取指定Excel表的行数和列数

2009年07月13日星期一 06:59

local strPathOfXls

strPathOfXls=GETFILE("xls","图书信息","",0,"选择文件")

oExcelApp=createobject( "excel.application")

oExcelApp.workbooks.open(strPathOfXls)

oExcelApp.worksheets(oExcelApp.sheets(1).name).UsedRange.Rows.Count &&获取指定文件的行数

oExcelApp.worksheets(oExcelApp.sheets(1).name).UsedRange.columns.Count&&获取指定文件的列数注：上面的代码执行效率很低，选择文件后要7秒才有反应

总行： oExcelApp.activesheet.Range("A65536").End(-4162).Row A列从下往上数第一个不为空的行号。

总列：oExcelApp.activesheet.Range("IV5").End(-4159).Column 第5行从右往左数第一个不为空的列号。

以上语句能获得正确的行数和列数，而且效率高很多，不到1秒 推荐。 关于行与列的其他语句说明：

1、oExcelApp.Range(eole.Range("A1"),

eole.ActiveCell.SpecialCells(11)).Select

语句功能：测试某一个单元个是否有数据，如果有，返回.t.

2、oExcelApp.activesheet.usedrange.rows.count

语句功能：获得工作簿中所有工作表的最大行数表的行数（好像是滚动条拖到末尾的行数，不包括下箭头继续向下滚动的行数），包括表尾的空行。 oExcelApp.activesheet.usedrange.columns.count

语句功能：获得工作簿中所有工作表的最大列数表的列数