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

Соблюдайте общие правила форума

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как запустить программу/файл? (и дождаться ее завершения)
5. Как перехватить API-функции, поставить hook? (перехват сообщений от мыши, клавиатуры - внедрение в удаленное адресное прстранство)
... (продолжение следует) ...
Внимание:
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки - бан.
Мат в разделе - бан на три месяца...
Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы

Выразить свое отношение к модераторам раздела можно здесь: user posted image Rouse_, user posted image Krid

Модераторы: Rouse_, Krid
  
> Не работает функция Excel из надстроек , Delphi + Excel
Marya
Сообщ. #1 ,

    Марина Newbie
    Профиль · PM
    Рейтинг (т): 0
    Делаю
    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).
    Romkin
    Сообщ. #2 ,

      Profi
      *****
      Профиль · PM
      Поощрения: 6 Dgm
      Рейтинг (т): 156
      Возможно, пойдет английское наименование. Либо доступ через Formula, но к русскому названию :)
      Особенности работы
      Marya
      Сообщ. #3 ,

        Марина Newbie
        Профиль · PM
        Рейтинг (т): 0
        Цитата 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:
        Marya
        Сообщ. #4 ,

          Марина Newbie
          Профиль · PM
          Рейтинг (т): 0
          Инверсия ;)
          ufff
          Сообщ. #5 ,
            Unregistered
            Вместо макроса из Delphi делаем вот так:

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

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


              Рейтинг@Mail.ru
              [ Script execution time: 0,0255 ]   [ 16 queries used ]   [ Generated: 26.04.24, 08:03 GMT ]  
              Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.