Показать сообщение отдельно
Старый 16.03.2010, 19:21   #3  
Zlojbarsuk is offline
Zlojbarsuk
Участник
 
26 / 12 (1) ++
Регистрация: 08.08.2007
Excel у меня 2003-й, русский.
Выкладываю рабочий job:

X++:
static void Job56(Args _args)
{
    COM Excel;
    com WBooks, WBook;
    com WSheets, WSheet;
    com Cells;
    com Cell;
    com PageSetup;
    com Worksheet;    
    int         i,j;
    ;

    excel = new Com("Excel.application");

    WBooks = excel.Workbooks();
    WBook  = WBooks.add();

    WSheets = WBook.Worksheets();
    WSheet  = WSheets.item(1);
    Cells   = WSheet.Cells();
    
    PageSetup = WSheet.PageSetup();
    PageSetup.CenterFooter('Страница &P из &N');
    
    i = 1;
    
    while (i <= 50)
    {
        j = 1;
 
        cell =  COM::createFromVariant(cells.Item( i,j));
        cell.NumberFormat('@');
        cell.Value2(strfmt('Ячейка %1 - %2',i,j));
        j++;
        
        cell =  COM::createFromVariant(cells.Item( i,j));
        cell.NumberFormat('@');
        cell.Value2(strfmt('Ячейка %1 - %2',i,j));
        j++;
        
        cell =  COM::createFromVariant(cells.Item( i,j));
        cell.NumberFormat('@');
        cell.Value2(strfmt('Ячейка %1 - %2',i,j));
        j++;
        
        i++;
    }    

    excel.visible(true);
}