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

[Mick Winder]

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

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

в Delphi?

 

[Mick Winder]

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

Итак. Всю информацию о методе Sort можно найти в

Ссылка скрыта от гостей

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


Код

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);

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

Код

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

Информацию о числовых значениях для типа xl... можно найти в

Ссылка скрыта от гостей

 

[admin]

Mick Winder
спасибо

 

[Mick Winder]

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

Код

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

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

 

[Barmutik]

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

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

 

[Guest]

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

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

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

 

[Barmutik]

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

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

 

[zubr]

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

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

 

[Barmutik]

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