• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

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

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?
 
M

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... можно найти в
 
M

Mick Winder

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

Код

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

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

Barmutik

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

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

Guest

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

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

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

Barmutik

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

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

Обучение наступательной кибербезопасности в игровой форме. Начать игру!