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

Вниз

Excel with Delphi   Найти похожие ветки 

← →
drummer   (2003-12-19 15:02) [0]

Помогите плиз разобраться.
Значит создаю я Ексел, пихаю в него данные, а затем мне нужно отсортировать выделенный диапазон. Но вылазит ошибка.

isheet.Range["a4","ag"+inttostr(i-1)].Sort(isheet.Range["ag4","ag"+inttostr(i-1)],xldefault,xldefault,xldefault,xldefaul t,xldefault,xldefault,xldefault,xldefault,xldefault,xldefault,xldefault,xldefault,xldefault,xldefault);

я уж и с параметрами конкретно назначенными пробовал и по дефаулту все выставлял, ниче не помогает. Грит что процедура Sort некорректно завершена.

---

← →
Shirson   (2003-12-19 15:34) [1]

У тебя i это случаем не переменная цикла?

И задавай параметры как надо. Всмысле на. писать толпу xldefault?
Кстати, первым параметром идёт ключ поиска. Там вроде столбец указывают, а ты range запулил.

Так попробуй:
isheet.Range["a4","ag"+inttostr(i-1)].Sort(Key1:=isheet.Range["ag4"], Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom)

---

← →
drummer   (2003-12-22 08:32) [2]

Попробовал, грит не хватает параметров (потому я все дефаултами и забивал, и столбец пробовал - ничего не помогает)

---

← →
Shirson   (2003-12-22 09:16) [3]

Хм... а что такое "ag4" ?

---

← →
drummer   (2003-12-22 09:46) [4]

выделяю диапазон ячеек от "А4" по "AG4"
и пытаюсь отсортировать этот диапазон по колонке "AG4"

да и кстати в тако формате делфи не понимает (.Sort(Key1:=isheet.Range["ag4"], Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom))
ему надо 15 параметров передать.

---

← →
Shirson   (2003-12-22 10:14) [5]

xl:=createoleobject("excel.application");
xl.Workbooks.Open(Filename:="C:\Book3.xls");
xl.visible:=true;
xl.Range["AG1:AG4"].Select;
xl.Range["AG4"].Activate;
xl.Selection.Sort(Key1:=xl.Range["AG1"],Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom);

Работает без проблем...

---

← →
drummer   (2003-12-22 13:47) [6]

10x
Заработало

---

← →
Shirson   (2003-12-22 13:56) [7]

np :)

---

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

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

Наверх

Память: 0.46 MB
Время: 0.012 c