Макросы в функциях эксель

[Алексей]

В общем есть сформированный функциями отчет в эксель.
Есть желание подбить итоги которые в эксель вызываются по меню "Данные - итоги".

Подобных функций не нашел и решил оформить это макросом.
Но по скольку заранее не знаю какое кол-во строк в отчёте будет - то и макрос соответственно не постоянен и должен формироваться на ходу.

Вопрос: есть ли возможность не загружать макрос из файла или запускать уже описанный в шаблоне а напрямую из ВИПа командами передать построчно макрос и выполнить его?

[m0p3e]

Файл с макросом нужно динамически построчно формировать из VIP-а.

[edward_K]

или запускать макрос с параметром. Еще вариант - в какой нибудь скрытой(белой) ячейке писать требуемое число. Все таки в шаблоне держать макрос проще.

[ilshat]

Но по скольку заранее не знаю какое кол-во строк в отчёте будет

Давно не писал макросов, но помнится есть там возможность определить границу ареала данных т.е. где ж они кончаются на листе.

[Den]

Но по скольку заранее не знаю какое кол-во строк в отчёте будет

Давно не писал макросов, но помнится есть там возможность определить границу ареала данных т.е. где ж они кончаются на листе.

Определить можно с помощью GetUsedRange, но это когда уже выгружены данные..

[Алексей]

спсб. сделал через файл всё-таки. а по границе, да тупо вбил 65000 не промахнусь

[m0p3e]

Для справки. Может поможет
Большинство xl-функций в случае некорректного указания границ используют GetUserRange для определения границ. Пример:

Код: Выделить всё

function  tExporter.InsertRange;
begin
  Result := false;
  if (not IsAllValid) then Exit;
  try
    if (RowU<=0) or (ColL<=0) or (RowD<=0) or (ColR<=0) then
      WSheet.UsedRange.Insert(Shift := lShift)
    else
      WSheet.Range[WSheet.Cells[RowU, ColL], WSheet.Cells[RowD, ColR]].Insert(Shift := lShift);
    LastError := cgxlOk;  Result := True;
  except
    LogOnExcept('InsertRange');
    LastError := cgxlErrInsertRange;
  end
end;