Скачать: CL | DM;

Сортировка в Excel   Найти похожие ветки 

← →
Fonda   (2005-01-31 16:35) [0]

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

---

← →
GanibalLector ©   (2005-02-01 02:55) [1]

> или другим изощрённым способом?
На 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;

---

← →
GanibalLector ©   (2005-02-01 02:56) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c