Smartview VBA marcos

I tried to use "HypGetSourceGrid".
script below:
Sub Macro2()
x = HypUseLinkMacro(True)
Range("F1").Select
x = HypGetSourceGrid("Sheet1", vtGrid)
Range("a2").Value = x
End Sub
Returns 0 if successful.
But I get X result is 57705.
What did I set wrong or lose set?

OK... I'm still struggling with this. I keep getting a -47 error on the HypCreateConnection line, which according to the docs says that the connection already exists. So I added commands to try to remove the connection prior to creating it if one already exists. Here is my code:
X = HypIsConnectedToAPS()
If X = True Then
X = HypDisconnectFromAPS()
End If
X = HypConnectionExists("SampBasicConn")
If X = True Then
X = HypRemoveConnection("SampBasicConn")
End If
X = HypCreateConnection(Empty, "admin", "password", HYP_ESSBASE, "http://apsserver:13080/smartview/SmartView", "essserver", "Sample", "Basic", "SampBasicConn", "Analytic Provider Services")
X = HypConnectionExists("SampBasicConn")
If X = True Then
X = HypConnect(Empty, "admin", "password", "SampBasicConn")
End If
Return codes are all expected (sometimes I have to disconnect from APS and sometimes not) until I hit the HypCreateConnection line. The HypConnectionExists always returns false, but HypCreateConnection returns -47. After that, I test for the connection again, and it returns false. So why am I getting a -47? Also, there is no connection. It is truly acting as though the HypCreateConnection is failing. But the error code is not helpful. Is there any way to tell what is causing the failure? It seems I have tried all permutations of "/aps/SmartView", "/smartview/SmartView", fully qualified server names, etc. Is there a way to tell what is causing the failure (bad username/password, bad APS URL, bad Essbase server, bad application/database, etc.)?

Similar Messages

SmartView VBA code to connect to Essbase

Hi,
I am trying to connect to Essbase v 11.1.13 via Smartview v 11 using Macro (VBA code). Thing is that I am able to make connection, but not able to autneticate after connecting to Appname and Dbname in that server. In right hand side after this macro is run, I need to manually click on the server and then go ahead to that appname and Dbname and then do adhoc analysis.
Any inputs how to proceed with this step using SmartView VBA code?
The code I am using is -
bIsConnection = HypIsConnectedToAPS()
If bIsConnection = True Then
bIsConnection = HypDisconnectFromAPS()
End If
bIsConnection = HypConnectionExists("Sampleconn")
If bIsConnection = True Then
bIsConnection = HypRemoveConnection("Sampleconn")
End If
X = HypCreateConnection(Sheet1, User, pwd, "HYP_ESSBASE", url, sServer, app, db, connectionname, "Analytic Provider Services")
X = HypConnect(Empty, User, pwd, connectionname)
Please let me know even after this code, why it is not selecting appname.dbname in Smart view Data source manager?

In the code below there is no existing connection called “My DMDemo Basic”. So using HypCreateConnection, this connection is created which connects automatically to the application database using username and password as per the sample code.
If the connection string already exists, then you can call HypConnect to connect.
The HypCreateConnection does not really need a valid username and password. But when we are using HypConnect, it validates the username and password and recognizes with the friendly name per the connection name - for example "My DMDemo Basic".
If you want the user to be prompted for login details instead o f hardcoding the values, then you can assign null values to them - username and password as null values which is - "" (note this is open and close double quotes without any space). This will bring up the window where you can give the username and password values.
Run the following code by opening a brand new Excel file and then copying the code below into the Visual Basic Editor Module. Make sure you modify all the parameters according to your setup including username, password, server name, application name, etc.
Private Declare Function HypConnect Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtUserName As Variant, ByVal vtPassword As Variant, ByVal vtFriendlyName As Variant) As Long
Private Declare Function HypCreateConnection Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtUserName As Variant, ByVal vtPassword As Variant, ByVal vtProvider As Variant, ByVal vtProviderURL As Variant, ByVal vtServerName As Variant, ByVal vtApplicationName As Variant, ByVal vtDatabase As Variant, ByVal vtFriendlyName As Variant, ByVal vtDescription As Variant) As Long
Sub Conn()
Dim username As Variant
Dim password As Variant
Dim x As Variant
Dim HYP_ESSBASE As Variant
HYP_ESSBASE = "ESSBASE"
username = "admin"
password = "password"
x = HypCreateConnection(Empty, username, password, HYP_ESSBASE, "http://localhost:13080/aps/SmartView", "localhost", "DMDemo", "Basic", "My DMDemo Basic", "Analytic Provider Services")
MsgBox x
x = HypConnect(Empty, username, password, "My DMDemo Basic")
MsgBox x
End Sub
HTH-
Jasmine

Smartview VBA function for launch calc-scripts as strings. like EsbCalc ???

We have used an Excel VBA which launch an calculation script from a STRING using the VBA Add-In function "EsbCalc".
We would like to migrate to Smartview VBA functions.....
The calc-script string has "parameters" which are modified at run-time...
I have found the function HypExecuteCalcScript - but seems that use as parameters ONLY the calc-script name...
Is it any VBA function in SmartView which launch a calc-script string (not a calc-script name) ?
We are using EPM 11.2
Thanks...

