Avoid essbase login pop up when using API

Question

HI,
I have written a vb macro to retrieve data from essbase using APIs. I have used EssVConnect. Eventhough i give the server,username and password to a variable and execute the procedure, the essbase login screen appears. I want to avoid this as this code would be used for automation. Please help me in doing so. The retrieval code which is part of the automation code is here below. Here the sheet name, application name and the database name is read from another worksheet and assigned to the variables sheetName , AppName and DBName. The Cache here is the application name and database name which are assigned is to the variables AppName and DBName is highlighted in the essbase login popup. And if i modify the variable Server1 to server the procedure stops running. it says login failed due to insufficient credentials. But i use admin user.
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
Declare Function EssVRetrieve Lib "ESSEXCLN.XLL" (ByVal sheetName As _
Variant, ByVal range As Variant, ByVal lockFlag As Variant) As Long
Declare Function EssVDisconnect Lib "ESSEXCLN.XLL" (ByVal sheetName As _
Variant) As Long
Sub RetrieveData()
Server1 = "localhost"
UserName = "admin"
Password = "password"
Set Ssheet = Sheets(sheetName)
Ssheet.Activate
AppName = CStr(applicationname)
DbName = CStr(DatabaseName)
TimeStart = Timer
sts = EssVConnect(sheetName, UserName, Password, Server, AppName, DbName)
If sts = 0 Then
x = EssVRetrieve(sheetName, Null, 1)
If x = 0 Then
Y = EssVDisconnect(sheetName)
If Y <> 0 Then
GoTo ErrHan
End If
Else
GoTo ErrHan
End If
Else
MsgBox ("Connection failed for the worksheet - " & sheetName)
GoTo ErrHan
End If
TimeEnd = Timer
TimeTester = TimeEnd - TimeStart
ErrHan:
On Error Resume Next
End Sub
Edited by: ragavhere on Nov 13, 2009 7:03 PM

Answer 1

Hi,
Thanks for your responses. Server variable problem is secondary. I have a excel worksheet in this format
ApplicationName     DatabaseName     SheetName
RetilPOC     Plan1     Sheet2
RetilPOC     Plan2     Sheet3
RetilPOC     Plan3     Sheet4
The application name,database name and sheet name are read by a procedure from this worksheet row by row and passed as a parameter to the procedure "RetrieveData".My primary objective is to login to the essbase application and database which are passed as parameters from the procedure which invokes the procedure "RetrieveData" without the essbase login screen coming up. How can i do it automatically?The user shouldn't keep typing the username and password. The procedure should read the login credentials from the variables and login automatically. How do i need to modify my code to achieve this?