Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Вниз

Сортировка в Excel 


TDM   (2002-03-18 12:04) [0]

Привет.
Помогите плиз сортировать из делфи в ексель приложениях. Если можно то киньте отрывок кода?

Заранее благодарен!



Кулюкин Олег   (2002-03-18 12:25) [1]

Range.Sort(WorkBook.WorkSheets[1].Columns[5], 2);


Сортирует по пятой колонке п оубыванию.
Range - сотрируемая область
WorkBook.WorkSheets[1].Columns[5] - сортировка по этому столбцу

Последний параметр - тип сортировки (1 - по возрастанию, 2 - по убыванию)

Подробнее см. Help по VBA



TDM   (2002-03-18 12:41) [2]

Спасибо, щас проверю



TDM   (2002-03-18 13:04) [3]

Не работает !!! :=( Объясняю подробнее как все происходит...
Подключаюсь к листу с данными:
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as ExcelWorksheet);

далее пытаюсь отсортировать данные по первому столбцу:
ExcelWorksheet1.Range["A2", "A2"].EntireColumn.Sort("A1", xlAscending);
если оставить так то пишет ошибку что нехватает параметров, а если все остальные параметры сделать EmptyParam то в процессе работы получается ошибка "Invalid variant type conversion"



Кулюкин Олег   (2002-03-18 14:29) [4]

1. Я работал с Excel через OLE, а не через ЕExcelWorksheet, так что о компонентах не скажу ничего.
2. ExcelWorksheet1.Range["A2", "A2"].EntireColumn.Sort("A1", xlAscending);
"A1" - это ячейка, а не столбец.



TDM   (2002-03-19 13:37) [5]

Я так понимаю сдесь нет людей которые помогли бы с этим разобраться?
А куда делись все профиссионалы?
:-(((




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.031 c
1-209             Evgenyk               2002-03-10 16:35  2002.04.01  
Как программно получить данные о версии файла ?


1-243             PEC                   2002-03-20 09:44  2002.04.01  
TEXT


1-147             Doom                  2002-03-20 09:29  2002.04.01  
На первый взгляд вопрос простой...


3-77              Dimedrol              2002-02-13 10:32  2002.04.01  
начинаю с Interbase.


4-346             JAndrey               2002-02-01 01:21  2002.04.01  
????