A tip I just learned at Kaleidoscope 2010* is that one can create a calc script consisting entirely of a substitution variable. In other words, a calc script can look like this:
&Calc
Smart View VBA does have a function for changing or creating substitution variables (HypSetSubstitutionVariable). You could create a calc script and subvar in your database as above. Then, at run time, set that subvar to your calc string with HypSetSubstitutionVariable and execute the calc script with HypExecuteCalcScript.
Quick test (11.1.1.3) shows that this really works.
I can't remember privileges required to create or set subvars vs execute calc strings off the top of my head - might be an issue (I ran as an admin). Also this approach doesn't support concurrent users, unless they each have a calc script and subvar to themselves. Still, depending on your exact situation, this might be a feasible workaround.
*I won't credit the presenter solely because the tip came from a presentation which he specifically declined to make public domain.

Essbase Smartview VBA macros error

I have a Essbase Smartview VBA macros issue as below:
I want get a value that I choose in POV dynamic dropdown list.
And show the value in the excel.
For example:
There customer dimention -childs are IBM、ACR show in POV dynamic dropdown list.
I choose IBM in POV then in excel sheet A1 show IBM.
I try the below vba code:
Private Sub CommandButton2_Click()
Dim vtGrid As Variant
Dim vtDimNames As Variant
Dim vtPOVNames As Variant
X = HypRetrieve("Sheet1")
If X = 0 Then
MsgBox ("Retrieve successful.")
Else
MsgBox ("Retrieve failed.")
End If
Range("F1").Select
Sts = HypGetSourceGrid("Sheet1", vtGrid)
Y = HypGetPOVItems(vtDimNames, vtPOVNames)
Range("h1").Value = Y
End Sub
'==========================================
But Y result is -3.
How did I get the value in dynamic dropdown list.
Thanks~

Few comments:
1. Range("F1").Select: Is F1 inside the grid you are rerieving? If you do a fresh retrieve Range("B2").Select is a better location and you will not get -3.
2. Range("h1").Value = Y. You are setting the error message and not the POV member name. vtPOVNames is an array of POV members and you should use Range("h1").Value =vtPOVNames(1) to get the member name. (1) being the first dimension in the POV.
3. Word of caution. You will not be able to put a valid member name in the grid if it already exists in the POV. I recommend you preface the member name by any string that will make it unique. For instance, you could use
Range("h1").Value = vtDimNames(1) & ": " &vtPOVNames(1)
This way you will see the DimensionName: Member Name.
Here is the modified code:
Sub test()
Dim vtGrid As Variant
Dim vtDimNames As Variant
Dim vtPOVNames As Variant
X = HypRetrieve("Sheet1")
If X = 0 Then
MsgBox ("Retrieve successful.")
Else
MsgBox ("Retrieve failed.")
End If
Range("b2").Select
sts = HypGetSourceGrid("Sheet1", vtGrid)
Y = HypGetPOVItems(vtDimNames, vtPOVNames)
Range("h1").Value = vtDimNames(1) & ": " & vtPOVNames(1)
End Sub
Edited by: Toufic Wakim on May 3, 2010 11:54 AM

SmartView VBA Commands - HypCreateConnection and HypConnect

I am in the process of converting some spreadsheets with Essbase Excel add-in VBA macros to use the SmartView VBA functions. I am having trouble just doing the connect to the V11 database. Prior to the conversion I used the following command to connect to the database to access an Essbase version 6.5 database:
sts = EssVConnect("MS Essbase Actual", EssUsername, EssPassword, "Ws-bco-ess1", "Crsfo09", "Crsfo09")
I have migrated the database to Essbase version 11.1.1 (on another server) and am attempting to connect to it with the following command (Oracle Hyperion SmartView for Office, Fusion Edition):
sts = HypCreateConnection("MS Essbase Actual", EssUsername, EssPassword, HYP_ESSBASE, "http://ws-tst-esswl:13080/aps/SmartView", "Ws-tst-ess3d", "Crsfo09", "Crsfo09", "CrsConnection", "Analytic Services Provider")
This is failing with a status of -47. The User Guide for Oracle Hyperion SmartView for Office, Fusion Edition lists status codes up to -40. It appears to connect to Provider Services and bring up my Essbase servers, but not actually connect to a specific application/database.
I am using Excel 2007.
I am also confused about the difference between HypCreateConnection and HypConnect. Do you need to use both, and if so, in which order? I found an article about Customizing Smart View Worksheets by using the VBA Toolkit, but it makes no mention of HypCreateConnection (and instructions seem to be for Excel 2003), so it wasn't very helpful.
Thanks!

