активация книги excel открытой в другом процессе excel

[RAN.]

Сообщение от 27102014

Уважаемый RAN!
Запустил Ваш макрос в своем рабочем файле и потерял все что написал за последние два часа Впрочем, всего лишь пару прикольных штук получилось - одна из них вроде Вашего макроса, только без ворда, сразу создает новый Excel

Нужно сначала думать, а потом трясти. И всего-то нужно строчку Save в код добавить.
Word нужен лишь для того, чтобы создать эту самую "серую книгу" Excel, дабы было возможно открыть книгу вновь в ранее созданном экземпляре.
Ну нет у меня вашего BExAnalyzer.exe, нетути!

Public ex As Object
Set ex = CreateObject("Excel.Application")

создаст "серую"

[27102014]

Эврика!!! Придумал!!!!
Плохенько, даже совсем некузяво (Hugo121 - взял словечко на вооружение, Вы не против?), но работает!!!

Основная идея в том, что BExAnalyzer - это надстройка

 Sub Макрос1()

   ' создание нового процесса Excel
   Set objExcel = CreateObject("Excel.Application")
   objExcel.Visible = True
   'objExcel.Workbooks.Add 'добавление новой книги в новом процессе, если нужно
     
   ' открыть нужный документ
   Set PIG = objExcel.Workbooks.Open("C:\Users\Desktop\Выручка.xlsm")
   'objExcel.Workbooks("Книга1").Close' закрытие Книги при необходимости



' запуск BExAnalyzer - именно так Включить, выключить, включить
 objExcel.AddIns("Bexanalyzer").Installed = True 'включить
 objExcel.AddIns("Bexanalyzer").Installed = False 'выключить
 objExcel.AddIns("Bexanalyzer").Installed = True 'включить
 
 'нажатие кнопки "Изменить значения переменных"
objExcel.Run ("BExAnalyzer.xla!MenuRefreshVariables")

'отключение надстройки
 objExcel.AddIns("Bexanalyzer").Installed = False 'выключить
    
End Sub

Чтобы просто создать новый процесс Excel, достаточно вот этого

 ' создание нового процесса Excel
   Set objExcel = CreateObject("Excel.Application")
   objExcel.Visible = True 'серый экран
   'objExcel.Workbooks.Add 'добавление новой книги в новом процессе, если нужно
     
   ' открыть нужный документ
   Set PIG = objExcel.Workbooks.Open("C:\Users\Desktop\Выручка.xlsm")
   'objExcel.Workbooks("Книга1").Close' закрытие Книги при необходимости

В дальнейшем к новому процессу обращаться через objExcel. (аналогично запуску макросов в других документах Excel)