Dynamics AX2012 Excel导出文件排版和格式

中途接手的一个Excel文件导出

排版和格式如下

private void writeData(SysExcelWorksheet _sheet, container _conData)
{
    int     i;
    int     j;

    container   conLine;

    int row = 2;

    for (i=1; i<=conLen(_conData); i++)
    {
        conLine = conPeek(_conData, i);

        progressBar.incCount();
        //progressBar.setText(conPeek(line, 2) + ' ' + conPeek(line, 4));

        for (j=1; j<=conLen(conLine); j++)
        {
            if (conPeek(conLine, j))
            {
                if (j>=2)
                   _sheet.cells().item(row, j).value(conPeek(conLine, j));
                else
                   _sheet.cells().item(row, j).value(row-1);
            }
        }

        row++;
    }
}

 ______________________________________________

public void run()
{
    SysExcelApplication excel;
    SysExcelWorkbooks   books;
    SysExcelWorkbook    book;
    SysExcelWorksheets  sheets;
    SysExcelWorksheet   sheet,sheet1;

    container       conData;

    conData = this.prepareData();

    if (!conLen(conData))
    {
        info("There is no data.");
        return;
    }
    progressBar = SysOperationProgress::newGeneral(#AviFormLetter, 'Exporting...', conLen(conData));

    excel = SysExcelApplication::construct();
    excel.visible(false);
    excel.displayAlerts(false);
    books = excel.workbooks();

    books.comObject().open(filenameOpen);

    book = books.item(1);
    Sheets = book.worksheets();
    sheet  = sheets.itemFromNum(1);

    this.writeData(sheet, conData);

    excel.visible(true);

    progressBar.kill();
}

 

ps:活学活用