Сортировка ячеек в Excel

Как преобразовать вот этот кодик на VBA

Код (Text):

Range("B6:D85").Select
Selection.Sort Key1:= Range("C6"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

в Delphi?

 

Похоже, мне придется самому же ответить на свой вопрос. Пока, дождешься подсказки...

Итак. Всю информацию о методе Sort можно найти в
http://msdn.microsoft.com/library/default...._HV03076391.asp

Код в Delphi будет выглядеть следующим образом:


Код

Код (Text):

App.WorkBooks[1].WorkSheets[1].Range['B6', 'C85'].Sort(App.WorkBooks[1].WorkSheets[1].Range['C6'],
xlDescending, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
xlGuess, 1, False, xlTopToBottom, EmptyParam, xlSortNormal, EmptyParam,
EmptyParam);

Предварительно описав:

Код

Код (Text):

const
xlDescending = 2;
xlGuess = 0;
xlTopToBottom = 1;
xlSortColumns = 1;
xlSortNormal = 0;

Информацию о числовых значениях для типа xl... можно найти в
http://msdn.microsoft.com/library/default...._HV01049962.asp

 

И еще! Чтобы не описывать const,

Код

const
xlDescending = 2;
xlGuess = 0;
xlTopToBottom = 1;
xlSortColumns = 1;
xlSortNormal = 0;

достаточно добавить в модуль uses ExcelXP;

 

Вообще-то это очень просто можно увидеть если открыть модуль ExcelXXX.pas (где XXX - версия Excel) приходящий в поставке с Delphi.

И ничего описывать не надо и велосипед изобретать не надо тоже

 

А если этого файла нет, то что тогда? Я чтой-то искал, но не нашел...

 

Упс ... да я упустил что этот модуль есть в поставке только начиная с Delphi7...

Тогда просто стоит импортуть библиотеку типов MS Excel и Delphi сама создаст такой модуль для Вас :(

 

Почему, есть и в Delphi5 в каталоге ..\Borland\Delphi5\Ocx\Servers

 

Значит я ошибся ...