Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Запуск макроса с надстройки Excel, ругается! 
:(
    Опции темы
UhaMurad
Дата 23.9.2005, 22:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 103
Регистрация: 22.9.2004
Где: Махачкала

Репутация: нет
Всего: нет



Здравствуйте!

Вот такой код:


Код

  s := 'B1:K10';

  fn := ExtractFilePath(Application.ExeName);

  Ex.Run(fn + 'ATPVBAEN.XLA!Mcorrel', Ex.Range[s], 'Корреляция', 'К', True);


т.е. хочу запустить макрос "корреляция" из надстройки "Анализ данных". Последнюю строчку стащил с макроса, который записал в Excel. Программа ругается, что макрос не найден!

Спасибо!
PM MAIL WWW   Вверх
Albinos_x
Дата 23.9.2005, 23:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108



тут надо бы поподробнее, т.к. из твоего кода ничего непонятно


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
UhaMurad
Дата 27.9.2005, 08:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 103
Регистрация: 22.9.2004
Где: Махачкала

Репутация: нет
Всего: нет



Стоит такая задача - запустить макрос "Корреляция" из надстройки "Пакет анализа".

Объясняю как это сделать вручную в Экселе. Пункт меню Сервис - Надстройки... Выбираем в списке надстроек "Пакет анализа" и ставим галочку напротив него. В результате чего в подменю Сервис появляется новый пункт "Анализ данных...". Выбираем его и появляется список инструментов анализа, где и выбираем пункт "Корреляция". Появляется диалоговое окно в роде мастера функций, где необходимо установить параметры этой функции...

Если записать все эти действия как макрос, то вот что мы получим:

Код

Sub Ìàêðîñ1()
'
' Ìàêðîñ1 Ìàêðîñ
' Ìàêðîñ çàïèñàí 27.09.2005 (UHA_MURAD)
'

'
    Range("C6:E11").Select
     Application.Run "ATPVBAEN.XLA!Mcorrel", ActiveSheet.Range("$C$6:$E$11"), "" _
        , "Ê", False
End Sub


Весь вопрос таков: как это реализовать в коде Delphi корректно?
PM MAIL WWW   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »


 




[ Время генерации скрипта: 0.0398 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.