Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
запустить макросом в Excel макрос в Word
 
#1
19.10.2009 21:33:53
здравствуйте, уважаемые форумчане!  
Есть макрос excel, который запускает макрос в Word (спасибо Pavel55). проблема заключается в том, что при открытом Word или Аутлук, макрос выдает ошибку, а на работе Аутлук открыт постоянно.  
 
Sub Макрос1()  
Dim wbApp As Object  
   Set wbApp = GetObject(, "Word.Application")  
   wbApp.Run "Макрос1"  
End Sub
 
 
 
#2
20.10.2009 09:20:15
Ошибка скорее всего возникает если нет ни одного процесса WORD, т.к.  
GetObject - это получить процесс.  
Вам необходимо написать так :  
Set wbApp = CreateObject("Word.Application")
 
 
 
#3
20.10.2009 09:56:45
я использую связку:  
 
On Error Resume Next  
Set excel = GetObject(, "Excel.Application")  
If excel Is Nothing Then Set excel = New excel.Application
Живи и дай жить..
 
 
 
#4
20.10.2009 21:18:45
Марчук и слэн спасибо, то откликнулись. Я наверное, неправильно сформулировал вопрос, это только часть макроса, на которой происходит ошибка, причем если нет запущенного Word или Аутлук все прекрасно работает. Прикладываю пример, работает он правильно, но если уже есть запущенный Аутлук (или Word), то макрос вылетает с ошибкой.
 
 
 
#5
20.10.2009 21:33:14
Run-time error '-2147352573 (80020003)':  
Не удается запустить указанный макрос
 
 
 
#6
20.10.2009 21:36:38
Вместо:  
Set wbApp = GetObject(, "Word.Application")  
wbApp.Run "Колонтитул"  
 
Используйте:  
oDoc.Parent.Run "Колонтитул"
 
 
 
#7
20.10.2009 21:42:20
The_Prist и ZVI спасибо большое, все работает, Вы мне очень помогли.
 
 
 
Страницы: 1
Читают тему
Наверх