Jun Mundia
Programmer
Hello,
Did anyone encountered and had a solution when trying to bind the Reflection Workspace 2014 in Excel VBA. I'm getting an error when creating a object. Saw a post on the related subject by sharonniles, however didn't saw the issue was resolved. here is the code below. Please help.
Dim oTerminal As Attachmate_Reflection_Objects_Emulation_IbmHosts.ibmTerminal
Dim oApp As Attachmate_Reflection_Objects_Framework.ApplicationObject
Dim oFrame As Attachmate_Reflection_Objects.frame
Dim oView As Attachmate_Reflection_Objects.view
Set oApp = New Attachmate_Reflection_Objects_Framework.ApplicationObject
If (oApp Is Nothing) Then
MsgBox "Unable to create Attachmate Workspace Application", vbCritical, "Application Workspace Error"
GoTo Obj_Release
End If
Set oFrame = oApp.GetObject("Frame")
If (oFrame Is Nothing) Then
MsgBox "Unable to create Attachmate Workspace Frame", vbCritical, "Workspace Frame Error"
GoTo Obj_Release
End If
Did anyone encountered and had a solution when trying to bind the Reflection Workspace 2014 in Excel VBA. I'm getting an error when creating a object. Saw a post on the related subject by sharonniles, however didn't saw the issue was resolved. here is the code below. Please help.
Dim oTerminal As Attachmate_Reflection_Objects_Emulation_IbmHosts.ibmTerminal
Dim oApp As Attachmate_Reflection_Objects_Framework.ApplicationObject
Dim oFrame As Attachmate_Reflection_Objects.frame
Dim oView As Attachmate_Reflection_Objects.view
Set oApp = New Attachmate_Reflection_Objects_Framework.ApplicationObject
If (oApp Is Nothing) Then
MsgBox "Unable to create Attachmate Workspace Application", vbCritical, "Application Workspace Error"
GoTo Obj_Release
End If
Set oFrame = oApp.GetObject("Frame")
If (oFrame Is Nothing) Then
MsgBox "Unable to create Attachmate Workspace Frame", vbCritical, "Workspace Frame Error"
GoTo Obj_Release
End If