OK... I'm still struggling with this. I keep getting a -47 error on the HypCreateConnection line, which according to the docs says that the connection already exists. So I added commands to try to remove the connection prior to creating it if one already exists. Here is my code:
X = HypIsConnectedToAPS()
If X = True Then
X = HypDisconnectFromAPS()
End If
X = HypConnectionExists("SampBasicConn")
If X = True Then
X = HypRemoveConnection("SampBasicConn")
End If
X = HypCreateConnection(Empty, "admin", "password", HYP_ESSBASE, "http://apsserver:13080/smartview/SmartView", "essserver", "Sample", "Basic", "SampBasicConn", "Analytic Provider Services")
X = HypConnectionExists("SampBasicConn")
If X = True Then
X = HypConnect(Empty, "admin", "password", "SampBasicConn")
End If
Return codes are all expected (sometimes I have to disconnect from APS and sometimes not) until I hit the HypCreateConnection line. The HypConnectionExists always returns false, but HypCreateConnection returns -47. After that, I test for the connection again, and it returns false. So why am I getting a -47? Also, there is no connection. It is truly acting as though the HypCreateConnection is failing. But the error code is not helpful. Is there any way to tell what is causing the failure? It seems I have tried all permutations of "/aps/SmartView", "/smartview/SmartView", fully qualified server names, etc. Is there a way to tell what is causing the failure (bad username/password, bad APS URL, bad Essbase server, bad application/database, etc.)?

SmartView VBA - Cannot set "Update Column Width" setting

Hi Folks,
I'm in the process of updating a series of v9 Essbase VBA API-driven workbooks to SmartView 11.1.2.1 and have hit a problem - I'm new to the SV VBA commands, and I'm hoping this is something obvious that I'm missing.
One of the functions that is key to ensuring data retrieval does not change the layout of the spreadsheets is the "Adjust Column Widths" setting, which in the Essbase VBA API could be managed using the EssVSetSheetOption function, but neither HypSetGlobalOption nor HypSetSheetOption appear to have any such capability. The only option I'm left with is to run retrieves followed by some reformatting of column widths, which seems rather ineligant to me.
Any ideas?
Many thanks,
Dave

looking in the .bas file (and what should be included in your project I find HSV_ADJUSTCOLUMNWIDTH in the definitions for Enumeration of options index to be used for HypGetOption/HypSetOption
Note, I'm looking at the 11.1.2.2 version, your mileage may vary depending on your version

Smartview VBA functions

Hi All,
Is there any link or documentation listing the VBA functions for Smartview equivalent to the functions in excel addin.
Thanks,
Raja

You too have noticed that there are quite a few functions missing. :)
Some of these items are because the functions aren't in SV at all, others because they are not exposed to the API.
You may be in luck with aliases as HypSetAliasTable will allow you to set the table, but not to turn aliases on and off.
If you are in 11.x, you might also want to take a look at HypSetConnAliasTable. I think that will actually change the alias table for the currently defined connection.
As for LROs, secondary buttons, and DTS, I think you are out of luck -- those items are not in SV so there are no corresponding functions.
I had a mildly painful experience with SV VBA early last year -- there were quite a few bugs. I think at one point I had identified eight defects (this was the old esupport web site). If you are on 9.3.x, make sure you are as up to date as possible.
Regards,
Cameron Lackpour

SmartView VBA with HypExecuteCalcScriptEx

Hi,
We've got a macro that runs a couple of business rules. When we run this macro, the first BR is executed without any troubles but when it gets to the execution of the second business rule we get the following error:
-41 SS_NOSUPPORT_PROVIDER
We only get this error in the developing environment and not in production environment however they both use the exact same versions and same configurations. We only get this error in production environment when we run the macro with certain pc's. What's really awkward is that this exact same macro used to work properly in both environments.
The macro runs both the first BR and the second (and a bunch of BR after that second one where we get the error) with the same function:
Function ejecutaFuncionEssbase(ByVal oSheet As Variant, ByVal vFunction As Variant, ByRef vNamePrompt() As Variant, ByRef vValuePrompt() As Variant) As Integer
    X = HypConnectionExists("Conexion Planning Sim")
    If X = True Then
        X = HypRemoveConnection("Conexion Planning Sim")
    End If
    X = HypCreateConnectionEx(HYP_PLANNING, vServer, "036CPCK", "036CPCK", "/Forms/Reportes/1.14 Seleccion atributos", CStr("http://" & vServer & ":19000/HyperionPlanning/SmartView"), "Conexion Planning Sim", vUser, vPass, "Conexion al modelo 036CPCK", "", "")
    Y = HypConnect(oSheet, vUser, vPass, "Conexion Planning Sim")
    Dim resultado As Integer
    Dim oRet As Long
    'Dim oSheet As Worksheet
    Dim vtCubeNames As Variant
    Dim vtBRNames As Variant
    Dim vtBRTypes As Variant
    Dim vtBRHasPrompts As Variant
    Dim vtBRNeedsPageInfo As Variant
    Dim vtBRHidePrompts As Variant
    Dim sAllCalcs As String
    Dim sCalcName As String
    Dim bNeedPageInfo As Variant
    Dim vtInRTPNames() As Variant
    Dim vtInRTPValues() As Variant
    Dim vtOutRTPNames As Variant
    Dim vtOutRTPValues As Variant
    Dim vtbBRRanSuccessfully As Variant
    Dim vtbBRRanSuccessfully2 As Variant
    Dim vtOutCubeName As Variant
    Dim vtOutBRName As Variant
    Dim vtOutBRType As Variant
    Dim bBRHasPrompts As Variant
    Dim bBRNeedPageInfo As Variant
    Dim bBRHidePrompts As Variant
    Dim bShowDlg As Variant
    Dim bRuleOnForm As Variant
       'Start Executing the Calc Script
        bShowDlg = False
        bRuleOnForm = False
        oRet = HypExecuteCalcScriptEx(oSheet, "036CPCK", vFunction, "graphical", True, False, vNamePrompt, vValuePrompt, bShowDlg, bRuleOnForm, vtbBRRanSuccessfully, vtOutCubeName, vtOutBRName, vtOutBRType, bBRHasPrompts, bBRNeedPageInfo, bBRHidePrompts, vtOutRTPNames, vtOutRTPValues)
