Excel - For Each С In Selection.Cells

[Storkich]

tFileName := "Common Dialog Management".OpenFile(
    'Откртыть',recSetup."Import Path",DefaultFileType::Excel);
CREATE(objApp, TRUE);
objWbk := objApp.Workbooks.Open(tFileName);
objWsh := objWbk.Worksheets.Item(1);
objWsh.Application.Visible(TRUE);
IF NOT CONFIRM('Переключитесь на Excel.\Выделите диапазон.\Переключитесь на Navision и нажмите %1', TRUE, TRUE) THEN
  ERROR('');
objRng := objWsh.Application.Selection;
REPEAT
  objCell := objRng.Cells.Item(iRow,iCol);
  message('%1',objCell.Value);
UNTIL

Ну как-то так.