На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS RSS
>  Форум на Исходниках.RU
       Программирование
         Delphi
           Delphi: OLE/COM/ActiveX
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
Marya
Сообщ. #1, 03.07.07, 03:18

Марина 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).
___________
Согласна учиться круглыми сутками
Profi Romkin
Сообщ. #2, 03.07.07, 05:22

Moderator
*****
Профиль · PM

Поощрения: 6 Dgm
Рейтинг (т): 156

Возможно, пойдет английское наименование. Либо доступ через Formula, но к русскому названию :)
Особенности работы
___________
Beware the wild rabbit.
Marya
Сообщ. #3, 03.07.07, 06:36

Марина Newbie
Профиль · PM

Рейтинг (т): 0

Цитата (Romkin @ 03.07.07, 05:22)
Возможно, пойдет английское наименование. Либо доступ через 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, 03.07.07, 08:50

Марина Newbie
Профиль · PM

Рейтинг (т): 0

Инверсия ;)
___________
Согласна учиться круглыми сутками
ufff
Сообщ. #5, 09.07.07, 11:22
Unregistered

Вместо макроса из Delphi делаем вот так:

EA.AddIns['Analysis ToolPak - VBA'].Installed:=false;
EA.AddIns['Analysis ToolPak - VBA'].Installed:=true;
titos_12345
Сообщ. #6, 02.05.09, 13:48
Unregistered

Огромное спасибо, Marya!

Как же хорошо, что есть в интернете такие темы и они находятся в яндексе! так долго маялся с этим багом, что не подключался пакет, стока всего перепробовал, и только тут нашел как его обойти!

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

> Форум на Исходниках.RU · Delphi · Delphi: OLE/COM/ActiveX

Новое голосование


[ Script Execution time: 0,1048 ]   [ 16 queries used ]   [ Generated: 18.04.14, 08:24 GMT ]  

Rambler's Top100