Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Через раз запускается word из Excel - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Через раз запускается word из Excel (Макросы/Sub)
Через раз запускается word из Excel
homelessRustam Дата: Воскресенье, 22.09.2019, 15:11 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте, уважаемые форумчане. Помогите чайнику разобраться. Использую этот код (только часть, но не отрабатывает как следует именно она). Нужно что бы их Excel открылся файл ворд. Но открывается он через раз. Ошибок не появляется. Макрос просто отрабатывает до конца. Пробовал на разных компах. Результат тот же. Само приложение запускается (смотрел в диспетчере задач), а вот файл нет. По идее далее в этот файл должны подставится значения из Excel. Думал, может в скрытом режиме все происходит, но нет. Если файл не открылся, то и значения не подставились. Может для открытия использовать другой код? Или этот как то подправить?

[vba]
Код
Dim wd, dc1 As Object

On Error Resume Next
Set wd = GetObject(, "word.application")
If wd Is Nothing Then
wd = CreateObject("word.application")
End If
Set dc1 = wd.Documents.Open("C:\Путь к файлу.doc")
wd.Visible = True
[/vba]
 
Ответить
СообщениеЗдравствуйте, уважаемые форумчане. Помогите чайнику разобраться. Использую этот код (только часть, но не отрабатывает как следует именно она). Нужно что бы их Excel открылся файл ворд. Но открывается он через раз. Ошибок не появляется. Макрос просто отрабатывает до конца. Пробовал на разных компах. Результат тот же. Само приложение запускается (смотрел в диспетчере задач), а вот файл нет. По идее далее в этот файл должны подставится значения из Excel. Думал, может в скрытом режиме все происходит, но нет. Если файл не открылся, то и значения не подставились. Может для открытия использовать другой код? Или этот как то подправить?

[vba]
Код
Dim wd, dc1 As Object

On Error Resume Next
Set wd = GetObject(, "word.application")
If wd Is Nothing Then
wd = CreateObject("word.application")
End If
Set dc1 = wd.Documents.Open("C:\Путь к файлу.doc")
wd.Visible = True
[/vba]

Автор - homelessRustam
Дата добавления - 22.09.2019 в 15:11
anvg Дата: Воскресенье, 22.09.2019, 16:08 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 504
Репутация: 238 ±
Замечаний: 0% ±

2016, 365
 
Ответить
СообщениеНеобъявленный кросс

Автор - anvg
Дата добавления - 22.09.2019 в 16:08
RAN Дата: Воскресенье, 22.09.2019, 16:10 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5151
Репутация: 1027 ±
Замечаний: 0% ±

2010
Информация к размышлению
[vba]
Код
Set wd = GetObject(, "word.application")
[/vba]
[vba]
Код
wd = CreateObject("word.application")
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеИнформация к размышлению
[vba]
Код
Set wd = GetObject(, "word.application")
[/vba]
[vba]
Код
wd = CreateObject("word.application")
[/vba]

Автор - RAN
Дата добавления - 22.09.2019 в 16:10
homelessRustam Дата: Воскресенье, 22.09.2019, 19:34 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
RAN, :)
Спасибо, после такого чувствуешь себя оленем.
 
Ответить
СообщениеRAN, :)
Спасибо, после такого чувствуешь себя оленем.

Автор - homelessRustam
Дата добавления - 22.09.2019 в 19:34
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Через раз запускается word из Excel (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!