function main () 
  
 local oExel 
 local osheet 
 local ocell 
 local opagebreak 
 local line_break 
 local time1 
 local time2 
  
 cls 
 time1 := time() 
 If ( oExcel := win_oleCreateObject( "Excel.Application" ) ) != NIL 
       oExcel:Visible := .t.  
       oWorkBook := oExcel:WorkBooks:open("D:\PUBLIC\harbexamp\obdc.xls") 
       osheet := oWorkBook:WorkSheets(1) 
       opagebreak := osheet:HPageBreaks()  
       line_break := 0 
       For I:= 1 to 200 
           line_break := line_break + 20 
           ocell := osheet:cells(line_break, 1) 
           opagebreak: add (ocell) 
       next 
    oExcel:Visible := .t.  
 time2 := time () 
 @ 1,1 say "Time1="+ time1 + " Time2=" + time2   
 inkey (0)   
 EndIf