На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS
msm.ru
! Правила раздела
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаль.

1. В этом разделе обсуждаются только вопросы, связанные с использованием технологий OLE/COM/ActiveX в Delphi.
2. Запрещается создание и развитие тем, связанных с обсуждением вареза, а также технологий создания вирусов и всякого рода вредоносных программ.
3. На раздел распространяются все Правила Форума.
4. Нарушение Правил может повлечь наказание со стороны администраторов или модераторов форума.
Внимание:
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней. Повторная попытка - 60 дней. Последующие попытки - бан.

Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы


Выразить свое отношение к модераторам раздела можно здесь: user posted image Krid, user posted image jack128, user posted image Romkin, user posted image Rouse_
Модераторы: Krid, jack128, Romkin, Rouse_
  
> Не работает функция Excel из надстроек, Delphi + Excel
    Делаю
    ExpandedWrap disabled
      Workbook:=exl.Application.WorkBooks.Open(ExtractFilePath(Application.ExeName)+'template.xls');
      // передаем данные в ячейки
      ...
      WorkBook.SaveAs(ExtractFilePath(Application.ExeName)+'newbook.xls');

    При формировании данных программно, не работает функция в экселе ЧИСТВНДОХ из пакета анализа Analysis. Пробывала ее и в шаблон зашить(template.xls) и программно передать:
    ExpandedWrap disabled
      Sheet.Range['D'+IntToStr(i+4)].FormulaLocal:='=ЧИСТВНДОХ (F7:F'+IntToStr(i-1)+';A7:A'+IntToStr(i-1)+')';


    В экселе надстройка "Пакет анализа" включена. Файлы для этой надстройки(ATPVBAEN.XLA, FUNCRES.XLA,PROCDB.XLA,ANALYS32.XLL).
    Согласна учиться круглыми сутками
      Возможно, пойдет английское наименование. Либо доступ через Formula, но к русскому названию :)
      Особенности работы
      Beware the wild rabbit.
        Цитата Romkin @
        Возможно, пойдет английское наименование. Либо доступ через Formula, но к русскому названию :)
        Особенности работы

        Спасибо, но дело не в этом :rolleyes:
        я вот каким способом решила эту проблему:
        ExpandedWrap disabled
            Workbook:=exl.Application.WorkBooks.Open(ExtractFilePath(Application.ExeName)+'template.xls');
           
             exl.Application.Run('qwerty');


        где qwerty - макрос, зашитый в template.xls.
        В данном макросе вот это:
        ExpandedWrap disabled
              AddIns("Пакет анализа").Installed = False
              AddIns("Пакет анализа").Installed = True


        вот такие пироги. При чем такое не прокатывает:

        ExpandedWrap disabled
              AddIns("Пакет анализа").Installed = True


        невероятно, но факт :ph34r:
        Согласна учиться круглыми сутками
          Инверсия ;)
          Согласна учиться круглыми сутками
            Вместо макроса из Delphi делаем вот так:

            EA.AddIns['Analysis ToolPak - VBA'].Installed:=false;
            EA.AddIns['Analysis ToolPak - VBA'].Installed:=true;
              Огромное спасибо, Marya!

              Как же хорошо, что есть в интернете такие темы и они находятся в яндексе! так долго маялся с этим багом, что не подключался пакет, стока всего перепробовал, и только тут нашел как его обойти!
              Сообщение отредактировано: titos_12345 -
              0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
              0 пользователей:


              [ Script Execution time: 0,1220 ]   [ 16 queries used ]   [ Generated: 18.12.14, 13:22 GMT ]  

              Rambler's Top100