Получить цвет ячейки EXCEL на Delphi.

[Stilet]

так ткни пальцем куда смотреть.

Я имел ввиду что оптимизатор (это не ты, а оптимизатор компилятора) по идее эти два цикла вообще не должен был компилировать...

Нужно подсчитать количество переходов из зеленого цвета в желтый

Если не секрет, что это за цвета, и какова изначальная задача?

[as091isk]

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

Я имел ввиду что оптимизатор (это не ты, а оптимизатор компилятора) по идее эти два цикла вообще не должен был компилировать...

Если не секрет, что это за цвета, и какова изначальная задача?

Задача следующая. Есть уже готовый отчет в excel.
На каждой из 50 машин установлено по 4 типа датчиков.
Два раза в сутки определяется работает(зеленый) датчик или нет (Желтый).

Нужно подсчитать кол-во переходов из зеленого в желтый и из желтого в зеленый для составления статистического прогноза (процессы Маркова).

[Stilet]

У-у-у... Ша камни в чей-то город полетять...
Вот два из них:
1) А почему не прописать считку данных в твоей программе? Причем тут Экзель?
2) Если уж считка данных прописана в экзеле, то может лучше именно там составлять прогноз? На VBA допилить макрос.

[as091isk]

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

У-у-у... Ша камни в чей-то город полетять...
Вот два из них:
1) А почему не прописать считку данных в твоей программе? Причем тут Экзель?
2) Если уж считка данных прописана в экзеле, то может лучше именно там составлять прогноз? На VBA допилить макрос.

Ниче, ниче, мне щебенка нужна подъезд к гаражу отсыпать

1) Отчет формируется другой программой, на изменение которой у меня доступа нет.
2) Задумывался о макросе на VBA, но не имею ни практических знаний, ни опыта. Поэтому пока EXCEL через Delphi пока в приоритете.

[Stilet]

Отчет формируется другой программой, на изменение которой у меня доступа нет.

А источник данных для этого отчета известен? Туда доступ есть?

Задумывался о макросе на VBA, но не имею ни практических знаний, ни опыта.

Ну я бы на твоем месте лучше бы всетки потратил время на обучение.

[as091isk]

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

Всем, доброго дня.

Уважаемые эксперты, помогите найти решение проблемы.

У меня есть лист EXCEL с данными, размером 50 строк х 250 столбцов.
Каждая ячейка помимо текста закрашена в один из 4 цветов - зеленый, красный, желтый, коричневый.

Подключаюсь к EXCEL через COM, естественно в потоке.
Данные с листа считываю через объект Range:

Result:=MyExcel.WorkSheets[WorksheetIndex].Range[R].Value;

Проблема в том, что Result содержит только текст. Мне нужен именно цвет каждой ячейки.

При прямом чтении цвета каждой ячейки получаю катастрофически низкую производительность приложения:

RangeColor:=MyExcel.WorkSheets[WorksheetIndex].Range[R];
for row:= 1 to 50 do begin
for col := 1 to 250 do begin
Color:=RangeColor.cells[row,col+5+c+1].Interior.Color;
......
.......
......
end;
end;

Что же делать, как же быть?

Ясно, Всем спасибо за подсказки.

Возвращаемся с самому вопросу.
Существует ли способ заставить EXCEL поучать цвет ячейки с большей производительностью?

[Conejo]

Если удалось решить задачу, поделитесь пожалуйста знаниями. Очень-очень нужно

[as091isk]

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

Если удалось решить задачу, поделитесь пожалуйста знаниями. Очень-очень нужно

Использовал вот эту подсказку

Сообщение от Аватар

И что, как узнать цвет ячеек?

Можно выгрузить как xml-книгу. И пропарсить его. Там в стилях есть цвета заливки и фона, а для каждой ячейки ссылка на стиль. Немного нудно, но зато быстро

Как выгрузить лист EXcel в xml-книгу нашел в ГУГЛЕ (MSDN).
В DELPHI есть стандартные компоненты для xml.

Скорость работы на высоте. Меня устроило. Других более быстрых способов не искал.

Остались вопросы , задавай!

[Conejo]

Спасибо!
У меня пока задача неожиданно вдруг упростилась - красить будут целиком колонки, т.е. достаточно прочитать цвет в шапке.
Но может придется вернуться к старому варианту через месяц