| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сортировка в Excel [Visual Basic, Windows]

Fonda ©   (2005-01-31 16:35:00) 

Здравствуйте! Подскажите плиз, как отсортировать список в Excel при помощи Visual Basic или другим изощрённым способом? Буду очень благодарна за ответ!

---

GanibalLector   (2005-02-01 02:56:00) [1]

Ссылка на автора обязательна ;)

---

GanibalLector   (2005-02-01 02:55:00) [2]

> или другим изощрённым способом?
На D устроит ?
var XLApp:OleVariant; i:integer;
begin
// Excel  Sort (by GanibalLector)
// Tested : 01.02.2005
XLApp:=CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.WorkBooks.Add;
XLApp.WorkBooks[1].WorkSheets[1].Name:='test ;)';
for i:=1 to 100 do
XLApp.WorkBooks[1].Sheets[1].Cells[i,1]:=random(1000);
XLApp.Workbooks[1].WorkSheets[1].Range['A1','A100'].Select;
XLApp.Selection.Sort(Key1:=XLApp.Range['A1'], Order1:=1,
Header:=0, OrderCustom:=1, MatchCase:=False, Orientation:=1{, SortMethod :=0});
XLApp.Workbooks[1].WorkSheets[1].Range['A1'].Select; // no select
XlApp:=UnAssigned;
end;

---

Наверх