Как запустить макрос экселя из макроса ворда...

[Rossoman]

Люди добрые, помогите, такая у меня ситуация:

есть макрос ворда, в самом его конце нужно запустить макрос экселя, подождать пока он выполнится и выйти из макросов и из файлов.

запускаю run macros указываю, ссылку на файл, лист и макрос, макрос то вроде бы и запускается, только ничего не делает и эксель висит в процессе, и если зайти на лист, говорится, что он уже открыт...

как быть, подскажите...

[IgorGO]

Прикрепленный файл распакуйте и положите на c:\temp\, макрос будет пытаться его загрузить именно с c:\temp\
В файле c:\temp\book1.xls есть макрос RunMac он допишет время срабатывания в файл c:\temp\book1.xls.
Тут нет обработки критических ошибок, типа файл c:\temp\book1.xls уже открыт, или его нет в указанной папке. Проследите за этим самостоятельно.

Sub StartRunExcel()
  On Error Resume Next
  With CreateObject("Excel.Application")
    .workbooks.Open ("c:\temp\book1.xls")
    .Run ("RunMac")
    .activeworkbook.Save
    .Quit
  End With
  If Err.Number = 0 Then MsgBox "done...  c:\temp\book1.xls"
  Set xlap = Nothing
  On Error GoTo 0
End Sub

Макрос выполняется "тайно" в состоянии Excel не видно.
Вспомнился старый анекдот:
Американцы высадились на Луну. У нас вызываю в ЦК КПСС главных космонавтов и говорят:
- А мы первыми высадимся на Солнце!!!
- Никак нельзя... температура, сгорит все...
- Вы что думаете в ЦК дураки сидят - высаживаться будем ночью!