VBA Автоматизация RogueWave HostAccess
Я ищу, чтобы открыть сеанс RogueWave HostAccess для автоматизации с помощью функций SendKeys. Код, предоставленный компанией, указан ниже, но при запуске код открывает новую вдову эмулятора терминала, но останавливается в GetObject() [2nd Line].
Получена ошибка: Microsoft Excel ожидает, пока другое приложение завершит действие OLE. Ошибка выполнения 429 - компонент ActiveX не может создать объект.
Код, предоставленный RogueWave:
Rem Define the variable HostAccess as the data type object.
Rem This represents the HostAccess application when used for
Rem OLE automation
Dim HostAccess
Rem Create an OLE object that corresponds to HostAccess.
Rem We will use this object to invoke
Rem published automation methods.
Set HostAccess = GetObject("", "Session.Setting")
Rem Start a session with the given name
result = HostAccess.LoadSession("TEST.SES", "", True)
Rem Once HostAccess has loaded, tell it to print something
Rem on the terminal window.
result = HostAccess.ScriptExec("print ""hello world""")
Rem Close the HostAccess session
HostAccess.EndSession
Rem Unload/Exit HostAccess
HostAccess.Unload
Источник: http://docs.roguewave.com/HostAccess/7.40j/HostAccessUserGuide.pdf
Спасибо,