VPF::Excel again - Форум программистов

December

Дата 19.10.2003, 18:15 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57

Greetings All!
Хелп срочно, please, как из-под Дельфей приказать Excelю отсортировать данные по такому-то ключу с такими-то праметрами.
Например, MySheet.Range['A1:D10'].Sort(ШО ПИСАТЬ?);

Вижл басик такой пример даёт, но с чем его съесть?

Цитата

This example sorts the range A1:C20 on Sheet1, using cell A1 as the first sort key and cell B1 as the second sort key. The sort is done in ascending order by row, and there are no headers.

Worksheets("Sheet1").Range("A1:C20").Sort _
Key1:=Worksheets("Sheet1").Range("A1"), _
Key2:=Worksheets("Sheet1").Range("B1")This example sorts the region that contains cell A1 (the active region) on Sheet1, sorting by the data in the first column and automatically using a header row if one exists. The Sort method determines the active region automatically.

Worksheets("Sheet1").Range("A1").Sort _
Key1:=Worksheets("Sheet1").Columns("A"), _
Header:=xlGuess

--------------------

Для друзей с винграда - скидки на разработку сайтов

December

Дата 22.10.2003, 21:00 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57

Ну что, никто не знает? Вот блин...
Покажите хотя бы пример, как передать два параметра какой-нибудь Excelевской функции с прямой адресацией на ячейки...

--------------------

Для друзей с винграда - скидки на разработку сайтов

<Spawn>

Дата 22.10.2003, 22:53 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Код

function ActivateOLEObject(AppProgId:string):OleVariant;
var
hRes:HRESULT;
Unknown:IUnknown;
Reg:TRegistry;
begin
Result:=UnAssigned;

try
 Reg:=TRegistry.Create;
 with Reg do
 begin
   RootKey:=HKEY_CLASSES_ROOT;
   if not KeyExists(AppProgId) then
     Exit;
 end;
finally
 FreeAndNil(Reg);
end;

hRes:=GetActiveObject(ProgIDToClassID(AppProgID),nil,Unknown);
if hRes=MK_E_UNAVAILABLE then
 Result:=CreateOleObject(AppProgID)
else
 Result:=GetActiveOleObject(AppProgID);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
WorkBook, Excel, Cell1, Cell2:OleVariant;
begin
Excel:=ActivateOLEObject('Excel.Application');
WorkBook:=Excel.WorkBooks.Open(ExtractFIlePath(ParamStr(0))+'Книга1.xls');
Cell1:=WorkBook.WorkSheets[1].Cells[1,1]; //A1
Cell2:=WorkBook.WorkSheets[1].Cells[6,2]; //B6
WorkBook.WorkSheets[1].Range[Cell1,Cell2].Sort(Cell1, EmptyParam, WorkBook.WorkSheets[1].Cells[1,2]);
Excel.Visible:=True;
end;

В Sort :
Сell1 - Key1 (A1)
WorkBook.WorkSheets[1].Cells[1,2] - Key2 (B1)

Это сообщение отредактировал(а) <Spawn> - 22.10.2003, 22:55

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

December

Дата 25.10.2003, 19:07 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57

<Spawn> Огромное человеческое спасибо!

--------------------

Для друзей с винграда - скидки на разработку сайтов

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »