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
Заработало

np :)

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