Does anyone know how to control 3270 Through Excel? I can't find ANYthing
online or on Books24x7 on learning how to do this. The only thing I located
was on Jolly Giant's software page for their QWS3270 application.

Thanks,
Elbio

Option Explicit
Private app As QWS3270AUTOMATION.Application
Private screen As QWS3270AUTOMATION.screen

Private Sub FormExit_Click()
Unload Me
End Sub

Private Sub StartButton_Click()

If app Is Nothing Then
MsgBox ("No 'application' object")
Exit Sub
End If
Call app.Start("C:\Program Files\QWS3270 Secure\qws3270s.exe",
"Host.Name", "A", 23)


End Sub

Private Sub UserForm_Initialize()

Set app = New QWS3270AUTOMATION.Application
Set screen = New QWS3270AUTOMATION.screen

End Sub

Private Sub ExitButton_Click()
If app Is Nothing Then
MsgBox ("No 'application' object")
Exit Sub
End If

Call app.Close("A")

End Sub

It is on the website if you know what you are looking for

see On Jolly's site the following

How do I connect to a host using QWS3270 PLUS?

The VBA code in excel will emulate a HOST talking to the QWS3270. What you
would habvve to do is send commands over a TCPIP connection. You will have
to find the required commands that you need. TCPIP are internet command that
use a different Protocol (HTTP is another internet protocol).

I don't know if QWS3270 is a web-base application but if it is you could
open an internet connectiont control the application rather than using TCPIP.
I haven't seen any request on this site for anTCPIP interface. Wonder if it
anybody has any code to do this.

"PumaMan" wrote:

Does anyone know how to control 3270 Through Excel? I can't find ANYthing
online or on Books24x7 on learning how to do this. The only thing I located
was on Jolly Giant's software page for their QWS3270 application.

Thanks,
Elbio

Option Explicit
Private app As QWS3270AUTOMATION.Application
Private screen As QWS3270AUTOMATION.screen

Private Sub FormExit_Click()
Unload Me
End Sub

Private Sub StartButton_Click()

If app Is Nothing Then
MsgBox ("No 'application' object")
Exit Sub
End If
Call app.Start("C:\Program Files\QWS3270 Secure\qws3270s.exe",
"Host.Name", "A", 23)


End Sub

Private Sub UserForm_Initialize()

Set app = New QWS3270AUTOMATION.Application
Set screen = New QWS3270AUTOMATION.screen

End Sub

Private Sub ExitButton_Click()
If app Is Nothing Then
MsgBox ("No 'application' object")
Exit Sub
End If

Call app.Close("A")

End Sub

I found some information on a microsoft wab page. Take a look

http://www.microsoft.com/technet/scr...tnc_basic.mspx

"joel" wrote:

It is on the website if you know what you are looking for

see On Jolly's site the following

How do I connect to a host using QWS3270 PLUS?

The VBA code in excel will emulate a HOST talking to the QWS3270. What you
would habvve to do is send commands over a TCPIP connection. You will have
to find the required commands that you need. TCPIP are internet command that
use a different Protocol (HTTP is another internet protocol).

I don't know if QWS3270 is a web-base application but if it is you could
open an internet connectiont control the application rather than using TCPIP.
I haven't seen any request on this site for anTCPIP interface. Wonder if it
anybody has any code to do this.

"PumaMan" wrote:

Does anyone know how to control 3270 Through Excel? I can't find ANYthing
online or on Books24x7 on learning how to do this. The only thing I located
was on Jolly Giant's software page for their QWS3270 application.

Thanks,
Elbio

Option Explicit
Private app As QWS3270AUTOMATION.Application
Private screen As QWS3270AUTOMATION.screen

Private Sub FormExit_Click()
Unload Me
End Sub

Private Sub StartButton_Click()

If app Is Nothing Then
MsgBox ("No 'application' object")
Exit Sub
End If
Call app.Start("C:\Program Files\QWS3270 Secure\qws3270s.exe",
"Host.Name", "A", 23)


End Sub

Private Sub UserForm_Initialize()

Set app = New QWS3270AUTOMATION.Application
Set screen = New QWS3270AUTOMATION.screen

End Sub

Private Sub ExitButton_Click()
If app Is Nothing Then
MsgBox ("No 'application' object")
Exit Sub
End If

Call app.Close("A")

End Sub