Форум: "Основная";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];
Вниз
Сортировка в 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 вся ветка
Форум: "Основная";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.041 c
