怎样从Axapta中导出数据到Excel

 

void clicked()

{

       #Excel

       HWND HWND;

       SysExcelApplication excel;

       SysExcelWorkbooks books;

       SysExcelWorkbook book;

       SysExcelWorksheets sheets;

       SysExcelWorksheet sheet;

       SysExcelRange columns;

       SysExcelRange column;

       SysExcelCells cells;

       SysExcelCell cell;

       SysExcelStyle ExcelStyle;

       SysExcelFont ExcelFont;

       SysExcelFormatCondition FormatCondition;

 

 

       InventTable IT;

       int i = 0,j = 0;

 

       excel = SysExcelApplication::construct();

       books = excel.workbooks();

       book = books.add();

       Sheets = book.worksheets();

       sheet = sheets.itemFromNum(1);

       sheet.name('ItemGroup=Goup1');

       super();

 

 

       while select InventTable.ItemGroupID='Group1'

       {

              excel.visible(true);

              sheet.cells().item(2,1).value("Item ID"); // item(row,column)

              sheet.cells().item(2,2).value(IT.itemid);

 

              sheet.cells().item(3,1).value("Item Name");

              sheet.cells().item(3,2).value(It.Name);

              sheet.cells().item(3,1).value().handle();

              ExcelFont.bold(true);

       }

 

}