Dear J Form:
One of you suggested that I open J before running my Excel client. However,
the Excel client opens up a second, invisible J session. I'd be happy for
now if I could just view what's happening in that server session. So please
tell we how to show the ijx window. Thanks.
Sincerely,
Leigh
Leigh Joseph Halliwell, FCAS, MAAA
Chief Manager
L. J. Halliwell, LLC
P. O. Box 21385
Chattanooga, TN 37424
423-296-2739
423-605-5789 cell
423-954-2772 fax
[email protected]
www.lhalliwell.com
This communication is intended solely for the use of the individual to whom
or the entity to which it is addressed. It may contain information that is
privileged, confidential, and exempt from disclosure under applicable law.
If you are neither the intended recipient, nor the employee, nor the agent
responsible for delivering the communication to the intended recipient, you
are hereby notified that any dissemination, distribution, or copying of this
communication is strictly prohibited. If you have received this
communication in error, please notify us immediately by telephone or email,
delete the communication from any computer or other electronic storage
media, and destroy all other copies in your possession.
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of
Leigh J. Halliwell
Sent: Wednesday, April 15, 2009 9:37 PM
To: 'Programming forum'
Subject: [Jprogramming] J602 as Server for Excel
Dear J Forum:
The VBA code below (i.e., the auto_open subroutine) works in J601, but not
in J602. I have registered J602, and the "JEXEServer Type Library"
Reference is active and set to version 602. Can you tell me what's wrong?
I'm not even getting a J window.
In a similar vein, I'm running the Excel OLE examples (e.g., jsrvdemo.txt).
They work, but I'd like to make J visible. How do I do that?
Thank you.
Sincerely,
Leigh
Private Sub jopen()
Set js = CreateObject("jexeserver")
js.Quit
js.Do "0!:0<1!:45$0"
End Sub
' J Server for Excel Client utilities
'
' utilities:
' jxopen open JEXEServer
' jloadprofile load standard J profile
' jlog boolean log on/off (EXE only)
' jshow boolean show on/off (EXE only)
'
' Create in your module an auto_open sub to load J as in:
'
' for the J EXE Server:
' Sub auto_open()
' jxopen
' jloadprofile - this line optional, for debugging
' jshow 1 - ditto
' jlog 1 - ditto
' End Sub'
Public js As Object
Private Sub jxopen()
On Error GoTo Fini
Set js = CreateObject("jexeserver")
js.Quit
Fini:
End Sub
Private Sub jloadprofile()
js.Do "0!:0 <1!:45''"
End Sub
Private Sub jlog(b As Boolean)
js.Log b
End Sub
Private Sub jshow(b As Boolean)
js.Show b
End Sub
Private Sub auto_open()
jxopen
jloadprofile
jshow 1
jlog 1
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
