BenInChicago
Technical User
Hi - first time poster. I was recently upgraded from Office 2007 to 2010 and from Attachmate Extra X-treme 9.1 to Attachmate Reflection Suite for X 2011 R2.
The code that I had in Excel 2007 to connect to Attachmate does not work, and I've tried unsuccessfully to surf the internet for the solution. When I run it, it fails [highlight #FCE94F]here[/highlight]
Sub Test_GetPricing()
Dim g_HostSettleTime%
g_HostSettleTime = 50
Dim F_HostSettleTime%
F_HostSettleTime = 50
Dim Sessions As Object
Dim System As Object
Set System = CreateObject("EXTRA.System")
If (System Is Nothing) Then
MsgBox "error1"
Stop
End If
Set Sessions = System.Sessions
' Get the necessary Session Object
[highlight #FCE94F] Dim Sess0 As Object
Set Sess0 = System.ActiveSession
If (Sess0 Is Nothing) Then
MsgBox "Could not create the Session object. Stopping macro playback."
Stop[/highlight]
End If
If Not Sess0.Visible Then Sess0.Visible = True
I am not trained in VB, so I appreciate any feedback.
Thanks
Ben
The code that I had in Excel 2007 to connect to Attachmate does not work, and I've tried unsuccessfully to surf the internet for the solution. When I run it, it fails [highlight #FCE94F]here[/highlight]
Sub Test_GetPricing()
Dim g_HostSettleTime%
g_HostSettleTime = 50
Dim F_HostSettleTime%
F_HostSettleTime = 50
Dim Sessions As Object
Dim System As Object
Set System = CreateObject("EXTRA.System")
If (System Is Nothing) Then
MsgBox "error1"
Stop
End If
Set Sessions = System.Sessions
' Get the necessary Session Object
[highlight #FCE94F] Dim Sess0 As Object
Set Sess0 = System.ActiveSession
If (Sess0 Is Nothing) Then
MsgBox "Could not create the Session object. Stopping macro playback."
Stop[/highlight]
End If
If Not Sess0.Visible Then Sess0.Visible = True
I am not trained in VB, so I appreciate any feedback.
Thanks
Ben