local oxls,books,newsheet,usedrange,r,c,x
oxls=CREATEOBJECT("excel.application")&&创建excel对象
oxls.application.visible=.t.&&可见
books=oxls.application.workbooks.open("微机.xls")&&打开excel工作薄
newsheet=books.worksheets("sheet1")&&获取工作表
UsedRange =newsheet.UsedRange&&获取已用工作区
r=UsedRange.ROWS.COUNT&&获取行数
c=UsedRange.COLUMNS.COUNT&&获取列数
x=newsheet.cells(1,1).value&&获取某单元格的值
WAIT wind x&&显示该值
oxls.workbooks.close&&关闭工作薄
oxls.quit&&退出excel