PB中统计EXCEL文件的行列数

PB中统计EXCEL文件的行列数

OLEObject  OLE_MyExcel 

OLE_MyExcel  =Create  OLEObject 

OLE_MyExcel.  ConnectToNewObject("excel.Application")

OLE_MyExcel.visible=false

OLE_MyExcel.Workbooks.Open("c:/xxx.xls") 

messagebox("rows",string(OLE_MyExcel.ActiveWorkbook.Activesheet.UsedRange.Rows.Count))

messagebox("columns",string(OLE_MyExcel.ActiveWorkbook.Activesheet.UsedRange.Columns.Count))

OLE_MyExcel.quit() 

OLE_MyExcel.DisConnectObject() 

destroy  OLE_MyExcel