В общем предполжим, что в MS App1 написан примерно следующий макрос.

Dim v_XLApp As Variant
Dim v_XLWb As Variant

Set v_XLApp = CreateObject("Excel.Application")
Set v_XLWb = v_XLApp.Workbooks.Add

v_FileName = "D:\..."
Set v_XLApp = New Excel.Application
Set v_XLWb = v_XLApp.Workbooks.Add

То есть мы создали процесс Excel. Как теперь запустить макрос в загруженной экселине, который находится в модуле Module1 и называется Main      (без параметров)?

Aloha, заранее спасибо тебе   

Я тут нашёл сам один способ. Правда, немного через задницу.

Короче, если из макроса MS Project нужно врубить макрос Excel'я, делаем следующее. В экселе создаём новую панель инструментов с именем MyPanel. На ней кнопку. Кнопка запускает нужный нам макрос (как она называется не важно, клавное что она на панели первая и единственная). Ясен пень, что панель можно скрыть.

Далее пишем макрос в MS Project:

  Dim v_XLApp As Variant
  Dim v_XLWb As Variant
  Dim v_FileName As Variant

  ' Открытие
  Set v_XLApp = CreateObject("Excel.Application")
  Set v_XLWb = v_XLApp.Workbooks.Add
  
  ' загрузка
  v_FileName = "D:\macros3.xls"
  Set v_XLWb = v_XLApp.Workbooks.Open(v_FileName)
  
  ' собсно запуск макроса
  v_XLApp.CommandBars("MyPanel").Controls(1).Execute

То есть макрос проджекта как бы нажимает экселевскую кнопку.

Может всё-таки кто-ньть знает более локаничный ход. Напишите плз. Буду признателен.

Может быть использовать DDE? Что то типа (пример из Хелпа):



Здесь запускаемый макрос main находится в macros3.xls который, как я понимаю Вы уже научились открывать после загрузки excel. Без панелей. Прямой запуск нужного макроса. Единственное, main должен по всей видимости быть Public.

Попробуйте.

Это сообщение отредактировал(а) Genyaa - 13.10.2006, 09:23

Genyaa, спасибо, брат

В том варианте, как ты предложил, не заработало, но чуть подкорректировал и всё стало ОК.

Короче, спасибо.