Delphi & Excel

← →
warrior © (2003-07-09 22:58) [0]

Все та же старая тема...
Напоролся я на одну штучку....
как выделить в екселе таблицу нашел, а вот как задать параметры сортировки этой выделенной таблицы понять не могу...
я использовал Range.select
пробовал сделать сортировку через Range.Sort() а какие параметры вписать незнаю...., вощем все валится... может кто поможет умной мыслей????

← →
AndrewVolkov © (2003-07-09 23:54) [1]

Selection.Sort Key1:=Range("C5"), Order1:=xlAscending, Key2:=Range("D5") _ , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _ :=xlSortNormal

Что-то около того, я думаю

← →
warrior © (2003-07-10 12:44) [2]

это то что скрипт в екселе пишет, а при переносе в дельфи не получается сортировка....

← →
AndrewVolkov © (2003-07-10 14:37) [3]

Буду дома, тогда смогу проверить...

← →
warrior © (2003-07-10 21:49) [4]

сортировку добил :) заработало....
делал єто примерно так:
XlApp.renge[адр начальной о конечной области].Sort(XlApp.renge[адр начальной о конечной области],1);так она заработала, хотя возможно там еще можна прописывать каки е то параметры...., типа вид сортировки А->Z или Z->A
я так думаю что это задается "1" или "0"..... пока этого не пробовал....
Теперь возник другой вопрос...
Сохранить так чтоб Ексель не спрашивал о перезаписи файла, тоесть я изменил данные в шаблоне и их нужно сохранить без окон диалога Екселя о перезаписи существующей кники....

← →
Marat © (2003-07-11 00:20) [5]

Используй ActiveWorkBook.Close(True,"C:\FileName.xls");
У метода Close первый параметр означает сохранение изменений
при закрытии книги (False соответственно наоборот).
Ну а просто сохранить, без закрытия книги, думаю, понятно как:
ActiveWorkBook.Save;

ActiveWorkBook.Close(True,"C:\FileName.xls");При этом выдает не верное количество параметров
а при ActiveWorkBook.Save; ексель вываливает свое окно с прозьбой о перезаписи файла...
может файл открывать не как
ExcelApp.add() а как ExcelApp.Open()????????

Все, разобрался я сам как сохранить без сообщений Екселевский документ
ExcelApplication.DisplayAlerts := False;
ExcelApplication.Workbooks[1].Close(True,shlyah,1);
ExcelApplication.Quit;
ExcelApplication:=UnAssigned;
вот так оно работает :)

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