Graham,
You may have to coax Excel to show the Macro options.
In Excel 2007, I clicked on the circular bubble in the upper left corner of the
main Excel window. I clicked on the button labeled 'Excel Options' in the
lower
right of the sub-window. I then clicked on 'Show Developer Tab in the Ribbon'.
In Excel 2010, I right-clicked on an empty area of the 'ribbon' and selected
'Customize the Ribbon'. I then checked off 'Developer' under 'Main Tabs' or
'All Tabs'.
Once you have the Developer tab, you can open up the Visual Basic window. Once
there, the menu option Tools->References will show you the available
references.
If J7 has been registered, you should see an option like 'J DLL Server
(Version 3) Type Library' that you can check off.
The J code is a bit subtle. This is the line that calls J to execute a text
expression:
Status = jObject.DoR(("!"& Selection.Offset(0, 0).Value), rObject)
The J verb used is !, concatenated to the Value from the selected Cell,
returning a value to rObject.
This should work with user defined J verbs as well, once they are defined.
--
Good luck,
David Mitchell
On 2/21/2011 7:51, Graham Parkhouse wrote:
> How do I do step 3, add the Excel Macro Reference to
>
> Jsoftware: JDLLServer Type Library?
>
> And where is the J in your example? I can't see how entering 123 0 should be
> expected to result in 123 1.21E+205.
>
> Gratefully
>
> Graham Parkhouse
>
> ----------------------------------------------
>
> On Sat 19 Feb, David Mitchell wrote:
>
> Here is an example:
>
> 1. I went to the bin install directory for J701 and ran this:
>
> regsvr32 j.dll
>
> 2. I created this Excel macro:
>
> Sub Main()
> Dim jObject As New JDLLServerLib.JDLLServer
> Dim rObject As Variant
>
> Sheets("Sheet1").Select
> Range("A1").Select
> Status = jObject.DoR(("!"& Selection.Offset(0, 0).Value), rObject)
> Range("B1").Select
> Selection.Value = Str(rObject)
> jObject.Quit
> End Sub
>
> 3. I added the Excel Macro Reference to
>
> Jsoftware: JDLLServer Type Library
>
> 4. I entered this into cells A1 and B1 in the Workbook Sheet1
>
> 123 0
>
> 5. I ran the macro and got this in cells A1 and B1:
>
> 123 1.21E+205
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
