Excel - For Each С In Selection.Cells

[Freinchman]

Есть ли возможность получить список выделенных ячеек в Навижне?

[Sancho]

сорри, ошибся

[romeo]

Цитата:

Сообщение от Freinchman

Есть ли возможность получить список выделенных ячеек в Навижне?

Не совсем понял, что имеется ввиду?
Получить строки, выделенные курсором (синенькие)?

[Sancho]

нет, как я понял, выделить в Excel ячейки и сграбить Навом их адреса

[GGNAME]

Скорее всего возможно, но из excel придётся запускать макрос для этого дела...

[romeo]

Есть еще вариант предложить пользователям готовить данные в экселе в том виде, в котором они УЖЕ обрабатываются навиженом. Возможно это будет быстрее и проще.

[.Quattro.]

У Excel.Application есть свойство Selection, которое содержит в себе выделенный диапазон.

xlApp: Automation 'Microsoft Excel 11.0 Object Library'.Application
xlRange: Automation 'Microsoft Excel 11.0 Object Library'.Range
-------------------------------
xlRange := xlApp.Selection;
MESSAGE(xlRange.Address);

[romeo]

Цитата:

Сообщение от .Quattro.

У Excel.Application есть свойство Selection, которое содержит в себе выделенный диапазон.

А дальше что с этим диапазоном делать? )

[GGNAME]

Цитата:

Сообщение от romeo

Цитата:

Сообщение от .Quattro.

У Excel.Application есть свойство Selection, которое содержит в себе выделенный диапазон.

А дальше что с этим диапазоном делать? )

Я вижу только единственный путь, это запускать из экселя, с помощью макроса, отчёт в навижене и передавать туда выделенный диапозон параметром.

[romeo]

Цитата:

Сообщение от GGNAME

Я вижу только единственный путь, это запускать из экселя, с помощью макроса, отчёт в навижене и передавать туда выделенный диапозон параметром.

Пусть пользователи оформят нужный диапазон значений в столбик в экселе на новом листе, а навиженом засасывают эти данные (для загрузки которых в таком виде наверняка ничего не придется дорабатывать).

[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

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