Большой Воронежский Форум
» Программирование>Help по Excel8TLB.dcu
Erema 08:34 24.04.2006
есть у кого Help по Excel8TLB.dcu или какие-либо готовые решения вот этого:
Меня интересует

// ************************************************** *******************//
// Interface: IRange
// Flags: (4112) Hidden Dispatchable
// GUID: {00020846-0001-0000-C000-000000000046}
// ************************************************** *******************//
IRange = interface(IDispatch)
['{00020846-0001-0000-C000-000000000046}']
.......
.......
function Group(Start: OleVariant; End_: OleVariant; By: OleVariant; Periods: OleVariant): OleVariant; stdcall;
.......
.......

(группировка строк области листа книги), никак не получается прикрутить ее к программе.

(Delphi 7)
делаю примерно так:

Сообщение от :
if NRecDiolPR.RecType = 'Razdel'
then
begin
ISheetDiolPR.Range['17', '34'].Rows.Group('17','34','16','1');
ISheetDiolPR.Outline.AutomaticStyles:= false;
ISheetDiolPR.Outline.SummaryRow:= xlAbove;
ISheetDiolPR.Outline.SummaryColumn:= xlRight;
end;

По аналогии из макроса:

Сообщение от :
{
Rows("5:14").Select
Selection.Rows.Group
With ActiveSheet.Outline
.AutomaticStyles = False
.SummaryRow = xlAbove
.SummaryColumn = xlRight
End With
}

Ошибочна строка

Сообщение от :
ISheetDiolPR.Range['17', '34'].Rows.Group('17','34','16','1');

не ясно что именно требуется передать в Rows.Group( )
Эксперименты и вариации завели в окончательный тупик. [Ответ]
Erema 09:30 28.04.2006
Может идеи есть какое либо? [Ответ]
Ivan XXX 19:25 28.04.2006
вапще если все ISheetDiolPR.Range['17', '34'].Rows.Group правильно, то при открытии скопки вылитает пацкаска с кол-вом и типом параметрофф [Ответ]
Erema 09:04 02.05.2006
оттуда все и началось.
Если подсмотреть в файле Excel8TLB.pas то вызов выглядет так:

Сообщение от :
// ************************************************** *******************//
// Interface: IRange
// Flags: (4112) Hidden Dispatchable
// GUID: {00020846-0001-0000-C000-000000000046}
// ************************************************** *******************//
IRange = interface(IDispatch)
['{00020846-0001-0000-C000-000000000046}']
.......
.......
function Group(Start: OleVariant; End_: OleVariant; By: OleVariant; Periods: OleVariant): OleVariant; stdcall;
.......

Но вот толку от этого что-то не очень... [Ответ]
Erema 14:34 23.05.2006
Ну где же все светлые головы города Воронежа? Неужели с приходом тепла на девиц заглядываться начали? [Ответ]
Вверх