Automation error 'Specified module could not be found"
Automation error 'Specified module could not be found"
(OP)
Hi
This code is working for other users...but recently i had a laptop swapout and had all my applications reloaded including MicroFocus Extra! X-Treme 9.4
When i run this code and it gets to the highlighted line - Set CarinaSystem = CreateObject("Extra.System") the program aborts and returns the error message " Automation error - Specified Module could not be found"
Sub OpenSession()
On Error GoTo OpenSession_Err
Dim TestSystemWarning As Integer
LogHandler.CreateSystemLog
HostWaitTime = 1000
Set CarinaSystem = CreateObject("EXTRA.System")
If CarinaSystem.Sessions.Count = 0 Then
Set mySession = GetObject("C:\Users\Public\Documents\Micro Focus\EXTRA!\sessions\carina.edp")
Set MyCARINA = mySession.Screen
I checked the Attachmate directory and found that extra.tlb file is there.
Any suggestions would be greatly appreciated
This code is working for other users...but recently i had a laptop swapout and had all my applications reloaded including MicroFocus Extra! X-Treme 9.4
When i run this code and it gets to the highlighted line - Set CarinaSystem = CreateObject("Extra.System") the program aborts and returns the error message " Automation error - Specified Module could not be found"
Sub OpenSession()
On Error GoTo OpenSession_Err
Dim TestSystemWarning As Integer
LogHandler.CreateSystemLog
HostWaitTime = 1000
Set CarinaSystem = CreateObject("EXTRA.System")
If CarinaSystem.Sessions.Count = 0 Then
Set mySession = GetObject("C:\Users\Public\Documents\Micro Focus\EXTRA!\sessions\carina.edp")
Set MyCARINA = mySession.Screen
I checked the Attachmate directory and found that extra.tlb file is there.
Any suggestions would be greatly appreciated
Talk To Other Members