We've tried with a different provider (that's also valid), a different function and some other minor changes but we're still facing the same issue. We know that all parameters are correctly passed like the BR name , and their corresponding prompts. We think it might have something to do with the connection to provider services but we have no clue how to fix it. If anybody could helo us we would be greatly appreciated.
Regards,
Santiago Ruiz

Hi,
We've got a macro that runs a couple of business rules. When we run this macro, the first BR is executed without any troubles but when it gets to the execution of the second business rule we get the following error:
-41 SS_NOSUPPORT_PROVIDER
We only get this error in the developing environment and not in production environment however they both use the exact same versions and same configurations. We only get this error in production environment when we run the macro with certain pc's. What's really awkward is that this exact same macro used to work properly in both environments.
The macro runs both the first BR and the second (and a bunch of BR after that second one where we get the error) with the same function:
Function ejecutaFuncionEssbase(ByVal oSheet As Variant, ByVal vFunction As Variant, ByRef vNamePrompt() As Variant, ByRef vValuePrompt() As Variant) As Integer
    X = HypConnectionExists("Conexion Planning Sim")
    If X = True Then
        X = HypRemoveConnection("Conexion Planning Sim")
    End If
    X = HypCreateConnectionEx(HYP_PLANNING, vServer, "036CPCK", "036CPCK", "/Forms/Reportes/1.14 Seleccion atributos", CStr("http://" & vServer & ":19000/HyperionPlanning/SmartView"), "Conexion Planning Sim", vUser, vPass, "Conexion al modelo 036CPCK", "", "")
    Y = HypConnect(oSheet, vUser, vPass, "Conexion Planning Sim")
    Dim resultado As Integer
    Dim oRet As Long
    'Dim oSheet As Worksheet
    Dim vtCubeNames As Variant
    Dim vtBRNames As Variant
    Dim vtBRTypes As Variant
    Dim vtBRHasPrompts As Variant
    Dim vtBRNeedsPageInfo As Variant
    Dim vtBRHidePrompts As Variant
    Dim sAllCalcs As String
    Dim sCalcName As String
    Dim bNeedPageInfo As Variant
    Dim vtInRTPNames() As Variant
    Dim vtInRTPValues() As Variant
    Dim vtOutRTPNames As Variant
    Dim vtOutRTPValues As Variant
    Dim vtbBRRanSuccessfully As Variant
    Dim vtbBRRanSuccessfully2 As Variant
    Dim vtOutCubeName As Variant
    Dim vtOutBRName As Variant
    Dim vtOutBRType As Variant
    Dim bBRHasPrompts As Variant
    Dim bBRNeedPageInfo As Variant
    Dim bBRHidePrompts As Variant
    Dim bShowDlg As Variant
    Dim bRuleOnForm As Variant
       'Start Executing the Calc Script
        bShowDlg = False
        bRuleOnForm = False
        oRet = HypExecuteCalcScriptEx(oSheet, "036CPCK", vFunction, "graphical", True, False, vNamePrompt, vValuePrompt, bShowDlg, bRuleOnForm, vtbBRRanSuccessfully, vtOutCubeName, vtOutBRName, vtOutBRType, bBRHasPrompts, bBRNeedPageInfo, bBRHidePrompts, vtOutRTPNames, vtOutRTPValues)
We've tried with a different provider (that's also valid), a different function and some other minor changes but we're still facing the same issue. We know that all parameters are correctly passed like the BR name , and their corresponding prompts. We think it might have something to do with the connection to provider services but we have no clue how to fix it. If anybody could helo us we would be greatly appreciated.
Regards,
Santiago Ruiz

Smartview VBA - Using HypCreateConnection to connect to different Providers

Hello,
I am currently working with Smartview 11.1.1.3.500. I am trying to build some code that will allow me to switch between our production and test environments that are on different APS URLs, rather than having to go into the options and typing in the server information everytime I need to switch. It looks like the HypCreateConnection function would be the one that would allow me to do this, but I'm not sure if I'm using it correctly. I am trying to send the Prod or Test APS URL and database info into the vtProviderURL and vtServerName parameters.
HypCreateConnection(Empty, [userName], [userPass], HYP_ESSBASE, [Prod/Test APS URL], [Prod/Test Server Info], [AppName],[DB Name], [Prod/Test Name] , "Analytic Provider Services")
However it seems that despite passing the URL to the function, the connection is using the information that is saved in the "Default URL" box in the "Hyperion Provider Service URL" section, in the "Ad Hoc" tab of the Hyperion Options window, which is where I've been manually typing in the Prod or Test URL everytime I need to retrieve their respective data.
The result is that after running my code, the "Smart View Data Source Manager" indicates that the APS URL being connected to is what was saved in my options, rather than my code.
Any help would be appreciated
Edited by: 1002778 on Apr 26, 2013 9:11 AM
I just realized that this is should be in the Smart View forum. Admins, feel free to move this thread.
Edited by: 1002778 on Apr 26, 2013 1:21 PM

