![]() |
|
Модераторы: Akina |
![]()
|
|
| MABUD |
|
|||
|
Unregistered |
Товарищи. Помогите, уж не знаю, что и делать
Кто-нить может использовал метод Sort в Excel: Все вроде просто: ShGrRyad.OleProcedure("Select");//страница Rang=ShGrRyad.OlePropertyGet("Range","a1"); Variant Rt=Rang.OleFunction("Select"); int xlAscending=1,xlYes=1,xlTopToBottom=1; Variant Rang2,Rang3; Rang2=ShGrRyad.OlePropertyGet("Range","b1"); Rang3=ShGrRyad.OlePropertyGet("Range","c1"); App.OlePropertyGet("Selection").OleProcedure("Sort",Rang,xlAscending,Rang2,Variant::NoParam(),xlAscending, Rang3,xlAscending,xlYes,1,false,xlTopToBottom); Сортировка по 3 столбцам. Но как я ни кручу уже 2 дня, сортируется сначала поле А, потом С и все. Не верите, попробуйте сами - всего лишь интерпретация кода VBA, стандартная ф-ия, че за чушь? Подскажите пож-ста хоть что-нибудь, а то я замучился просто... |
|||
|
||||
| <Spawn> |
|
|||
![]() Око кары:) ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 2776 Регистрация: 29.1.2003 Где: Екатеринбург Репутация: нет Всего: 64 |
MABUD Вот пример на Дельфи . Если не разберешься спрашивай.
-------------------- "Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков. |
|||
|
||||
| RAN |
|
|||
|
Опытный ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 709 Регистрация: 14.3.2003 Где: Щёлково Моск.обл. Репутация: нет Всего: 6 |
Модератор: Перемещено из С++
|
|||
|
||||
![]()
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |