I have the below code in an Access 2000 Database, and when it gets to
'hCtx = EssVGetHctxFromSheet(Null)' I get the error File Not Found:
essexcln.xll.

This code works fine in Excel. Any ideas?

Code:

Declare Function EssVGetHctxFromSheet Lib "essexcln.xll" (ByVal _
sheetName As Variant) As Long
Declare Function EssVConnect Lib "essexcln.xll" (ByVal sheetName As _
Variant, ByVal username As Variant, _
ByVal password As Variant, ByVal server As Variant, _
ByVal application As Variant, ByVal database As Variant) As Long

Function fGetEssBaseData()

Dim hCtx As Long
Dim objXL As New Excel.application

With objXL

.application.RegisterXLL FileName:="c:\essbase\bin\essexcln.xll"
.Visible = True

hCtx = EssVGetHctxFromSheet(Null)
If hCtx = 0 Then
X = EssVConnect(Null, Forms![frmEssBaseLogin]![txtUID], _
Forms![frmEssBaseLogin]![txtPW], conServer, conApp, _
conDB)
hCtx = EssVGetHctxFromSheet(strSheet)
If hCtx = 0 Then
MsgBox ("General Error in connecting to sheet.")
GoTo Quit
End If
If X <> 0 Then
MsgBox ("Connect Failed. Error: " + Str(X))
End If
End If
End With

Quit:
End Function

"Bill Schanks" <wschanks (AT) hotmail (DOT) com> wrote

An XLL file is an Excel Add-in. Is this supposed to work in Access?

Dave Butler

"Dave Butler" <DaveButlerREMOVE (AT) hotmail (DOT) com> wrote

I guess that is my problem. I found some information on the Hyperion
web page: dev.hyperion.com

wschanks (AT) hotmail (DOT) com (Bill Schanks) wrote in message news:<fdcb28ed.0408100856.5957a96f (AT) posting (DOT) google.com>...
If you need help with Hyperion VBA commands, I think the support
program by HCG will cover it... http://shop.harbinger-group.com or
http://www.harbinger-group.com/support.shtml ??

Gayle