I tried creating a connection and connecting and it is working for me. This is the macro that i used.
Sub create_connect()
sts = HypCreateConnection("Sheet2", "username", "password", HYP_ESSBASE, "http://testservername:19000/aps/APS", "testessbase", "app", "db", "App:DB", "Test Cube1")
sts = HypConnect(Empty, "username", "password", "App:DB")
End SubRegards
Celvin

Smartview VBA HypGetSheetOption problem

I am having an issue where my call to HypGetsheetOption #13 is returning an indiscypherable result. My #Missing label is set to #Missing but the call to retreive this returns garbage.
using vba's len function, I see that I have 1 less character then what was entered and is visible on the Hyperion-Options tab.
when I write the returned string to a cell on a worksheet, it looks like chinese.
when i use strconv vbUnicode the returned value appears as "# M i s s i n" spaces between characters and the "g" chopped off.
I don't see anything posted on anything like this, so I am suspecting I am overlooking something obvious.
I am using R 11.1.1.3, windows 7, US
Edited by: Cdeblue on Dec 10, 2012 8:47 AM

There definitely seems to be something funky going on with the return from that function. I'm on 11.1.2, Win 7 64-bit / Office 2010 32-bit.
I'm running the following code (the "A4" line is because sometimes, converting to Unicode then back again seemed to produce the correct result) and I don't get the same result every time. Sometimes it works. Declaring the return type as string rather than variant doesn't make any difference.
Reluctant to say 'bug' because I can't even get consistent results, but unless I'm misunderstanding something in the VBA it does look like it.
Sub TestMissing()
Dim vtMissing As Variant
vtMissing = HypGetSheetOption(ActiveWorkbook.ActiveSheet, 13)
Range("A1", "A4").Clear
Range("A1") = vtMissing
Range("A2") = StrConv(vtMissing, vbUnicode)
Range("A3") = StrConv(vtMissing, vbFromUnicode)
Range("A4") = StrConv(StrConv(vtMissing, vbUnicode), vbFromUnicode)
End Sub

Smartview Hypretreive VBA error

