1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

Тема в разделе "Delphi - программирование", создана пользователем Mick Winder, 31 янв 2005.

Статус темы:
Закрыта.
  1. Mick Winder

    Mick Winder Гость

    Репутация:
    0
    Как преобразовать вот этот кодик на VBA
    Код:
    Range("B6:D85").Select
    Selection.Sort Key1:= Range("C6"), Order1:=xlDescending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    в Delphi?
     
  2. Mick Winder

    Mick Winder Гость

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

    Итак. Всю информацию о методе 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
     
  3. admin

    admin Well-Known Member

    Репутация:
    0
    Регистрация:
    8 авг 2003
    Сообщения:
    2.754
    Симпатии:
    1
    Mick Winder
    спасибо
     
  4. Mick Winder

    Mick Winder Гость

    Репутация:
    0
    И еще! Чтобы не описывать const,

    Код

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

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

    Barmutik Гость

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

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

    Guest Гость

    Репутация:
    0
    А если этого файла нет, то что тогда? Я чтой-то искал, но не нашел...
     
  7. Barmutik

    Barmutik Гость

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

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

    zubr Гость

    Репутация:
    0
    Почему, есть и в Delphi5 в каталоге ..\Borland\Delphi5\Ocx\Servers
     
  9. Barmutik

    Barmutik Гость

    Репутация:
    0
    Значит я ошибся ...
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей