Import data from axapta table to excel through code


 SysExcelApplication ExcelApplication;  
 SysExcelWorkBooks ExcelWorkBooks;  
 SysExcelWorkBook ExcelWorkBook;  
 SysExcelWorkSheets ExcelWorkSheets;  
 SysExcelWorkSheet ExcelWorkSheet;  
 SysExcelRange ExcelRange;  
 CustTable custTable;  
 int row=1;  
 ExcelApplication = SysExcelApplication ::construct( );  
 ExcelApplication. visible(true) ;  
 ExcelWorkBooks = ExcelApplication. workbooks( );  
 ExcelWorkBook = ExcelWorkBooks. add();  
 ExcelWorkSheets = ExcelWorkBook. worksheets( );  
 ExcelWorkSheet = ExcelWorkSheets. itemFromNum( 1);  
 ExcelWorkSheet. cells().item( row,1).value( 'Account num');  
 ExcelWorkSheet. cells().item( row,2).value( 'Name');  
 row++;  
 while select custTable where custtable.AccountNum like 'c-000*'  
 {  
 ExcelWorkSheet. cells().item( row,1).value( custTable. AccountNum) ;  
 ExcelWorkSheet. cells().item( row,2).value( custTable. Name);  
 row++;  
 }  
 ExcelApplication. finalize( );