Старый 24.04.2006, 08:34   #1   
Форумец
 
Аватар для Erema
 
Сообщений: 1,459
Регистрация: 17.11.2005
Возраст: 43
Записей в дневнике: 9

Erema вне форума Не в сети
Help по Excel8TLB.dcu

есть у кого 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( )
Эксперименты и вариации завели в окончательный тупик.
  Ответить с цитированием
Старый 28.04.2006, 09:30   #2   
Форумец
 
Аватар для Erema
 
Сообщений: 1,459
Регистрация: 17.11.2005
Возраст: 43
Записей в дневнике: 9

Erema вне форума Не в сети
Может идеи есть какое либо?
  Ответить с цитированием
Старый 28.04.2006, 19:25   #3   
аццкий троглодит
 
Аватар для Ivan XXX
 
Сообщений: 3,236
Регистрация: 28.02.2004
Возраст: 39

Ivan XXX вне форума Не в сети
вапще если все ISheetDiolPR.Range['17', '34'].Rows.Group правильно, то при открытии скопки вылитает пацкаска с кол-вом и типом параметрофф
  Ответить с цитированием
Старый 02.05.2006, 09:04   #4   
Форумец
 
Аватар для Erema
 
Сообщений: 1,459
Регистрация: 17.11.2005
Возраст: 43
Записей в дневнике: 9

Erema вне форума Не в сети
оттуда все и началось.
Если подсмотреть в файле 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;
.......
Но вот толку от этого что-то не очень...
  Ответить с цитированием
Старый 23.05.2006, 14:34   #5   
Форумец
 
Аватар для Erema
 
Сообщений: 1,459
Регистрация: 17.11.2005
Возраст: 43
Записей в дневнике: 9

Erema вне форума Не в сети
Ну где же все светлые головы города Воронежа? Неужели с приходом тепла на девиц заглядываться начали?
  Ответить с цитированием
Поиск в теме: 



Быстрый переход:

  Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Support by DrIQ & Netwind