Apr 21, 2016

Excel export

static void exportVendDateToExcel (Args _args)
 {
    VendTable                   _VendTable;
    
    SysExcelApplication         _Application;
    SysExcelWorkbooks           _Workbooks;
    SysExcelWorkbook            _Workbook;
    SysExcelWorksheets          _Worksheets;
    SysExcelWorksheet           _Worksheet;
    SysExcelCells               _Cells;
    SysExcelCell                _Cell;
    
    SysExcelFont                _Font;
    int                         row;
 
    _Application            =           SysExcelApplication::construct();
    _Workbooks              =           _Application.workbooks();
    _Workbook               =           _Workbooks.add();
    _Worksheets             =           _Workbook.worksheets();
    _Worksheet              =           _Worksheets.itemFromNum(1);
    _Cells                  =           _Worksheet.cells();
    _Cells.range('A:A').numberFormat('@');
 
    _Cell = _Cells.item(1, 1);
    _Cell.value("Vend Num");
    _Font = _Cell.font();
    _Font.bold(true);
 
    _Cell = _Cells.item(1, 2);
    _Cell.value("Name");
    _Font = _Cell.font();
    _Font.bold(true);
    row = 1;
 
    while select firstOnly10 _VendTable
    {
        row++;
        _Cell = _Cells.item(row, 1);
        _Cell.value(_VendTable.AccountNum);
        _Cell = _Cells.item(row, 2);
        _Cell.value(_VendTable.name());
    }
 
    _Application.visible(true);
}

No comments:

Post a Comment