Excel. пустые ячейки

[S.Kuskov]

Интересно. Видимо второй (и последующие) вызов метода item() натыкается на какой-то мусор, оставшийся после первого вызова. А вызов info() каким-то образом подчищает этот мусор.

В качестве workaround могу предложить позиционироваться на ячейке при помощи метода offset:

static void checkExcell(Args _args)
{
    FilePath path='';
    container conFilter = ["Файл  (*.xls)", "*.xls"];
    SysExcelApplication exappl;
    SysExcelCells excells;
    SysExcelWorksheets exsheets;
    SysExcelWorksheet exsheet;
    SysExcelCell excell; // fix
    int row;
    real a,b;
    ;

    path = WinAPI::getOpenFileName(0,conFilter,"", "Укажите файл ",'',"");
    if (!path) return;

    exappl = SysExcelApplication::construct();
    exappl.workbooks().open(path);
    exsheets = exappl.workbooks().item(1).worksheets();
    exsheet = exsheets.itemFromNum(1);
    excells = exsheet.cells();
    excell = excells.item(1,1); // fix
    
    for(row = 1;row<3;row++)
    {
        //a = excells.item(row,1).value().double();
        a = excell.offset(row - 1, 0).value().double(); // fix
        
        //info(strfmt('%1',a));                          // строка 1
        
        //b = excells.item(row,2).value().double();
        b = excell.offset(row - 1, 1).value().double(); // fix
        
        info(strfmt('%1',a));                            // строка 2
        info(strfmt('%1',b));
    }

    exappl.quit();
}

[Димитрий]

Да, действительно. Так заработало корректно.

Но, код подобного типа расскидан по системе, т.к. даже не думал, что можно в такое вляпаться. Честно скажу, что в большей степени бы порадовала заплатка на класс работы с Экселем.

[Димитрий]

Да, так и получилось. На SysExcelCells

public SysExcelCell item(int _row, int _column, boolean first = false)
{
    if (first)
        return SysExcelCell::construct(version,COM::createFromVariant(cells.item(_row,_column)));
    else
    {
        if (!excell)
            excell = this.item(1,1,true); 
        return excell.offset(_row - 1, _column-1); 
    }
}

В декларации добавляем

SysExcelCell excell;

Работает.

[Димитрий]

Но проблем при такой заплатке есть.

Если первая ячейка объединена с рядом стоящими, то работает неверно.