Excel with COM

COM     excelApplication ;

COM     workBooks ;

COM     workSheets ;

COM     workSheet ;

COM     workBook ;

COM     activesheet ;

COM     cells ;

COM     cell ;

COM     selections ;

COM     Range ;

COM     Font ;

int     a,b  ;

;

excelApplication        = new COM("excel.application") ;

excelApplication.visible(true);

workBooks               = excelApplication.workbooks();

workBooks.open("C:\\AX.xls");    //create a xls file first

workBook                = workbooks.item(1) ;

workSheets              = workBook.worksheets() ;

//workSheet               = workSheets.add();  //add a sheet, yes or no

activesheet             = worksheets.item(1) ;

b       = 0 ;

//export var data

for(a=1;a<30;a++)

{

b                       = b+1 ;

range                   = activesheet.range("A"+int2str(a)) ;

range.value2(int2str(b+1)) ;

font = range.font();

font.size(20);

font.name("Arial") ;

}  //The below is export database data

while select name from empltable

where empltable.EmplId == '028'

{

range                   = activesheet.range("A1") ;

range.value2(empltable.Name) ;

font = range.font();

font.size(20);

font.name("Arial") ;

}

//quit and save

workBook.save() ;

workBook.close() ;

excelApplication.quit();