PB 读取 Excel

PB 读取 Excel

string ls_fileName
ls_fileName = "c:\x1.xls"

OLEObject ole_excel 
ole_excel = CREATE OLEObject 
IF ole_excel.ConnectToNewObject( "Excel.Application") <> 0 Then 
   MessageBox( " ", "Connect Excel error!") 
    return
END IF

ole_excel.workbooks.open(ls_fileName,0,FALSE) 

int li_RowsCount,li_ColumnsCount
string ls_cell
// Get Rows Count

// li_RowsCount = ole_excel.Workbooks[1].Sheets[1].UsedRange.Rows.Count

li_RowsCount=0
DO WHILE TRUE
   ls_cell = string(ole_excel.Workbooks[1].Sheets[1].Cells(li_RowsCount + 1,1).Value)
   IF isnull(ls_cell) THEN
          EXIT
    ELSE
        li_RowsCount++
    END IF
LOOP
// Get Columns Count

// li_ColumnsCount = ole_excel.Workbooks[1].Sheets[1].UsedRange.Columns.Count

li_ColumnsCount=0
DO WHILE TRUE
   ls_cell = string(ole_excel.Workbooks[1].Sheets[1].Cells(1,li_ColumnsCount + 1).Value)
   IF isnull(ls_cell) THEN
          EXIT
    ELSE
        li_ColumnsCount++
    END IF
LOOP
string msg 
msg = "Rows count: " + string(li_RowsCount) + "~r~nColumns count: " + string(li_ColumnsCount)
messagebox("",msg)

// Get Cell Value
ls_cell = string(ole_excel.Workbooks[1].Sheets[1].Cells(2,1).Value)
if isnull(ls_cell) then
    messagebox("Cell Value","Cell is null")
else
    messagebox("Cell Value",ls_cell)
end if

ole_excel.Quit() 
ole_excel.DisConnectObject() 
Destroy ole_excel

PS: 不知道还有多人用PB 呵呵