Hi All
I'm uisng 11.1.2 SmartView VBAs to retrieve values for 7 excel sheets in a work book
Sheet6.Activate
sts = HypSetActiveConnection(connectionname)
'Retrieve data for each sheet
X = ActiveSheet.Name
Application.DisplayStatusBar = True
sts4 = HypRetrieve(Sheet6)
sts = HypDisconnect(Sheet6, True)
Application.StatusBar = "Retrieving data for " & X & "...."
Application.Wait Now + TimeValue("00:00:02")
Below given is the piece of code (in macro, i'm replicating the same code for all the 7 sheets)
But everytime i run the macro....some of the sheets is not get refreshed correctly. (it is random.....sometimes first 3 gets refreshed.....sometimes 4,5,7th)....
The status return is always 4.
CAn someone throw some light on this......do i need to wait for more time before the next refresh.
I tried using HypMenuVRefresh and then it aborts with following error message.
“Cannot query members by specs. Essbase Error(1290002): Network Error [10061]: Unable To Connect To [server:32776]. The client timed out waiting to connect to the Essbase Server using TCP/IP. Make sure that the client machine has sufficient number of ports available.”
I tried adding MaxUserPort and TcpTimedWaitDelay and MaxFreeTcbs, but that didn't help.

Hi Celvin
I agree with Matt on the possibility of a timeout issue, esp considering the randomness in how the problem manifests. However, I would look more the server setting on this first.
Error code (positive) 4 usually seems to indicate a "Server Error" - the APS server threw the error, and not the SV Client.
I've also seen Error 4 when the dataset requested will exceed some limit such as number of possible rows or columns.
If I had to list the error codes in order of how much li like to debug them, not that I like to debug error codes, this one would be very near the bottom.
Can you help me understand why you have an Application.Wait at the end of your code snip?
Robb Salzmann

Smartview.bas file missing from bin.

Hopefully I'm posting in the correct forum, my appologies if not.
I understand the VBA functions for smartview are in the "Smartview.bas" file that should be in the program's bin folder. I seem to be missing the file even after reinstalling.
Could someone direct me to where I can get the file?
or
I'm not sure how large the file is, but if the functions were posted to a reply I could capture them there.
many thanks!

Attribute VB_Name = "Module1"
' Copyright 1992-2006 Hyperion Solutions Corporation. All Rights Reserved.
' RESTRICTED RIGHTS LEGEND:
' Use, duplication, or disclosure by the Government is subject to
' restrictions as set forth in subparagraph (c)(1)(ii) of the Rights
' in Technical Data and Computer Software clause at DFARS 252.227-7013,
' or in the Commercial Computer Software Restricted Rights clause at
' FAR 52.227-19, as applicable.
' Hyperion Solutions Corporation
' 5450 Great America Parkway; Santa Clara, CA 95054 USA
' Function Smartview VBA Declaration.
' Global Constants for outline query types
Global Const HYP_CHILDREN = 1
Global Const HYP_DESCENDANTS = 2
Global Const HYP_BOTTOMLEVEL = 3
Global Const HYP_SIBLINGS = 4
Global Const HYP_SAMELEVEL = 5
Global Const HYP_SAMEGENERATION = 6
Global Const HYP_PARENT = 7
Global Const HYP_DIMENSION = 8
Global Const HYP_NAMEDGENERATION = 9
Global Const HYP_NAMEDLEVEL = 10
Global Const HYP_SEARCH = 11
Global Const HYP_WILDSEARCH = 12
Global Const HYP_USERATTRIBUTE = 13
Global Const HYP_ANCESTORS = 14
Global Const HYP_DTSMEMBER = 15
Global Const HYP_DIMUSERATTRIBUTES = 16
'Outline member query Constants.
Global Const HYP_COMMENT = 1
Global Const HYP_FORMULA = 2
Global Const HYP_UDA = 3
Global Const HYP_ATTRIBUTE = 4
'Outline member query Options
Global Const HYP_MEMBERSONLY = 1
Global Const HYP_ALIASESONLY = 2
Global Const HYP_MEMBERSANDALIASES = 4
'Supported Providers
Global Const HYP_ANALYTIC_SERVICES = "Analytic Provider Services"
Global Const HYP_FINANCIAL_MANAGEMENT = "Hyperion Financial Management"
'Menu Operations
Public Declare Function HypMenuVConnect Lib "HsAddin" () As Long
Public Declare Function HypMenuVRefresh Lib "HsAddin" () As Long
Public Declare Function HypMenuVRetrieve Lib "HsAddin" () As Long
Public Declare Function HypMenuVOptions Lib "HsAddin" () As Long
Public Declare Function HypMenuVKeepOnly Lib "HsAddin" () As Long
Public Declare Function HypMenuVRemoveOnly Lib "HsAddin" () As Long
Public Declare Function HypMenuVZoomIn Lib "HsAddin" () As Long
Public Declare Function HypMenuVZoomOut Lib "HsAddin" () As Long
Public Declare Function HypMenuVPivot Lib "HsAddin" () As Long
Public Declare Function HypMenuVSubmitData Lib "HsAddin" () As Long
Public Declare Function HypMenuVDisconnect Lib "HsAddin" () As Long
Public Declare Function HypMenuVCalculation Lib "HsAddin.dll" () As Long
'VBA Functions
' Connections
Public Declare Function HypCreateConnection Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtUserName As Variant, ByVal vtPassword As Variant, ByVal vtProvider As Variant, ByVal vtProviderURL As Variant, ByVal vtServerName As Variant, ByVal vtApplicationName As Variant, ByVal vtDatabaseName As Variant, ByVal vtFriendlyName As Variant, ByVal vtDescription As Variant) As Long
Public Declare Function HypConnect Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtUserName As Variant, ByVal vtPassword As Variant, ByVal vtFriendlyName As Variant) As Long
Public Declare Function HypDisconnect Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal bLogoutUser As Boolean) As Long
Public Declare Function HypRemoveConnection Lib "HsAddin" (ByVal vtFriendlyName As Variant) As Long
Public Declare Function HypConnectionExists Lib "HsAddin.dll" (ByVal vtConnectionName As Variant) As Variant
Public Declare Function HypSetActiveConnection Lib "HsAddin.dll" (ByVal vtConnectionName As Variant) As Long
'Ad-Hoc operations
Public Declare Function HypRetrieve Lib "HsAddin" (ByVal vtSheetName As Variant) As Long
Public Declare Function HypZoomIn Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtSelection As Variant, ByVal vtLevel As Variant, ByVal vtAcross As Variant) As Long
Public Declare Function HypZoomOut Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtSelection As Variant) As Long
Public Declare Function HypKeepOnly Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtSelection As Variant) As Long
Public Declare Function HypRemoveOnly Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtSelection As Variant) As Long
Public Declare Function HypPivot Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtStart As Variant, ByVal vtEnd As Variant) As Long
Public Declare Function HypPivotToGrid Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtDimensionName As Variant, ByVal vtSelection As Variant) As Long
Public Declare Function HypPivotToPOV Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtSelection As Variant) As Long
Public Declare Function HypCell Lib "HsAddin" (ByVal vtSheetName As Variant, ParamArray MemberList() As Variant) As Variant
Public Declare Function HypSubmitData Lib "HsAddin" (ByVal vtSheetName As Variant) As Long
'Flashback
Public Declare Function HypRedo Lib "HsAddin" (ByVal vtSheetName As Variant) As Long
Public Declare Function HypUndo Lib "HsAddin" (ByVal vtSheetName As Variant) As Long
'POV
Public Declare Function HypSetPOV Lib "HsAddin" (ByVal vtSheetName, ParamArray MemberList() As Variant) As Long
Public Declare Function HypSetBackgroundPOV Lib "HsAddin" (ByVal vtFriendlyName, ParamArray MemberList() As Variant) As Long
'Business rules
Declare Function HypListCalcScripts Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByRef scriptArray) As Long
Declare Function HypExecuteCalcScript Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtCalcScript As Variant, ByVal vtSynchronous As Variant) As Long
'Query members
Declare Function HypQueryMembers Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtMemberName As Variant, ByVal vtPredicate As Variant, ByVal vtOption As Variant, ByVal vtDimensionName As Variant, ByVal vtInput1 As Variant, ByVal vtInput2 As Variant, ByRef vtMemberArray As Variant) As Long
Declare Function HypSetMenu Lib "HsAddin.dll" (ByVal bSetMenu As Boolean) As Long
Declare Function HypIsUDA Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtDimensionName As Variant, ByVal vtMemberName As Variant, ByVal vtUDAString As Variant) As Variant
Declare Function HypIsAttribute Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtDimensionName As Variant, ByVal vtMemberName As Variant, ByVal vtUDAString As Variant) As Variant
Declare Function HypIsExpense Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtDimensionName As Variant, ByVal vtMemberName As Variant) As Variant
Declare Function HypConnected Lib "HsAddin" (ByVal vtSheetName As Variant) As Variant
Declare Function HypFindMember Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtMemberName As Variant, ByVal vtAliasTable As Variant, ByRef vtDimensionName As Variant, ByRef vtAliasName As Variant, ByRef vtGenerationName As Variant, ByRef vtLevelName As Variant) As Long
Declare Function HypGetDataPoint Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtCell As Variant) As Variant
Declare Function HypFreeDataPoint Lib "HsAddin.dll" (ByRef vtInfo As Variant) As Long
Declare Function HypSetCellsDirty Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtRange As Variant) As Long
Declare Function HypOtlGetMemberInfo Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtDimensionName As Variant, ByVal vtMemberName As Variant, ByVal vtPredicate As Variant, ByRef vtMemberArray As Variant) As Long
Declare Function HypGetParent Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtMemberName As Variant, ByRef vtParentName As Variant) As Long
Declare Function HypIsParent Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtMemberName As Variant, ByVal ParentName As Variant) As Boolean
Declare Function HypGetChildren Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtMemberName As Variant, ByVal intChildCount As Integer, ByRef vtChildNameArray As Variant) As Long
Declare Function HypIsDescendant Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtMemberName As Variant, ByVal vtDescendantName As Variant) As Boolean
Declare Function HypSetSubstitutionVariable Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtApplicationName As Variant, ByVal vtDatabaseName As Variant, ByVal vtVariableName As Variant, ByVal vtVariableValue As Variant) As Long
Declare Function HypGetSubstitutionVariable Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtApplicationName As Variant, ByVal vtDatabaseName As Variant, ByVal vtVariableName As Variant, ByRef vtVariableNames As Variant, ByRef vtVariableValues As Variant) As Long
Declare Function HypGetAncestor Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtMemberName As Variant, ByVal vtLayerType As Variant, ByVal intLayerNumber As Integer, ByRef vtAncestor As Variant) As Long
'Options
Declare Function HypSetGlobalOption Lib "HsAddin" (ByVal vtItem As Long, ByVal vtGlobalOption As Variant) As Long
Declare Function HypGetGlobalOption Lib "HsAddin" (ByVal vtItem As Long) As Variant
Declare Function HypGetSheetOption Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtItem As Variant) As Variant
Declare Function HypSetSheetOption Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtItem As Variant, ByVal vtOption As Variant) As Long
'HFM Functions
Public Declare Function HypCalculate Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtRange As Variant) As Long
Public Declare Function HypForceCalculate Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtRange As Variant) As Long
Public Declare Function HypCalculateContribution Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtRange As Variant) As Long
Public Declare Function HypForceCalculateContribution Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtRange As Variant) As Long
Public Declare Function HypTranslate Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtRange As Variant) As Long
Public Declare Function HypForceTranslate Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtRange As Variant) As Long
Public Declare Function HypConsolidate Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtRange As Variant) As Long
Public Declare Function HypConsolidateAll Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtRange As Variant) As Long
Public Declare Function HypConsolidateAllWithData Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtRange As Variant) As Long
'Dynamic Link Functions
Public Declare Function HypGetRowCount Lib "HsAddin.dll" () As Long
Public Declare Function HypGetColCount Lib "HsAddin.dll" () As Long
Public Declare Function HypGetPOVCount Lib "HsAddin.dll" () As Long
Public Declare Function HypUseLinkMacro Lib "HsAddin.dll" (ByVal bUse As Boolean) As Long
Public Declare Function HypSetLinkMacro Lib "HsAddin.dll" (ByVal vtMacroName As Variant) As Long
Public Declare Function HypGetLinkMacro Lib "HsAddin.dll" (ByRef vtMacroName As Variant) As Long
Public Declare Function HypSetPOVItems Lib "HsAddin.dll" (ParamArray MemberList() As Variant) As Long
Public Declare Function HypDisplayTwoDimArray Lib "HsAddin.dll" (ByRef vtMemberList() As Variant) As Long
Public Declare Function HypGetSourceGrid Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByRef vtGrid As Variant) As Long
Public Declare Function HypGetPOVItems Lib "HsAddin.dll" (ByRef vtDimensionNames As Variant, ByRef vtPOVNames As Variant) As Long
Public Declare Function HypDisplayToLinkView Lib "HsAddin.dll" (ByVal vtDocumentType As Variant, ByVal vtDocumentPath As Variant) As Long
Public Declare Function HypGetRowItems Lib "HsAddin.dll" (ByVal rowID As Variant, ByRef vtDimensionName As Variant, ByRef vtMembernames As Variant) As Long
Public Declare Function HypGetColItems Lib "HsAddin.dll" (ByVal vtColID As Variant, ByRef vtDimensionName As Variant, ByRef vtMembernames As Variant) As Long
Public Declare Function HypSetRowItems Lib "HsAddin.dll" (ByVal vtRowID As Variant, ByVal vtDimensionName As Variant, ParamArray MemberList() As Variant) As Long
Public Declare Function HypSetColItems Lib "HsAddin.dll" (ByVal vtColID As Variant, ByVal vtDimensionName As Variant, ParamArray MemberList() As Variant) As Long
Public Declare Function HypGetConnectionInfo Lib "HsAddin.dll" (ByRef vtServerName As Variant, ByRef vtUserName As Variant, ByRef vtPassword As Variant, ByRef vtApplicationName As Variant, ByRef vtDatabaseName As Variant, ByRef vtFriendlyName As Variant, ByRef vtURL As Variant, ByRef vtProviderType As Variant) As Long
Public Declare Function HypSetConnectionInfo Lib "HsAddin.dll" (ByVal vtServerName As Variant, ByVal vtUserName As Variant, ByVal vtPassword As Variant, ByVal vtApplicationName As Variant, ByVal vtDatabaseName As Variant, ByVal vtFriendlyName As Variant, ByVal vtURL As Variant, ByVal vtProviderType As Variant) As Long
Public Declare Function HypDeleteCalc Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtApplicationName As Variant, ByVal vtDatabaseName As Variant, ByVal vtCalcScript As Variant) As Long
Public Declare Function HypExecuteQuery Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtMDXQuery As Variant) As Long
Public Declare Function HypSetAliasTable Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtAliasTableName As Variant) As Long
Public Declare Function HypRetrieveRange Lib "HsAddin.dll" (ByVal vtSheetName As Object, ByVal vtRange As Object, ByVal vtConnName As Object) As Long
Public Declare Function HypSetConnAliasTable Lib "HsAddin.dll" (ByVal vtConnName As Variant, ByVal vtAliasTableName As Variant) As Long

