[AccessD] Excel addin syntax problem

Just guessing, but that line probably returns the result of running the
Solver using the passed arguments.  You probably have to assign that
result to a variable so you can make use of it.  Something like:

MyVariableName = Obj.Application.Run("solver.xla!SolverOk",
SetCell:=Range("A1"))

Hoping this solves it . . . 

Don

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester
Sent: Monday, May 09, 2005 3:02 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] Excel addin syntax problem


The last line here generates an error of compile error expected =. What
am I doing wrong. Thanks.

 

Set Obj = CreateObject("Excel.Application")

Obj.Workbooks.Open (Obj.Application.LibraryPath & "\SOLVER\solver.xla")

Obj.Workbooks("solver.xla").RunAutoMacros (xlAutoOpen)

Obj.Application.Run("solver.xla!SolverOk", SetCell:=Range("A1"))

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com