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

  • Автор темы Mick Winder
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

Mick Winder

Гость
#1
Как преобразовать вот этот кодик на VBA
Код:
Range("B6:D85").Select
Selection.Sort Key1:= Range("C6"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
в Delphi?
 
M

Mick Winder

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

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

Код в 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... можно найти в
http://msdn.microsoft.com/library/default...._HV01049962.asp
 
M

Mick Winder

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

Код

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

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

Barmutik

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

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

Guest

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

И ничего описывать не надо и велосипед изобретать не надо тоже :(
А если этого файла нет, то что тогда? Я чтой-то искал, но не нашел...
 
B

Barmutik

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

Тогда просто стоит импортуть библиотеку типов MS Excel и Delphi сама создаст такой модуль для Вас :(
 
Статус
Закрыто для дальнейших ответов.