Работа с объектами, поддерживающими скрипты (excel)

Форум пользователей пакета Mathcad

Модератор: Admin

hristofernando
Сообщения: 2
Зарегистрирован: Сб окт 17, 2015 5:03 pm
Откуда: оттуда, где за тучей белеет гора, где синеют морские края, где гуляем лишь ветер… да я.

Работа с объектами, поддерживающими скрипты (excel)

Сообщение hristofernando » Сб окт 17, 2015 5:30 pm

доброго времени суток, создаю компонент из файла excel с поддержкой vbs, хочется чтобы лист файла excel который вставил в маткад обновился автоматически, нашел файл IMathcadApplication_Overview.html в папке маткада
где написано что для активации объекта добавьте строки

Код: Выделить всё

'Activate the Mathcad object
Dim obj As OLEObject
Set obj = ActiveSheet.OLEObjects(1)
obj.Activate


мне просто нужно активировать объект excel и все

Код: Выделить всё

Sub ScriptObjEvent_Start()
  Rem Действия: добавьте здесь свой код
End Sub
 
Sub ScriptObjEvent_Exec(Inputs,Outputs)
mcadexecute()
End Sub
 
Sub ScriptObjEvent_Stop()
  Rem TODO: Add your code here
End Sub
 
Sub mcadexecute()
On Error Resume Next
'Activate the Mathcad object
Dim obj As OLEObject
Set obj = ActiveSheet.OLEObjects(1)
obj.Activate
End Sub


в итоге


Изображение

hristofernando
Сообщения: 2
Зарегистрирован: Сб окт 17, 2015 5:03 pm
Откуда: оттуда, где за тучей белеет гора, где синеют морские края, где гуляем лишь ветер… да я.

Re: Работа с объектами, поддерживающими скрипты (excel)

Сообщение hristofernando » Сб окт 17, 2015 11:54 pm

ступил - там инструкция для vba :D но все равно не работает
1) вариант присвоил переменной значения из объекта excel и добавил входную пологая что его изменение должно активировать компонент excel, создал макрос в листе
(если запускать excel то все работает)

Код: Выделить всё

' обновление ссылок
Sub macro1()
ActiveWorkbook.RefreshAll
End Sub

далее на вкладке "эта книга" в vba панели написал следующее

Код: Выделить всё

' автозапуск макроса
Private Sub Workbook_Open()
    macro1
End Sub

Изображение
меня X меняется 2 строчка но при этом не выполняется макрос excel

2)вариант
Изображение
не работает также как и 1 вариант

windows 8.1 64 все необходимые компоненты для маткада стоят