SmartView report automation v9.3

Thanks is advance for any help.
I have built automated reports of various types over the years using the Excell Client add-in, Where I am workinf now, they only install Smart View so I am trying to produce the same sort of automated reports with the SmartView vba "Toolkit". However, I am not locating the required dll's and smartview.bas file that the documentation points to: "In Import File, select smartview.bas in \SmartView\bin to declare all functions or just the function you plan to use. "
I have searched both the client and server and am not finding anything.
Can anyone help?
Thansk You!!

The odd thing is, no smartview folder has been created, yet, smartview is up and running. One note, I am running Windows 7 AND Office 2007, that is why I downgraded to v9.3.1, 11.1.1.3 would not work on my machine.
I will see if I can do this on another machine.
Thanks much!!

VBA to pull from Financial Reporting Studio/Reporting and Analysis Framework

Hi all,
I just started using Financial Reporting Studio, and I did a lot of research online to try to answer the questions I have below but to no avail, so I'm hoping I can get answers from the experts here.
1. I was wondering if it's possible to use SmartView VBA to pull a report from the "Reporting and Analysis Framework" onto Excel? If yes, how?
2. When I tried to pull lots of data from "Reporting and Analysis Framework" onto Excel using SmartView, it keeps getting the error message "New report failed to insert properly". Is there a way around this? Essentially, what I'm trying to do is pull the Expense data (Actuals, Budget, Forecast) from year 2011 to 2015 (by month) for every department (with each department being on its own worksheet using the split feature). If I reduce the number of departments or columns, it'll work, but when I try to keep everything, it fails.
Thanks for your guys' help!

Hi there,
There is VBA manual for smartiview application however I am not sure that you will be able to automate the retrieve of a report.
Check chapter 19 of http://docs.oracle.com/cd/E12825_01/epm.111/sv_user.pdf
Regards,
Thanos

Smartview v11 does not have batch and scheduling capabilities?

From reading documentation, it seems that Smartview v11 does not have batch and scheduling capabilities. Am I right?
So if I want to schedule my Essbase reports and run cascading reports to be batched and emailed to different users (each receiving custom repors for their Business Units), how would I go about it?
Should I create the rep;orts using Financial Reporting and batch email it out to users, who can then convert those FR reports to Smartview so that they can perform Drill-in detail analysis ?
Thanks in Advance.

You could also possibly run a VBA based excel macro to create a "Batch" process that would update a sheet or create a workbook, and email the file to an end user. Looking within the smartview VBA commands there are some pretty useful commands that could automate this process for you. I'm not sure on the process you would use for automating a process to send FR reports, but emailing from within excel is not usually to hard to do via VBA and might help to automate this.
JF

Smartview VBA marcos

Similar Messages

Maybe you are looking for