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

Вход

Регистрация

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

 

= Мир MS Excel/Невозможно получить свойство Object класса OLEObject. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Невозможно получить свойство Object класса OLEObject. (Макросы/Sub)
Невозможно получить свойство Object класса OLEObject.
Roman777 Дата: Воскресенье, 14.05.2017, 18:01 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 783
Репутация: 88 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Добрый день! Собственно, выскакивает ошибка при попытке обращения к свойству Object в строке:
[vba]
Код
Set Wd = ActiveSheet.Shapes("Шаблон").DrawingObject.Object
[/vba]
в следующем коде:

Файл прикреплю. OLEObject является шаблоном. Его в коде сохраняю как Ворд документ (спасибо подсказке doober).
Обратил внимание, что ошибка выскакивает только если при открытии файла я не жамкну 2 раза на OLEObject "Шаблон" после такого шамканья, ошибка пропадает, всё выполняется. С чем это связано и как это устранить?
К сообщению приложен файл: __.xlsm(49Kb)


Много чего не знаю!!!!
 
Ответить
СообщениеДобрый день! Собственно, выскакивает ошибка при попытке обращения к свойству Object в строке:
[vba]
Код
Set Wd = ActiveSheet.Shapes("Шаблон").DrawingObject.Object
[/vba]
в следующем коде:

Файл прикреплю. OLEObject является шаблоном. Его в коде сохраняю как Ворд документ (спасибо подсказке doober).
Обратил внимание, что ошибка выскакивает только если при открытии файла я не жамкну 2 раза на OLEObject "Шаблон" после такого шамканья, ошибка пропадает, всё выполняется. С чем это связано и как это устранить?

Автор - Roman777
Дата добавления - 14.05.2017 в 18:01
Roman777 Дата: Воскресенье, 14.05.2017, 20:24 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 783
Репутация: 88 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Roman777, Решил проблейму так:
[vba]
Код
   Set Doc = ActiveSheet.Shapes("Шаблон").DrawingObject
   Doc.Activate
   Cells(1,1).Activate
[/vba]
То есть активируя, и деактивируя этот объект шаблона. Но мне кажется, что это несколько не эстетично и неправильно)
Если кто-нибудь знает, подскажите, пожалуйста, почему требуется эта активация при первом открытии документа...


Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Воскресенье, 14.05.2017, 20:24
 
Ответить
СообщениеRoman777, Решил проблейму так:
[vba]
Код
   Set Doc = ActiveSheet.Shapes("Шаблон").DrawingObject
   Doc.Activate
   Cells(1,1).Activate
[/vba]
То есть активируя, и деактивируя этот объект шаблона. Но мне кажется, что это несколько не эстетично и неправильно)
Если кто-нибудь знает, подскажите, пожалуйста, почему требуется эта активация при первом открытии документа...

Автор - Roman777
Дата добавления - 14.05.2017 в 20:24
doober Дата: Понедельник, 15.05.2017, 00:29 | Сообщение № 3
Группа: Друзья
Ранг: Обитатель
Сообщений: 406
Репутация: 200 ±
Замечаний: 0% ±

Excel 2007
Без активации ничего не получится,Винда должна увидеть окно(хендл объекта).
Это внедренный объект.


 
Ответить
СообщениеБез активации ничего не получится,Винда должна увидеть окно(хендл объекта).
Это внедренный объект.

Автор - doober
Дата добавления - 15.05.2017 в 00:29
Roman777 Дата: Понедельник, 15.05.2017, 12:48 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 783
Репутация: 88 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
doober, Спасибо за пояснения.


Много чего не знаю!!!!
 
Ответить
Сообщениеdoober, Спасибо за пояснения.

Автор - Roman777
Дата добавления - 15.05.2017 в 12:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Невозможно получить свойство Object класса OLEObject. (Макросы/Sub)
Страница 1 из 11
Поиск:

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