SmartView API V 11.1.2.2.300
Could someone post the vb api for Smartview 11.1.2.2.300?
I know that it is usually installed in the bin on my C drive, but the company I am train has not allowed access to the C drive.
Attribute VB_Name = "SmartViewVBA".
"Copyright (c) 1992, 2012, Oracle and/or its affiliates." All rights reserved.
'
"THE RESTRICTED RIGHTS LEGEND:
' Use, duplication, or disclosure by the Government is subject to
"restrictions set forth in paragraph (c) (1) (ii) rights
' in the Technical Data and Computer Software DFARS 252.227 - 7013 clause,.
"or the clause rights Commercial Computer Software restricted to.
"Far 52.227 - 19, as the case may be."
'
"Oracle Corporation".
"5450 Great America Parkway;" Santa Clara, CA 95054, United States USA
'
'VBA Smartview function declaration.
'**************************************************************************
"The global constants for outline question 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
'**************************************************************************
"The global constants for query hierarchical member.
'**************************************************************************
Global Const HYP_COMMENT = 1
Global Const HYP_FORMULA = 2
Global Const HYP_UDA = 3
Global Const HYP_ATTRIBUTE = 4
'**************************************************************************
«Global constants for hierarchical member query options»
'**************************************************************************
Global Const HYP_MEMBERSONLY = 1
Global Const HYP_ALIASESONLY = 2
Global Const HYP_MEMBERSANDALIASES = 4
'**************************************************************************
"The global constants for the ID of the version info.
'**************************************************************************
Global Const BUILD_VERSION = 'VERSION '.
Global Const BUILD_NUMBER = 'BUILD No.'
Global Const BUILD_DATE = "DATE construction".
Global Const PRODUCT_ID = "PRODUCT ID".
'**************************************************************************
"The global constants for supported data providers.
'**************************************************************************
Global Const HYP_ANALYTIC_SERVICES = "Analytic Provider Services.
Global Const HYP_FINANCIAL_MANAGEMENT = "Hyperion Financial Management."
Global Const HYP_ESSBASE = "Essbase.
Global Const HYP_PLANNING = "schedule".
Global Const HYP_OBIEE = "OBIEE.
Global Const HYP_ENTERPRISE = "Hyperion Enterprise."
Global Const HYP_RA = 'Hyperion Smart View provider for Hyperion Reporting' and analysis
'**************************************************************************
"The global constants for members information name of the property.
'**************************************************************************
Global Const HYP_MI_NAME = 'name '.
Global Const HYP_MI_DIM = "Dim".
Global Const HYP_MI_LEVEL = 'level '.
Global Const HYP_MI_GENERATION = 'Generation '.
Global Const HYP_MI_PARENT_MEMBER_NAME = "ParentMbrName".
Global Const HYP_MI_CHILD_MEMBER_NAME = "ChildMbrName".
Global Const HYP_MI_PREVIOUS_MEMBER_NAME = "PrevMbrName".
Global Const HYP_MI_NEXT_MEMBER_NAME = "NextMbrName".
Global Const HYP_MI_CONSOLIDATION = 'Consolidation '.
Global Const HYP_MI_IS_TWO_PASS_CAL_MEMBER = "IsTwoPassCalcMbr".
Global Const HYP_MI_IS_EXPENSE_MEMBER = "IsExpenseMbr".
Global Const HYP_MI_CURRENCY_CONVERSION_TYPE = "CurrencyConversionType".
Global Const HYP_MI_CURRENCY_CATEGORY = "CurrencyCategory".
Global Const HYP_MI_TIME_BALANCE_OPTION = "TimeBalanceOption".
Global Const HYP_MI_TIME_BALANCE_SKIP_OPTION = "TimeBalanceSkipOption".
Global Const HYP_MI_SHARE_OPTION = "interest".
Global Const HYP_MI_STORAGE_CATEGORY = "StorageCategory".
Global Const HYP_MI_CHILD_COUNT = "ChildCount.
Global Const HYP_MI_ATTRIBUTED = "attributed".
Global Const HYP_MI_RELATIONAL_DESCENDANT_PRESENT = "RelDescendantPresent".
Global Const HYP_MI_RELATIONAL_PARTITION_ENABLED = "RelPartitionEnabled".
Global Const HYP_MI_DEFAULT_ALIAS = "DefaultAlias.
Global Const HYP_MI_HIERARCHY_TYPE = "HierarchyType.
Global Const HYP_MI_DIM_SOLVE_ORDER = "DimSolveOrder".
Global Const HYP_MI_IS_DUPLICATE_NAME = "IsDuplicateName".
Global Const HYP_MI_UNIQUE_NAME = "UniqueName.
Global Const HYP_MI_ORIGINAL_MEMBER = "OrigMember".
Global Const HYP_MI_IS_FLOW_TYPE = "IsFlowType".
Global Const HYP_MI_AGGREGATE_LEVEL = "AggLevel".
Global Const HYP_MI_FORMAT_STRING = "FormatString".
Global Const HYP_MI_ATTRIBUTE_DIMENSIONS = "AttributeDims".
Global Const HYP_MI_ATTRIBUTE_MEMBERS = "AttributeMbrs".
Global Const HYP_MI_ATTRIBUTE_TYPES = 'AttributeTypes '.
Global Const HYP_MI_ALIAS_NAMES = "AliasNames.
Global Const HYP_MI_ALIAS_TABLES = "AliasTables".
Global Const HYP_MI_FORMULA = "Formula".
Global Const HYP_MI_COMMENT = "comment".
Global Const HYP_MI_LAST_FORMULA = "LastFormula".
Global Const HYP_MI_UDAS = "Edu".
'**************************************************************************
"Enumeration of Type of the linked object
'**************************************************************************
TYPE_OF_LRO Enumeration
CELL_NOTE_LRO = 1
FILE_LRO = 2
URL_LRO = 3
End Enum
'**************************************************************************
' Enumeration of the types of journal content
'**************************************************************************
TYPE_OF_CONTENTS_IN_SHEET Enumeration
EMPTY_SHEET
ADHOC_SHEET
FORM_SHEET
INTERACTIVE_REPORT_SHEET
End Enum
'**************************************************************************
' Enumeration of the Smart View Error Codes
'**************************************************************************
SmartViewErrors Enumeration
SS_ERR_ERROR = 4
SS_NO_GRID_ON_SHEET_BUT_FUNCTIONS_SUBMITTED = 2
SS_SHEET_NOT_CONNECTED_BUT_FUNCTIONS_SUBMITTED = 1
SS_OK = 0
SS_INIT_ERR = - 1
SS_TERM_ERR = - 2
SS_NOT_INIT = - 3
SS_NOT_CONNECTED = - 4
SS_NOT_LOCKED = - 5
SS_INVALID_SSTABLE = - 6
SS_INVALID_SSDATA = - 7
SS_NOUNDO_INFO = - 8
SS_CANCELED = - 9
SS_GLOBALOPTS = - 10
SS_SHEETOPTS = - 11
SS_NOTENABLED = - 12
SS_NO_MEMORY = - 13
SS_DIALOG_ERROR = - 14
SS_INVALID_PARAM = - 15
SS_CALCULATING = - 16
SS_SQL_IN_PROGRESS = - 17
SS_FORMULAPRESERVE = - 18
SS_INTERNALSSERROR = - 19
SS_INVALID_SHEET = - 20
SS_NOACTIVESHEET = - 21
SS_NOTCALCULATING = - 22
SS_INVALIDSELECTION = - 23
SS_INVALIDTOKEN = - 24
SS_CASCADENOTALLOWED = - 25
SS_NOMACROS = - 26
SS_NOREADONLYMACROS = - 27
SS_READONLYSS = - 28
SS_NOSQLACCESS = - 29
SS_MENUALREADYREMOVED = - 30
SS_MENUALREADYADDED = - 31
SS_NOSPREADSHEETACCESS = - 32
SS_NOHANDLES = - 33
SS_NOPREVCONNECTION = - 34
SS_LROERROR = - 35
SS_LROWINAPPACCESSERR = - 36
SS_DATANAVINITERR = - 37
SS_PARAMSETNOTALLOWED = - 38
SS_SHEET_PROTECTED = - 39
SS_CALCSCRIPT_NOTFOUND = - 40
SS_NOSUPPORT_PROVIDER = - 41
SS_INVALID_ALIAS = - 42
SS_CONN_NOT_FOUND = - 43
SS_APS_CONN_NOT_FOUND = - 44
SS_APS_NOT_CONNECTED = - 45
SS_APS_CANT_CONNECT = - 46
SS_CONN_ALREADY_EXISTS = - 47
SS_APS_URL_NOT_SAVED = - 48
SS_MIGRATION_OF_CONN_NOT_ALLOWED = - 49
SS_CONN_MGR_NOT_INITIALIZED = - 50
SS_FAILED_TO_GET_APS_OVERRIDE_PROPERTY = - 51
SS_FAILED_TO_SET_APS_OVERRIDE_PROPERTY = - 52
SS_FAILED_TO_GET_APS_URL = - 53
SS_APS_DISCONNECT_FAILED = - 54
SS_OPERATION_FAILED = - 55
SS_CANNOT_ASSOCIATE_SHEET_WITH_CONNECTION = - 56
SS_REFRESH_SHEET_NEEDED = - 57
SS_NO_GRID_OBJECT_ON_SHEET = - 58
SS_NO_CONNECTION_ASSOCIATED = - 59
SS_NON_DATA_CELL_PASSED = - 60
SS_DATA_CELL_IS_NOT_WRITABLE = - 61
SS_NO_SVC_CONTENT_ON_SHEET = - 62
SS_FAILED_TO_GET_OFFICE_OBJECT = - 63
SS_OP_FAILED_AS_CHART_IS_SELECTED = - 64
SS_EXCEL_IN_EDIT_MODE = - 65
SS_SHEET_NON_SMARTVIEW_COMPATIBLE = - 66
SS_APP_NOT_STANDALONE = - 67
SS_SMART_VIEW_DISABLED = - 68
SS_VBA_DEPRECATED = - 69
SS_OPERATION_NOT_SUPPORTED_IN_MULTIGRID_MODE = - 70
SS_INVALID_MEMBER = - 71
SS_NO_SV_NAME_RANGE = - 72
SS_AMBIGUOUS_MENU = - 73
End Enum
'**************************************************************************
'Enumeration of the index options to use for HypGetOption/HypSetOption.
'**************************************************************************
HYP_SVC_OPTIONS_INDEX Enumeration
HSV_ZOOMIN = 1
HSV_INCLUDE_SELECTION
HSV_WITHIN_SELECTEDGROUP
HSV_REMOVE_UNSELECTEDGROUP
HSV_INDENTATION
HSV_SUPPRESSROWS_MISSING
HSV_SUPPRESSROWS_ZEROS
HSV_SUPPRESSROWS_UNDERSCORE
HSV_SUPPRESSROWS_NOACCESS
HSV_SUPPRESSROWS_REPEATEDMEMBERS
HSV_SUPPRESSROWS_INVALID
HSV_ANCESTOR_POSITION
HSV_MISSING_LABEL
HSV_NOACCESS_LABEL
HSV_CELL_STATUS
HSV_MEMBER_DISPLAY
HSV_INVALID_LABEL
HSV_SUBMITZERO
HSV_19 ' unused reserved for later use.
HSV_20
HSV_PRESERVE_FORMULA_COMMENT
HSV_22
HSV_FORMULA_FILL
HSV_EXCEL_FORMATTING = 30
HSV_RETAIN_NUMERIC_FORMATTING
HSV_THOUSAND_SEPARATOR
HSV_NAVIGATE_WITHOUTDATA
HSV_ENABLE_FORMATSTRING
HSV_ENHANCED_COMMENT_HANDLING
HSV_ADJUSTCOLUMNWIDTH
HSV_DECIMALPLACES
HSV_SCALE
HSV_MOVEFORMATS_ON_ADHOC
HSV_DISPLAY_INVALIDDATA
HSV_SUPPRESSCOLUMNS_MISSING
HSV_SUPPRESSCOLUMNS_ZEROS
HSV_SUPPRESSCOLUMNS_NOACCESS
HSV_SUPPRESS_MISSINGBLOCKS
HSV_DOUBLECLICK_FOR_ADHOC = 101
HSV_UNDO_ENABLE
HSV_103
HSV_LOGMESSAGE_DISPLAY
HSV_ROUTE_LOGMESSAGE_TO_FILE
HSV_CLEAR_LOG_ON_NEXTLAUNCH
HSV_REDUCE_EXCEL_FILESIZE
HSV_ENABLE_RIBBON_CONTEXT
HSV_DISPLAY_HOMEPANEL_ONSTARTUP
HSV_SHOW_COMMENTDIALOG_ON_REFRESH
HSV_NUMBER_OF_UNDO_ACTION
HSV_NUMBER_OF_MRU_ITEMS
HSV_ROUTE_LOGMESSAGE_FILE_LOCATION
HSV_DISABLE_SMARTVIEW_IN_OUTLOOK
HSV_DISPLAY_SMARTVIEW_SHORTCUT_MENU_ONLY
HSV_DISPLAY_DRILL_THROUGH_REPORT_TOOLTIP
HSV_SHOW_PROGRESSINFORMATION
HSV_PROGRESSINFO_TIMEDELAY
HSV_ENABLE_PROFILING
End Enum
DIMENSION_TYPE Enumeration
ROW_DIM = 0
COL = 1
POV = 2
PAGE = 3
USERVAR = 5
End Enum
"This method is for the 64-bit version of Microsoft office.
#If VBA7 then
'**************************************************************************
"The functions in the menu.
'**************************************************************************
Public declare function HypMenuVAbout Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVAdjust Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVBusinessRules Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVCalculation Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVCellText Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVCollapse Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVConnect Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVCopyDataPoints Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVExpand Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVFunctionBuilder Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVInstruction Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVKeepOnly Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVMemberSelection Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVOptions Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVPasteDataPoints Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVPivot Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVPOVManager Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVQueryDesigner Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVRedo Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVRefresh Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVRefreshAll Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVRefreshOfflineDefinition Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVRemoveOnly Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVRulesOnForm Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVRunReport Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVSelectForm Lib "HsAddin" () PtrSafe as long
Public Declare PtrSafe Function HypMenuVShowHelpHtml Lib "HsAddin" (ByVal vtHelpPage As Variant) As Long
Public declare function HypMenuVSubmitData Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVSupportingDetails Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVSyncBack Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVTakeOffline Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVUndo Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVVisualizeinExcel Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVZoomIn Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVZoomOut Lib "HsAddin" () PtrSafe as long
Public Declare PtrSafe Function HypMenuVMigrate Lib "HsAddin" (ByVal vtOption As Variant, ByRef vtOutput As Variant) As Long
Public declare function HypMenuVLRO Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVCascadeSameWorkbook Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVCascadeNewWorkbook Lib "HsAddin" () PtrSafe as long
Public declare function HypMenuVMemberInformation Lib "HsAddin" () PtrSafe as long
Public Declare PtrSafe Function HypExecuteMenu Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMenuName As Variant) As Long
Public Declare PtrSafe Function HypHideRibbonMenu Lib "HsAddin" (ByVal vtSheetName As Variant _
ParamArray vtMenus() As Variant) As Long
Public Declare PtrSafe Function HypHideRibbonMenuReset Lib "HsAddin" (ByVal vtSheetName As Variant) As Long
'**************************************************************************
"General functions.
'**************************************************************************
Public Declare PtrSafe Function HypCopyMetaData Lib "HsAddin" (ByVal vtSourceSheetName As Variant _
ByVal vtDestinationSheetName As Variant) As Long
Public Declare PtrSafe Function HypDeleteMetaData Lib "HsAddin" (ByVal vtDispObject As Variant _
ByVal vtbWorkbook As Variant _
ByVal vtbClearMetadataOnAllSheetsWithinWorkbook As Variant) As Long
Public Declare PtrSafe Function HypGetSubstitutionVariable Lib "HsAddin" (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
Public Declare PtrSafe Function HypIsDataModified Lib "HsAddin" (ByVal vtSheetName As Variant) As Boolean
Public Declare PtrSafe Function HypIsFreeForm Lib "HsAddin" (ByVal vtSheetName As Variant) As Boolean
Public Declare PtrSafe Function HypIsSmartViewContentPresent Lib "HsAddin" (ByVal vtSheetName As Variant _
ByRef vtTypeOfContentsInSheet As TYPE_OF_CONTENTS_IN_SHEET) As Boolean
Public Declare PtrSafe Function HypPreserveFormatting Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant) As Long
Public Declare PtrSafe Function HypRedo Lib "HsAddin" (ByVal vtSheetName As Variant) As Long
Public Declare PtrSafe Function HypRemovePreservedFormats Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtbRemoveAllCapturedFormats As Variant _
ByVal vtSelectionRange As Variant) As Long
Public Declare PtrSafe Function HypSetAliasTable Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtAliasTableName As Variant) As Long
Public Declare PtrSafe Function HypSetMenu Lib "HsAddin" (ByVal bSetMenu As Boolean) As Long
Public Declare PtrSafe Function HypShowPov Lib "HsAddin" (ByVal bShowPov As Boolean) As Long
Public Declare PtrSafe Function HypSetSubstitutionVariable Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtApplicationName As Variant _
ByVal vtDatabaseName As Variant _
ByVal vtVariableName As Variant _
ByVal vtVariableValue As Variant) As Long
Public Declare PtrSafe Function HypUndo Lib "HsAddin" (ByVal vtSheetName As Variant) As Long
Public Declare PtrSafe Function HypShowPanel Lib "HsAddin" (ByVal bShow As Boolean) As Long
Public Declare PtrSafe Function HypGetLastError Lib "HsAddin" (ByRef vtErrorCode As Variant, vtErrorMessage As Variant ByRef, ByRef vtErrorDescription As Variant) As Long
Public Declare PtrSafe Function HypGetVersion Lib "HsAddin" (ByVal _ As Variant vtID
ByRef vtValueList As Variant, ByVal vtVersionInfoFileCommand As Variant) As Long
Public Declare PtrSafe Function HypGetDatabaseNote Lib "HsAddin" (ByVal vtSheetName As Variant, ByRef vtDBNote As Variant) As Long
'**************************************************************************
"Functions of connection."
'**************************************************************************
Public Declare PtrSafe Function HypConnect Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtUserName As Variant _
ByVal vtPassword As Variant _
ByVal vtFriendlyName As Variant) As Long
Public Declare PtrSafe Function HypUIConnect Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtUserName As Variant _
ByVal vtPassword As Variant _
ByVal vtFriendlyName As Variant) As Long
Public Declare PtrSafe Function HypConnected Lib "HsAddin" (ByVal vtSheetName As Variant) As Variant
Public Declare PtrSafe Function HypConnectionExists Lib "HsAddin" (ByVal vtFriendlyName As Variant) As Variant
Public Declare PtrSafe 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 PtrSafe Function HypCreateConnectionEx Lib "HsAddin" (ByVal vtProviderType As Variant _
ByVal vtServerName As Variant _
ByVal vtApplicationName As Variant _
ByVal vtDatabaseName As Variant _
ByVal vtFormName As Variant _
ByVal vtProviderURL As Variant _
ByVal vtFriendlyName As Variant _
ByVal vtUserName As Variant _
ByVal vtPassword As Variant _
ByVal vtDescription As Variant _
ByVal vtReserved1 As Variant _
ByVal vtReserved2 As Variant) As Long
Public Declare PtrSafe Function HypDisconnect Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal bLogoutUser As Boolean) As Long
Public declare function HypDisconnectAll Lib "HsAddin" () PtrSafe as long
Public Declare PtrSafe Function HypDisconnectEx Lib "HsAddin" (ByVal vtFriendlyName As Variant) As Long
Public Declare PtrSafe Function HypGetSharedConnectionsURL Lib "HsAddin" (ByRef vtSharedConnURL As Variant) As Long
Public declare function HypInvalidateSSO Lib "HsAddin" () PtrSafe as long
Public declare function HypIsConnectedToSharedConnections Lib "HsAddin" () as Variant PtrSafe
Public Declare PtrSafe Function HypRemoveConnection Lib "HsAddin" (ByVal vtFriendlyName As Variant) As Long
Public Declare PtrSafe Function HypResetFriendlyName Lib "HsAddin" (ByVal vtOldFriendlyName As Variant _
ByVal vtNewFriendlyName As Variant) As Long
Public Declare PtrSafe Function HypSetActiveConnection Lib "HsAddin" (ByVal vtFriendlyName As Variant) As Long
Public Declare PtrSafe Function HypSetAsDefault Lib "HsAddin" (ByVal vtFriendlyName As Variant) As Long
Public Declare PtrSafe Function HypSetConnAliasTable Lib "HsAddin" (ByVal vtFriendlyName As Variant _
ByVal vtAliasTableName As Variant) As Long
Public Declare PtrSafe Function HypSetSharedConnectionsURL Lib "HsAddin" (ByVal vtSharedConnURL As Variant) As Long
'**************************************************************************
'Ad Hoc functions
'**************************************************************************
Public Declare PtrSafe Function HypExecuteQuery Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMDXQuery As Variant) As Long
Public Declare PtrSafe Function HypKeepOnly Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelection As Variant) As Long
Public Declare PtrSafe Function HypPivot Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtStart As Variant _
ByVal vtEnd As Variant) As Long
Public Declare PtrSafe Function HypPivotToGrid Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtDimensionName As Variant _
ByVal vtSelection As Variant) As Long
Public Declare PtrSafe Function HypPivotToPOV Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelection As Variant) As Long
Public Declare PtrSafe Function HypRemoveOnly Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelection As Variant) As Long
Public Declare PtrSafe Function HypRetrieve Lib "HsAddin" (ByVal vtSheetName As Variant) As Long
Public Declare PtrSafe Function HypRetrieveRange Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtRange As Variant _
ByVal vtFriendlyName As Variant) As Long
Public Declare PtrSafe Function HypRetrieveNameRange Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtGridName As Variant) As Long
Public Declare PtrSafe Function HypGetNameRangeList Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtFriendlyName As Variant _
ByRef vtNameList As Variant) As Long
Public declare function HypRetrieveAllWorkbooks Lib "HsAddin" () PtrSafe as long
Public Declare PtrSafe Function HypSubmitData Lib "HsAddin" (ByVal vtSheetName As Variant) As Long
Public Declare PtrSafe Function HypZoomIn Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelection As Variant _
ByVal vtLevel As Variant _
ByVal vtAcross As Variant) As Long
Public Declare PtrSafe Function HypZoomOut Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelection As Variant) As Long
Public Declare PtrSafe Function HypPerformAdhocOnForm Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtFormName As Variant) As Long
'**************************************************************************
"Train functions.
'**************************************************************************
Public Declare PtrSafe Function HypOpenForm Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtFolderPath As Variant _
ByVal vtFormName As Variant _
ByRef vtDimensionList() As Variant _
ByRef vtMemberList() As Variant) As Long
'**************************************************************************
'Functions of the cells.
'**************************************************************************
Type LRO_Info
lNumLRO As Long
lNumDim As Long
LROList as Variant
End type
Public Declare PtrSafe Function HypCell Lib "HsAddin" (ByVal vtSheetName As Variant _
ParamArray MemberList() as Variant) as Variant
Public Declare PtrSafe Function HypFreeDataPoint Lib "HsAddin" (ByRef vtInfo As Variant) As Long
Public Declare PtrSafe Function HypGetCellRangeForMbrCombination Lib "HsAddin" (ByVal vtSheetName As Variant _
ByRef vtDimNames() As Variant _
ByRef vtMbrNames() As Variant _
ByRef vtCellIntersectionRange As Variant) As Long
Public Declare PtrSafe Function HypGetDataPoint Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtCell As Variant) As Variant
Public Declare PtrSafe Function HypGetDimMbrsForDataCell Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtCellRange As Variant _
ByRef vtServerName As Variant _
ByRef vtAppName As Variant _
ByRef vtCubeName As Variant _
ByRef vtFormName As Variant _
ByRef vtDimensionNames As Variant _
ByRef vtMemberNames As Variant) As Long
Public Declare PtrSafe Function HypIsCellWritable Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtCellRange As Variant) As Boolean
Public Declare PtrSafe Function HypSetCellsDirty Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtRange As Variant) As Long
Public Declare PtrSafe Function HypDeleteAllLROs Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant) As Long
Public Declare PtrSafe Function HypDeleteLROs Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant _
ByRef vtLROIDs() As Variant) As Long
Public Declare PtrSafe Function HypAddLRO Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant _
ByVal vtlType As Variant _
ByVal vtName As Variant _
ByVal vtDescription As Variant) As Long
Public Declare PtrSafe Function HypUpdateLRO Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant _
VtID As Variant, _ ByVal
ByVal vtlType As Variant _
ByVal vtName As Variant _
ByVal vtDescription As Variant) As Long
Public Declare PtrSafe Function HypListLROs Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant _
ByRef vtID As LRO_Info) As Long
Public Declare PtrSafe Function HypRetrieveLRO Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant _
VtID As Variant, _ ByVal
ByRef vtName As Variant _
ByRef vtDescription As Variant) As Long
Public Declare PtrSafe Function HypGetDrillThroughReports Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant _
ByRef vtIDs As Variant _
ByRef vtNames As Variant _
ByRef vtURLs As Variant _
ByRef vtURLTemplates As Variant _
ByRef vtTypes As Variant) As Long
Public Declare PtrSafe Function HypExecuteDrillThroughReport Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant _
VtID As Variant, _ ByVal
ByVal vtName As Variant _
ByVal vtURL As Variant _
ByVal vtURLTemplate As Variant _
ByVal vtType As Variant) As Long
'**************************************************************************
'Functions POV.
'**************************************************************************
Public Declare PtrSafe Function HypGetPagePOVChoices Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtDimensionName As Variant _
ByRef vtMbrNameChoices As Variant _
ByRef vtMbrDescChoices As Variant) As Long
Public Declare PtrSafe Function HypSetBackgroundPOV Lib "HsAddin" (ByVal vtFriendlyName As Variant _
ParamArray MemberList() as Variant) as long
Public Declare PtrSafe Function HypSetPages Lib "HsAddin" (ByVal vtSheetName As Variant _
ParamArray MemberList() as Variant) as long
Public Declare PtrSafe Function HypSetPOV Lib "HsAddin" (ByVal vtSheetName As Variant _
ParamArray MemberList() as Variant) as long
Public Declare PtrSafe Function HypSetMembers Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtDimensionName As Variant _
ParamArray MemberList() as Variant) as long
Public Declare Function HypGetPOV Lib "HsAddin" (ByVal vtSheetName _ PtrSafe
ByRef vtDimensionNames As Variant _
ByRef vtMemberNames As Variant, ByRef vtType As Variant) As Long
Public Declare PtrSafe Function HypGetDimensions Lib "HsAddin" (ByVal vtSheetName As Variant _
ByRef vtMemberNames As Variant, ByRef vtType As Variant) As Long
Public Declare PtrSafe Function HypGetMembers Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtDimensionName As Variant _
ByRef vtMbrNameChoices As Variant _
ByRef vtMbrDescChoices As Variant) As Long
Public Declare PtrSafe Function HypSetDimensions Lib "HsAddin" (ByVal vtSheetName As Variant _
ByRef vtDimNames() As Variant _
ByRef vtTypes() As Variant) As Long
Public Declare PtrSafe Function HypGetBackgroundPOV Lib "HsAddin" (ByVal vtFriendlyName As Variant _
ByRef vtDimensionNames As Variant _
ByRef vtMemberNames As Variant) As Long
Public Declare PtrSafe Function HypGetActiveMember Lib "HsAddin" (ByVal vtDimName As Variant _
ByRef vtMember As Variant) As Long
Public Declare PtrSafe Function HypSetActiveMember Lib "HsAddin" (ByVal vtDimName As Variant _
ByVal vtMember As Variant) As Long
'**************************************************************************
"Calculation script / functions of business rule.
'**************************************************************************
Public Declare PtrSafe Function HypDeleteCalc Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtApplicationName As Variant _
ByVal vtDatabaseName As Variant _
ByVal vtCalcScript As Variant) As Long
Public Declare PtrSafe Function HypExecuteCalcScript Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtCalcScript As Variant _
ByVal vtSynchronous As Variant) As Long
Public Declare PtrSafe Function HypExecuteCalcScriptEx Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtCubeName As Variant _
ByVal vtBRName As Variant _
ByVal vtBRType As Variant _
ByVal vtbBRHasPrompts As Variant _
ByVal vtbBRNeedPageInfo As Variant _
ByRef vtRTPNames() As Variant _
ByRef vtRTPValues() As Variant _
ByVal vtbShowRTPDlg As Variant _
ByVal vtbRuleOnForm As Variant _
ByRef vtBRRanSuccessfully As Variant _
ByRef vtCubeName As Variant _
ByRef vtBRName As Variant _
ByRef vtBRType As Variant _
ByRef vtbBRHasPrompts As Variant _
ByRef vtbBRNeedPageInfo As Variant _
ByRef vtbBRHidePrompts As Variant _
ByRef vtRTPNamesUsed As Variant _
ByRef vtRTPValuesUsed As Variant) As Long
Public Declare PtrSafe Function HypListCalcScripts Lib "HsAddin" (ByVal vtSheetName As Variant _
ByRef scriptArray As Variant) As Long
Public Declare PtrSafe Function HypListCalcScriptsEx Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtbRuleOnForm As Variant _
ByRef vtCubeNames As Variant _
ByRef vtBRNames As Variant _
ByRef vtBRTypes As Variant _
ByRef vtBRHasPrompts As Variant _
ByRef vtBRNeedsPageInfo As Variant _
ByRef vtBRHidePrompts As Variant) As Long
'**************************************************************************
' Calculate / consolidate / definition of functions.
'**************************************************************************
Public Declare PtrSafe Function HypCalculate Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtRange As Variant) As Long
Public Declare PtrSafe Function HypCalculateContribution Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtRange As Variant) As Long
Public Declare PtrSafe Function HypConsolidate Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtRange As Variant) As Long
Public Declare PtrSafe Function HypConsolidateAll Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtRange As Variant) As Long
Public Declare PtrSafe Function HypConsolidateAllWithData Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtRange As Variant) As Long
Public Declare PtrSafe Function HypForceCalculate Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtRange As Variant) As Long
Public Declare PtrSafe Function HypForceCalculateContribution Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtRange As Variant) As Long
Public Declare PtrSafe Function HypForceTranslate Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtRange As Variant) As Long
Public Declare PtrSafe Function HypTranslate Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtRange As Variant) As Long
'**************************************************************************
'The functions of request of members.
'**************************************************************************
Public Declare PtrSafe Function HypFindMember Lib "HsAddin" (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
Public Declare PtrSafe Function HypFindMemberEx Lib "HsAddin" (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
Public Declare PtrSafe Function HypGetAncestor Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMemberName As Variant _
ByVal vtLayerType As Variant _
ByVal intLayerNumber As Integer _
ByRef vtAncestor As Variant) As Long
Public Declare PtrSafe Function HypGetChildren Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMemberName As Variant _
ByVal intChildCount As Integer _
ByRef vtChildNameArray As Variant) As Long
Public Declare PtrSafe Function HypGetParent Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMemberName As Variant _
ByRef vtParentName As Variant) As Long
Public Declare PtrSafe Function HypIsAttribute Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtDimensionName As Variant _
ByVal vtMemberName As Variant _
ByVal vtUDAString As Variant) As Variant
Public Declare PtrSafe Function HypIsDescendant Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMemberName As Variant _
ByVal vtDescendantName As Variant) As Boolean
Public Declare PtrSafe Function HypIsAncestor Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMemberName As Variant _
ByVal vtAncestorName As Variant) As Variant
Public Declare PtrSafe Function HypIsExpense Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtDimensionName As Variant _
ByVal vtMemberName As Variant) As Variant
Public Declare PtrSafe Function HypIsParent Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMemberName As Variant _
ByVal ParentName As Variant) to Boolean
Public Declare PtrSafe Function HypIsChild Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtParentName As Variant _
ByVal vtChildName As Variant) As Variant
Public Declare PtrSafe Function HypIsUDA Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtDimensionName As Variant _
ByVal vtMemberName As Variant _
ByVal vtUDAString As Variant) As Variant
Public Declare PtrSafe Function HypOtlGetMemberInfo Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtDimensionName As Variant _
ByVal vtMemberName As Variant _
ByVal vtPredicate As Variant _
ByRef vtMemberArray As Variant) As Long
Public Declare PtrSafe Function HypQueryMembers Lib "HsAddin" (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
Public Declare PtrSafe Function HypGetMemberInformation Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMemberName As Variant _
ByVal vtPropertyName As Variant _
ByRef vtPropertyValue As Variant _
ByRef vtPropertyValueStrings As Variant) As Long
Public Declare PtrSafe Function HypGetMemberInformationEx Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMemberName As Variant _
ByRef vtPropertyNames As Variant _
ByRef vtPropertyValues As Variant _
ByRef vtPropertyValueStrings As Variant) As Long
'**************************************************************************
' Option functions
'**************************************************************************
Public Declare PtrSafe Function HypGetGlobalOption Lib "HsAddin" (ByVal vtItem As Long) As Variant
Public Declare PtrSafe Function HypGetSheetOption Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtItem As Variant) As Variant
Public Declare PtrSafe Function HypGetOption Lib "HsAddin" (ByVal vtItem As Variant, ByRef vtRet As Variant, ByVal vtSheetName As Variant) As Long
Public Declare PtrSafe Function HypSetGlobalOption Lib "HsAddin" (ByVal vtItem As Long _
ByVal vtGlobalOption As Variant) As Long
Public Declare PtrSafe Function HypSetSheetOption Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtItem As Variant _
ByVal vtOption As Variant) As Long
Public Declare PtrSafe Function HypSetOption Lib "HsAddin" (ByVal vtItem As Variant _
ByVal vtOption As Variant, ByVal vtSheetName As Variant) As Long
Public declare function HypDeleteAllMRUItems Lib "HsAddin" () PtrSafe as long
'**************************************************************************
'Functions of dynamic Link.
'**************************************************************************
Public Declare PtrSafe Function HypDisplayToLinkView Lib "HsAddin" (ByVal vtDocumentType As Variant _
ByVal vtDocumentPath As Variant) As Long
Public declare function HypGetColCount Lib "HsAddin" () PtrSafe as long
Public Declare PtrSafe Function HypGetColItems Lib "HsAddin" (ByVal vtColID As Variant _
ByRef vtDimensionName As Variant _
ByRef vtMemberNames As Variant) As Long
Public Declare PtrSafe Function HypGetConnectionInfo Lib "HsAddin" (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 PtrSafe Function HypGetLinkMacro Lib "HsAddin" (ByRef vtMacroName As Variant) As Long
Public declare function HypGetPOVCount Lib "HsAddin" () PtrSafe as long
Public Declare PtrSafe Function HypGetPOVItems Lib "HsAddin" (ByRef vtDimensionNames As Variant _
ByRef vtPOVNames As Variant) As Long
Public declare function HypGetRowCount Lib "HsAddin" () PtrSafe as long
Public Declare PtrSafe Function HypGetRowItems Lib "HsAddin" (ByVal rowID As Variant _
ByRef vtDimensionName As Variant _
ByRef vtMemberNames As Variant) As Long
Public Declare PtrSafe Function HypGetSourceGrid Lib "HsAddin" (ByVal vtSheetName As Variant _
ByRef vtGrid As Variant) As Long
Public Declare PtrSafe Function HypSetColItems Lib "HsAddin" (ByVal vtColID As Variant _
ByVal vtDimensionName As Variant _
ParamArray MemberList() as Variant) as long
Public Declare PtrSafe Function HypSetConnectionInfo Lib "HsAddin" (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 PtrSafe Function HypSetLinkMacro Lib "HsAddin" (ByVal vtMacroName As Variant) As Long
Public Declare PtrSafe Function HypSetPOVItems Lib "HsAddin" (ParamArray MemberList() as an alternative) as long
Public Declare PtrSafe Function HypSetRowItems Lib "HsAddin" (ByVal vtRowID As Variant _
ByVal vtDimensionName As Variant _
ParamArray MemberList() as Variant) as long
Public Declare PtrSafe Function HypUseLinkMacro Lib "HsAddin" (ByVal nozzle As Boolean) As Long
'**************************************************************************
"Deprecated functions
'**************************************************************************
Public Declare PtrSafe Function HypCaptureFormatting Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant) As Long
Public Declare PtrSafe Function HypRemoveCapturedFormats Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtbRemoveAllCapturedFormats As Variant _
ByVal vtSelectionRange As Variant) As Long
Public declare function HypConnectToAPS Lib "HsAddin" () PtrSafe as long
Public declare function HypDisconnectFromAPS Lib "HsAddin" () PtrSafe as long
Public Declare PtrSafe Function HypGetCurrentAPSURL Lib "HsAddin" (ByRef vtAPSURL As Variant) As Long
Public Declare PtrSafe Function HypGetOverrideFlag Lib "HsAddin" (ByRef vtOverride As Boolean) As Long
Public declare function HypIsConnectedToAPS Lib "HsAddin" () PtrSafe as long
Public Declare PtrSafe Function HypMigrateConnectionToDataSourceMgr Lib "HsAddin" (ByVal vtFriendlyName As Variant) As Long
Public Declare PtrSafe Function HypSetCurrentUserAPSURL Lib "HsAddin" (ByVal vtAPSURL As Variant) As Long
Public Declare PtrSafe Function HypSetOverrideFlag Lib "HsAddin" (ByVal vtOverride As Boolean) As Long
Public declare function HypMenuVVisualizeinHVE Lib "HsAddin" () PtrSafe as long
'**************************************************************************
'**************************************************************************
'**************************************************************************
"ADVANCED MDX QUERY SECTION.
'**************************************************************************
'**************************************************************************
"Type statements."
'**************************************************************************
Type MDX_CELL
CellValue As Double
CellStatus As Long
End type
Type MDX_PROPERTY
PropertyName as Variant
PropertyValue as Variant
PropertyType as Variant
End type
Type MDX_MEMBER
MemberName as Variant
NumClusters As Long
NumProps As Long
PropInfo() as MDX_PROPERTY
End type
Type MDX_DIMENSION
Nomdimension as Variant
NumProps As Long
NumMembers As Long
PropsInfo() as MDX_PROPERTY
MemberInfo() as MDX_MEMBER
End type
Type MDX_CLUSTER
DimensionInfo() as MDX_DIMENSION
TupleCount As Long
End type
Type MDX_AXIS
DimensionsCount As Long
TuplesCount As Long
ClustersCount As Long
DimensionInfo() as MDX_DIMENSION
ClusterInfo() as MDX_CLUSTER
End type
Type MDX_AXES_NATIVE
AxisCount As Long
That as long
AxisInfo as Variant
CellInfo as Variant
End type
Type MDX_AXES
AxisCount As Long
That as long
AxisInfo() as MDX_AXIS
CellInfo() as MDX_CELL
End type
'**************************************************************************
' Function in MDX query
'**************************************************************************
Public Declare PtrSafe Function HypExecuteMDXEx Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtQuery As Variant _
ByVal vtBoolHideData As Variant _
ByVal vtBoolDataLess As Variant _
ByVal vtBoolNeedStatus As Variant _
ByVal vtMbrIDType As Variant _
ByVal vtAliasTable As Variant _
ByRef outResult As MDX_AXES_NATIVE) As Long ' Essbase
"For the 32-bit version of Microsoft office
#Else
'**************************************************************************
"The functions in the menu.
'**************************************************************************
Public Declare Function HypMenuVAbout Lib "HsAddin" () As Long
Public Declare Function HypMenuVAdjust Lib "HsAddin" () As Long
Public Declare Function HypMenuVBusinessRules Lib "HsAddin" () As Long
Public Declare Function HypMenuVCalculation Lib "HsAddin" () As Long
Public Declare Function HypMenuVCellText Lib "HsAddin" () As Long
Public Declare Function HypMenuVCollapse Lib "HsAddin" () As Long
Public Declare Function HypMenuVConnect Lib "HsAddin" () As Long
Public Declare Function HypMenuVCopyDataPoints Lib "HsAddin" () As Long
Public Declare Function HypMenuVExpand Lib "HsAddin" () As Long
Public Declare Function HypMenuVFunctionBuilder Lib "HsAddin" () As Long
Public Declare Function HypMenuVInstruction Lib "HsAddin" () As Long
Public Declare Function HypMenuVKeepOnly Lib "HsAddin" () As Long
Public Declare Function HypMenuVMemberSelection Lib "HsAddin" () As Long
Public Declare Function HypMenuVOptions Lib "HsAddin" () As Long
Public Declare Function HypMenuVPasteDataPoints Lib "HsAddin" () As Long
Public Declare Function HypMenuVPivot Lib "HsAddin" () As Long
Public Declare Function HypMenuVPOVManager Lib "HsAddin" () As Long
Public Declare Function HypMenuVQueryDesigner Lib "HsAddin" () As Long
Public Declare Function HypMenuVRedo Lib "HsAddin" () As Long
Public Declare Function HypMenuVRefresh Lib "HsAddin" () As Long
Public Declare Function HypMenuVRefreshAll Lib "HsAddin" () As Long
Public Declare Function HypMenuVRefreshOfflineDefinition Lib "HsAddin" () As Long
Public Declare Function HypMenuVRemoveOnly Lib "HsAddin" () As Long
Public Declare Function HypMenuVRulesOnForm Lib "HsAddin" () As Long
Public Declare Function HypMenuVRunReport Lib "HsAddin" () As Long
Public Declare Function HypMenuVSelectForm Lib "HsAddin" () As Long
Public Declare Function HypMenuVShowHelpHtml Lib "HsAddin" (ByVal vtHelpPage As Variant) As Long
Public Declare Function HypMenuVSubmitData Lib "HsAddin" () As Long
Public Declare Function HypMenuVSupportingDetails Lib "HsAddin" () As Long
Public Declare Function HypMenuVSyncBack Lib "HsAddin" () As Long
Public Declare Function HypMenuVTakeOffline Lib "HsAddin" () As Long
Public Declare Function HypMenuVUndo Lib "HsAddin" () As Long
Public Declare Function HypMenuVVisualizeinExcel Lib "HsAddin" () As Long
Public Declare Function HypMenuVZoomIn Lib "HsAddin" () As Long
Public Declare Function HypMenuVZoomOut Lib "HsAddin" () As Long
Public Declare Function HypMenuVMigrate Lib "HsAddin" (ByVal vtOption As Variant, ByRef vtOutput As Variant) As Long
Public Declare Function HypMenuVLRO Lib "HsAddin" () As Long
Public Declare Function HypMenuVCascadeSameWorkbook Lib "HsAddin" () As Long
Public Declare Function HypMenuVCascadeNewWorkbook Lib "HsAddin" () As Long
Public Declare Function HypMenuVMemberInformation Lib "HsAddin" () As Long
Public Declare Function HypExecuteMenu Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMenuName As Variant) As Long
Public Declare Function HypHideRibbonMenu Lib "HsAddin" (ByVal vtSheetName As Variant _
ParamArray vtMenus() As Variant) As Long
Public Declare Function HypHideRibbonMenuReset Lib "HsAddin" (ByVal vtSheetName As Variant) As Long
'**************************************************************************
"General functions.
'**************************************************************************
Public Declare Function HypCopyMetaData Lib "HsAddin" (ByVal vtSourceSheetName As Variant _
ByVal vtDestinationSheetName As Variant) As Long
Public Declare Function HypDeleteMetaData Lib "HsAddin" (ByVal vtDispObject As Variant _
ByVal vtbWorkbook As Variant _
ByVal vtbClearMetadataOnAllSheetsWithinWorkbook As Variant) As Long
Public Declare Function HypGetSubstitutionVariable Lib "HsAddin" (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
Public Declare Function HypIsDataModified Lib "HsAddin" (ByVal vtSheetName As Variant) As Boolean
Public Declare Function HypIsFreeForm Lib "HsAddin" (ByVal vtSheetName As Variant) As Boolean
Public Declare Function HypIsSmartViewContentPresent Lib "HsAddin" (ByVal vtSheetName As Variant _
ByRef vtTypeOfContentsInSheet As TYPE_OF_CONTENTS_IN_SHEET) As Boolean
Public Declare Function HypPreserveFormatting Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant) As Long
Public Declare Function HypRedo Lib "HsAddin" (ByVal vtSheetName As Variant) As Long
Public Declare Function HypRemovePreservedFormats Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtbRemoveAllCapturedFormats As Variant _
ByVal vtSelectionRange As Variant) As Long
Public Declare Function HypSetAliasTable Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtAliasTableName As Variant) As Long
Public Declare Function HypSetMenu Lib "HsAddin" (ByVal bSetMenu As Boolean) As Long
Public Declare Function HypShowPov Lib "HsAddin" (ByVal bShowPov As Boolean) As Long
Public Declare Function HypSetSubstitutionVariable Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtApplicationName As Variant _
ByVal vtDatabaseName As Variant _
ByVal vtVariableName As Variant _
ByVal vtVariableValue As Variant) As Long
Public Declare Function HypUndo Lib "HsAddin" (ByVal vtSheetName As Variant) As Long
Public Declare Function HypShowPanel Lib "HsAddin" (ByVal bShow As Boolean) As Long
Public Declare Function HypGetLastError Lib "HsAddin" (ByRef vtErrorCode As Variant, vtErrorMessage As Variant ByRef, ByRef vtErrorDescription As Variant) As Long
Public Declare Function HypGetVersion Lib "HsAddin" (ByVal _ As Variant vtID
ByRef vtValueList As Variant, ByVal vtVersionInfoFileCommand As Variant) As Long
Public Declare Function HypGetDatabaseNote Lib "HsAddin" (ByVal vtSheetName As Variant, ByRef vtDBNote As Variant) As Long
'**************************************************************************
"Functions of connection."
'**************************************************************************
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 HypUIConnect Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtUserName As Variant _
ByVal vtPassword As Variant _
ByVal vtFriendlyName As Variant) As Long
Public Declare Function HypConnected Lib "HsAddin" (ByVal vtSheetName As Variant) As Variant
Public Declare Function HypConnectionExists Lib "HsAddin" (ByVal vtFriendlyName As Variant) As Variant
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 HypCreateConnectionEx Lib "HsAddin" (ByVal vtProviderType As Variant _
ByVal vtServerName As Variant _
ByVal vtApplicationName As Variant _
ByVal vtDatabaseName As Variant _
ByVal vtFormName As Variant _
ByVal vtProviderURL As Variant _
ByVal vtFriendlyName As Variant _
ByVal vtUserName As Variant _
ByVal vtPassword As Variant _
ByVal vtDescription As Variant _
ByVal vtReserved1 As Variant _
ByVal vtReserved2 As Variant) As Long
Public Declare Function HypDisconnect Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal bLogoutUser As Boolean) As Long
Public Declare Function HypDisconnectAll Lib "HsAddin" () As Long
Public Declare Function HypDisconnectEx Lib "HsAddin" (ByVal vtFriendlyName As Variant) As Long
Public Declare Function HypGetSharedConnectionsURL Lib "HsAddin" (ByRef vtSharedConnURL As Variant) As Long
Public Declare Function HypInvalidateSSO Lib "HsAddin" () As Long
Public Declare Function HypIsConnectedToSharedConnections Lib "HsAddin" () as Variant
Public Declare Function HypRemoveConnection Lib "HsAddin" (ByVal vtFriendlyName As Variant) As Long
Public Declare Function HypResetFriendlyName Lib "HsAddin" (ByVal vtOldFriendlyName As Variant _
ByVal vtNewFriendlyName As Variant) As Long
Public Declare Function HypSetActiveConnection Lib "HsAddin" (ByVal vtFriendlyName As Variant) As Long
Public Declare Function HypSetAsDefault Lib "HsAddin" (ByVal vtFriendlyName As Variant) As Long
Public Declare Function HypSetConnAliasTable Lib "HsAddin" (ByVal vtFriendlyName As Variant _
ByVal vtAliasTableName As Variant) As Long
Public Declare Function HypSetSharedConnectionsURL Lib "HsAddin" (ByVal vtSharedConnURL As Variant) As Long
'**************************************************************************
'Ad Hoc functions
'**************************************************************************
Public Declare Function HypExecuteQuery Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMDXQuery As Variant) As Long
Public Declare Function HypKeepOnly 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 HypRemoveOnly Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelection As Variant) As Long
Public Declare Function HypRetrieve Lib "HsAddin" (ByVal vtSheetName As Variant) As Long
Public Declare Function HypRetrieveRange Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtRange As Variant _
ByVal vtFriendlyName As Variant) As Long
Public Declare Function HypRetrieveNameRange Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtGridName As Variant) As Long
Public Declare Function HypGetNameRangeList Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtFriendlyName As Variant _
ByRef vtNameList As Variant) As Long
Public Declare Function HypRetrieveAllWorkbooks Lib "HsAddin" () As Long
Public Declare Function HypSubmitData 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 HypPerformAdhocOnForm Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtFormName As Variant) As Long
'**************************************************************************
"Train functions.
'**************************************************************************
Public Declare Function HypOpenForm Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtFolderPath As Variant _
ByVal vtFormName As Variant _
ByRef vtDimensionList() As Variant _
ByRef vtMemberList() As Variant) As Long
'**************************************************************************
'Functions of the cells.
'**************************************************************************
Type LRO_Info
lNumLRO As Long
lNumDim As Long
LROList as Variant
End type
Public Declare Function HypCell Lib "HsAddin" (ByVal vtSheetName As Variant _
ParamArray MemberList() as Variant) as Variant
Public Declare Function HypFreeDataPoint Lib "HsAddin" (ByRef vtInfo As Variant) As Long
Public Declare Function HypGetCellRangeForMbrCombination Lib "HsAddin" (ByVal vtSheetName As Variant _
ByRef vtDimNames() As Variant _
ByRef vtMbrNames() As Variant _
ByRef vtCellIntersectionRange As Variant) As Long
Public Declare Function HypGetDataPoint Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtCell As Variant) As Variant
Public Declare Function HypGetDimMbrsForDataCell Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtCellRange As Variant _
ByRef vtServerName As Variant _
ByRef vtAppName As Variant _
ByRef vtCubeName As Variant _
ByRef vtFormName As Variant _
ByRef vtDimensionNames As Variant _
ByRef vtMemberNames As Variant) As Long
Public Declare Function HypIsCellWritable Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtCellRange As Variant) As Boolean
Public Declare Function HypSetCellsDirty Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtRange As Variant) As Long
Public Declare Function HypDeleteAllLROs Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant) As Long
Public Declare Function HypDeleteLROs Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant _
ByRef vtLROIDs() As Variant) As Long
Public Declare Function HypAddLRO Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant _
ByVal vtlType As Variant _
ByVal vtName As Variant _
ByVal vtDescription As Variant) As Long
Public Declare Function HypUpdateLRO Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant _
VtID As Variant, _ ByVal
ByVal vtlType As Variant _
ByVal vtName As Variant _
ByVal vtDescription As Variant) As Long
Public Declare Function HypListLROs Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant _
ByRef vtID As LRO_Info) As Long
Public Declare Function HypRetrieveLRO Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant _
VtID As Variant, _ ByVal
ByRef vtName As Variant _
ByRef vtDescription As Variant) As Long
Public Declare Function HypGetDrillThroughReports Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant _
ByRef vtIDs As Variant _
ByRef vtNames As Variant _
ByRef vtURLs As Variant _
ByRef vtURLTemplates As Variant _
ByRef vtTypes As Variant) As Long
Public Declare Function HypExecuteDrillThroughReport Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant _
VtID As Variant, _ ByVal
ByVal vtName As Variant _
ByVal vtURL As Variant _
ByVal vtURLTemplate As Variant _
ByVal vtType As Variant) As Long
'**************************************************************************
'Functions POV.
'**************************************************************************
Public Declare Function HypGetPagePOVChoices Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtDimensionName As Variant _
ByRef vtMbrNameChoices As Variant _
ByRef vtMbrDescChoices As Variant) As Long
Public Declare Function HypSetBackgroundPOV Lib "HsAddin" (ByVal vtFriendlyName As Variant _
ParamArray MemberList() as Variant) as long
Public Declare Function HypSetPages Lib "HsAddin" (ByVal vtSheetName As Variant _
ParamArray MemberList() as Variant) as long
Public Declare Function HypSetPOV Lib "HsAddin" (ByVal vtSheetName As Variant _
ParamArray MemberList() as Variant) as long
Public Declare Function HypSetMembers Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtDimensionName As Variant _
ParamArray MemberList() as Variant) as long
Public Declare Function HypGetPOV Lib "HsAddin" (ByVal vtSheetName _
ByRef vtDimensionNames As Variant _
ByRef vtMemberNames As Variant, ByRef vtType As Variant) As Long
Public Declare Function HypGetDimensions Lib "HsAddin" (ByVal vtSheetName As Variant _
ByRef vtMemberNames As Variant, ByRef vtType As Variant) As Long
Public Declare Function HypGetMembers Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtDimensionName As Variant _
ByRef vtMbrNameChoices As Variant _
ByRef vtMbrDescChoices As Variant) As Long
Public Declare Function HypSetDimensions Lib "HsAddin" (ByVal vtSheetName _
ByRef vtDimNames() As Variant _
ByRef vtTypes() As Variant) As Long
Public Declare Function HypGetBackgroundPOV Lib "HsAddin" (ByVal vtFriendlyName As Variant _
ByRef vtDimensionNames As Variant _
ByRef vtMemberNames As Variant) As Long
Public Declare Function HypGetActiveMember Lib "HsAddin" (ByVal vtDimName As Variant _
ByRef vtMember As Variant) As Long
Public Declare Function HypSetActiveMember Lib "HsAddin" (ByVal vtDimName As Variant _
ByVal vtMember As Variant) As Long
'**************************************************************************
"Calculation script / functions of business rule.
'**************************************************************************
Public Declare Function HypDeleteCalc Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtApplicationName As Variant _
ByVal vtDatabaseName As Variant _
ByVal vtCalcScript As Variant) As Long
Public Declare Function HypExecuteCalcScript Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtCalcScript As Variant _
ByVal vtSynchronous As Variant) As Long
Public Declare Function HypExecuteCalcScriptEx Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtCubeName As Variant _
ByVal vtBRName As Variant _
ByVal vtBRType As Variant _
ByVal vtbBRHasPrompts As Variant _
ByVal vtbBRNeedPageInfo As Variant _
ByRef vtRTPNames() As Variant _
ByRef vtRTPValues() As Variant _
ByVal vtbShowRTPDlg As Variant _
ByVal vtbRuleOnForm As Variant _
ByRef vtBRRanSuccessfully As Variant _
ByRef vtCubeName As Variant _
ByRef vtBRName As Variant _
ByRef vtBRType As Variant _
ByRef vtbBRHasPrompts As Variant _
ByRef vtbBRNeedPageInfo As Variant _
ByRef vtbBRHidePrompts As Variant _
ByRef vtRTPNamesUsed As Variant _
ByRef vtRTPValuesUsed As Variant) As Long
Public Declare Function HypListCalcScripts Lib "HsAddin" (ByVal vtSheetName As Variant _
ByRef scriptArray As Variant) As Long
Public Declare Function HypListCalcScriptsEx Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtbRuleOnForm As Variant _
ByRef vtCubeNames As Variant _
ByRef vtBRNames As Variant _
ByRef vtBRTypes As Variant _
ByRef vtBRHasPrompts As Variant _
ByRef vtBRNeedsPageInfo As Variant _
ByRef vtBRHidePrompts As Variant) As Long
'**************************************************************************
' Calculate / consolidate / definition of functions.
'**************************************************************************
Public Declare Function HypCalculate 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 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
Public Declare Function HypForceCalculate 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 HypForceTranslate 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
'**************************************************************************
'The functions of request of members.
'**************************************************************************
Public Declare Function HypFindMember Lib "HsAddin" (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
Public Declare Function HypFindMemberEx Lib "HsAddin" (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
Public Declare Function HypGetAncestor Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMemberName As Variant _
ByVal vtLayerType As Variant _
ByVal intLayerNumber As Integer _
ByRef vtAncestor As Variant) As Long
Public Declare Function HypGetChildren Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMemberName As Variant _
ByVal intChildCount As Integer _
ByRef vtChildNameArray As Variant) As Long
Public Declare Function HypGetParent Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMemberName As Variant _
ByRef vtParentName As Variant) As Long
Public Declare Function HypIsAttribute Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtDimensionName As Variant _
ByVal vtMemberName As Variant _
ByVal vtUDAString As Variant) As Variant
Public Declare Function HypIsDescendant Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMemberName As Variant _
ByVal vtDescendantName As Variant) As Boolean
Public Declare Function HypIsAncestor Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMemberName As Variant _
ByVal vtAncestorName As Variant) As Variant
Public Declare Function HypIsExpense Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtDimensionName As Variant _
ByVal vtMemberName As Variant) As Variant
Public Declare Function HypIsParent Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMemberName As Variant _
ByVal ParentName As Variant) to Boolean
Public Declare Function HypIsChild Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtParentName As Variant _
ByVal vtChildName As Variant) As Variant
Public Declare Function HypIsUDA Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtDimensionName As Variant _
ByVal vtMemberName As Variant _
ByVal vtUDAString As Variant) As Variant
Public Declare Function HypOtlGetMemberInfo Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtDimensionName As Variant _
ByVal vtMemberName As Variant _
ByVal vtPredicate As Variant _
ByRef vtMemberArray As Variant) As Long
Public Declare Function HypQueryMembers Lib "HsAddin" (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
Public Declare Function HypGetMemberInformation Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMemberName As Variant _
ByVal vtPropertyName As Variant _
ByRef vtPropertyValue As Variant _
ByRef vtPropertyValueStrings As Variant) As Long
Public Declare Function HypGetMemberInformationEx Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtMemberName As Variant _
ByRef vtPropertyNames As Variant _
ByRef vtPropertyValues As Variant _
ByRef vtPropertyValueStrings As Variant) As Long
'**************************************************************************
' Option functions
'**************************************************************************
Public Declare Function HypGetGlobalOption Lib "HsAddin" (ByVal vtItem As Long) As Variant
Public Declare Function HypGetSheetOption Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtItem As Variant) As Variant
Public Declare Function HypGetOption Lib "HsAddin" (ByVal vtItem As Variant, ByRef vtRet As Variant, ByVal vtSheetName As Variant) As Long
Public Declare Function HypSetGlobalOption Lib "HsAddin" (ByVal vtItem As Long _
ByVal vtGlobalOption As Variant) As Long
Public Declare Function HypSetSheetOption Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtItem As Variant _
ByVal vtOption As Variant) As Long
Public Declare Function HypSetOption Lib "HsAddin" (ByVal vtItem As Variant _
ByVal vtOption As Variant, ByVal vtSheetName As Variant) As Long
Public Declare Function HypDeleteAllMRUItems Lib "HsAddin" () As Long
'**************************************************************************
'Functions of dynamic Link.
'**************************************************************************
Public Declare Function HypDisplayToLinkView Lib "HsAddin" (ByVal vtDocumentType As Variant _
ByVal vtDocumentPath As Variant) As Long
Public Declare Function HypGetColCount Lib "HsAddin" () As Long
Public Declare Function HypGetColItems Lib "HsAddin" (ByVal vtColID As Variant _
ByRef vtDimensionName As Variant _
ByRef vtMemberNames As Variant) As Long
Public Declare Function HypGetConnectionInfo Lib "HsAddin" (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 HypGetLinkMacro Lib "HsAddin" (ByRef vtMacroName As Variant) As Long
Public Declare Function HypGetPOVCount Lib "HsAddin" () As Long
Public Declare Function HypGetPOVItems Lib "HsAddin" (ByRef vtDimensionNames As Variant _
ByRef vtPOVNames As Variant) As Long
Public Declare Function HypGetRowCount Lib "HsAddin" () As Long
Public Declare Function HypGetRowItems Lib "HsAddin" (ByVal rowID As Variant _
ByRef vtDimensionName As Variant _
ByRef vtMemberNames As Variant) As Long
Public Declare Function HypGetSourceGrid Lib "HsAddin" (ByVal vtSheetName As Variant _
ByRef vtGrid As Variant) As Long
Public Declare Function HypSetColItems Lib "HsAddin" (ByVal vtColID As Variant _
ByVal vtDimensionName As Variant _
ParamArray MemberList() as Variant) as long
Public Declare Function HypSetConnectionInfo Lib "HsAddin" (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 HypSetLinkMacro Lib "HsAddin" (ByVal vtMacroName As Variant) As Long
Public Declare Function HypSetPOVItems Lib "HsAddin" (ParamArray MemberList() as an alternative) as long
Public Declare Function HypSetRowItems Lib "HsAddin" (ByVal vtRowID As Variant _
ByVal vtDimensionName As Variant _
ParamArray MemberList() as Variant) as long
Public Declare Function HypUseLinkMacro Lib "HsAddin" (ByVal nozzle As Boolean) As Long
'**************************************************************************
"Deprecated functions
'**************************************************************************
Public Declare Function HypCaptureFormatting Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtSelectionRange As Variant) As Long
Public Declare Function HypRemoveCapturedFormats Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtbRemoveAllCapturedFormats As Variant _
ByVal vtSelectionRange As Variant) As Long
Public Declare Function HypConnectToAPS Lib "HsAddin" () As Long
Public Declare Function HypDisconnectFromAPS Lib "HsAddin" () As Long
Public Declare Function HypGetCurrentAPSURL Lib "HsAddin" (ByRef vtAPSURL As Variant) As Long
Public Declare Function HypGetOverrideFlag Lib "HsAddin" (ByRef vtOverride As Boolean) As Long
Public Declare Function HypIsConnectedToAPS Lib "HsAddin" () As Long
Public Declare Function HypMigrateConnectionToDataSourceMgr Lib "HsAddin" (ByVal vtFriendlyName As Variant) As Long
Public Declare Function HypSetCurrentUserAPSURL Lib "HsAddin" (ByVal vtAPSURL As Variant) As Long
Public Declare Function HypSetOverrideFlag Lib "HsAddin" (ByVal vtOverride As Boolean) As Long
Public Declare Function HypMenuVVisualizeinHVE Lib "HsAddin" () As Long
'**************************************************************************
'**************************************************************************
'**************************************************************************
"ADVANCED MDX QUERY SECTION.
'**************************************************************************
'**************************************************************************
"Type statements."
'**************************************************************************
Type MDX_CELL
CellValue As Double
CellStatus As Long
End type
Type MDX_PROPERTY
PropertyName as Variant
PropertyValue as Variant
PropertyType as Variant
End type
Type MDX_MEMBER
MemberName as Variant
NumClusters As Long
NumProps As Long
PropInfo() as MDX_PROPERTY
End type
Type MDX_DIMENSION
Nomdimension as Variant
NumProps As Long
NumMembers As Long
PropsInfo() as MDX_PROPERTY
MemberInfo() as MDX_MEMBER
End type
Type MDX_CLUSTER
DimensionInfo() as MDX_DIMENSION
TupleCount As Long
End type
Type MDX_AXIS
DimensionsCount As Long
TuplesCount As Long
ClustersCount As Long
DimensionInfo() as MDX_DIMENSION
ClusterInfo() as MDX_CLUSTER
End type
Type MDX_AXES_NATIVE
AxisCount As Long
That as long
AxisInfo as Variant
CellInfo as Variant
End type
Type MDX_AXES
AxisCount As Long
That as long
AxisInfo() as MDX_AXIS
CellInfo() as MDX_CELL
End type
'**************************************************************************
' Function in MDX query
'**************************************************************************
Public Declare Function HypExecuteMDXEx Lib "HsAddin" (ByVal vtSheetName As Variant _
ByVal vtQuery As Variant _
ByVal vtBoolHideData As Variant _
ByVal vtBoolDataLess As Variant _
ByVal vtBoolNeedStatus As Variant _
ByVal vtMbrIDType As Variant _
ByVal vtAliasTable As Variant _
ByRef outResult As MDX_AXES_NATIVE) As Long ' Essbase
#End If
'**************************************************************************
' For conversion based C++ structure MDX to a VB compatible MDX structure
' * To be used with HypExecuteMDXEx only *.
'**************************************************************************
Void GetVBCompatibleMDXStructure (ByRef instruct as MDX_AXES_NATIVE, ByRef outStruct As MDX_AXES)
outStruct.AxisCount = inStruct.AxisCount
outStruct.CellCount = inStruct.CellCount
"Treat the cell Info
If inStruct.CellCount then
Dim vtCellStruct As Variant
ReDim outStruct.CellInfo (inStruct.CellCount - 1).
For iCellCount = 0 To inStruct.CellCount - 1
vtCellStruct = inStruct.CellInfo (iCellCount)
outStruct.CellInfo (iCellCount). CellStatus = vtCellStruct (0)
outStruct.CellInfo (iCellCount). CellValue = vtCellStruct (1)
Next
End If
' End cell treatment Info
«Treat axis Info»
If inStruct.AxisCount then
ReDim outStruct.AxisInfo (inStruct.AxisCount - 1).
Dim vtAxisStruct As Variant
For iAxisCount = 0 To inStruct.AxisCount - 1
vtAxisStruct = inStruct.AxisInfo (iAxisCount)
outStruct.AxisInfo (iAxisCount). DimensionsCount = vtAxisStruct (0)
outStruct.AxisInfo (iAxisCount). TuplesCount = vtAxisStruct (1)
outStruct.AxisInfo (iAxisCount). ClustersCount = vtAxisStruct (2)
' Add dimensions of information to the axis title
If (iAxisCount) outStruct.AxisInfo. So DimensionsCount
ReDim outStruct.AxisInfo (iAxisCount). DimensionInfo (outStruct.AxisInfo (iAxisCount). DimensionsCount - 1).
Dim vtAllDims As Variant
Dim vtDimStruct As Variant
vtAllDims = vtAxisStruct (3)
For iDimCount = 0 To outStruct.AxisInfo (iAxisCount). DimensionsCount - 1
vtDimStruct = vtAllDims (iDimCount)
outStruct.AxisInfo (iAxisCount). DimensionInfo (iDimCount). Nomdimension = vtDimStruct (0)
outStruct.AxisInfo (iAxisCount). DimensionInfo (iDimCount). NumMembers = vtDimStruct (1)
outStruct.AxisInfo (iAxisCount). DimensionInfo (iDimCount). NumProps = vtDimStruct (2)
' Start - add information properties in each Dimension.
If (iAxisCount) outStruct.AxisInfo. DimensionInfo (iDimCount). So NumProps
ReDim outStruct.AxisInfo (iAxisCount). DimensionInfo (iDimCount). PropsInfo (outStruct.AxisInfo (iAxisCount). DimensionInfo (iDimCount). NumProps - 1).
Dim vtAllProps As Variant
Dim vtPropStruct As Variant
vtAllProps = vtDimStruct (3)
For iCountProp = 0 To outStruct.AxisInfo (iAxisCount). DimensionInfo (iDimCount). NumProps - 1
vtPropStruct = vtAllProps (iCountProp)
outStruct.AxisInfo (iAxisCount). DimensionInfo (iDimCount). PropsInfo (iCountProp). PropertyName = vtPropStruct (0)
outStruct.AxisInfo (iAxisCount). DimensionInfo (iDimCount). PropsInfo (iCountProp). PropertyType = vtPropStruct (1)
outStruct.AxisInfo (iAxisCount). DimensionInfo (iDimCount). PropsInfo (iCountProp). PropertyValue = Null ' not sent
Next
End If
' End - add information properties in each Dimension
Next
End If
' End Dimensions of information to the axis title
"Add Cluster information to the axis title
If (iAxisCount) outStruct.AxisInfo. So ClustersCount
ReDim outStruct.AxisInfo (iAxisCount). ClusterInfo (outStruct.AxisInfo (iAxisCount). ClustersCount - 1).
Dim vtAllClusters As Variant
Dim vtClusterStruct As Variant
vtAllClusters = vtAxisStruct (4)
For iClusterCount = 0 To outStruct.AxisInfo (iAxisCount). ClustersCount - 1
vtClusterStruct = vtAllClusters (iClusterCount)
outStruct.AxisInfo (iAxisCount). ClusterInfo (iClusterCount). TupleCount = vtClusterStruct (1)
' Add Dimensions info in the title of the Group
If (iAxisCount) outStruct.AxisInfo. So DimensionsCount
ReDim outStruct.AxisInfo (iAxisCount). ClusterInfo (iClusterCount). DimensionInfo (outStruct.AxisInfo (iAxisCount). DimensionsCount - 1).
Dim vtAllDimsUnderCluster As Variant
Dim vtDimUnderCluster As Variant
vtAllDimsUnderCluster = vtClusterStruct (0)
For iDimsUnderClusterCount = 0 To outStruct.AxisInfo (iAxisCount). DimensionsCount - 1
vtDimUnderCluster = vtAllDimsUnderCluster (iDimsUnderClusterCount)
outStruct.AxisInfo (iAxisCount). ClusterInfo (iClusterCount). DimensionInfo (iDimsUnderClusterCount). NumMembers = vtDimUnderCluster (2)
"Add members to the Group-> Dimensions
If (iAxisCount) outStruct.AxisInfo. ClusterInfo (iClusterCount). DimensionInfo (iDimsUnderClusterCount). So NumMembers
ReDim outStruct.AxisInfo (iAxisCount). ClusterInfo (iClusterCount). DimensionInfo (iDimsUnderClusterCount). MemberInfo (outStruct.AxisInfo (iAxisCount). ClusterInfo (iClusterCount). DimensionInfo (iDimsUnderClusterCount). NumMembers - 1).
Dim vtAllMembersUnderClusterDim As Variant
Dim vtMemberUnderClusterDim As Variant
vtAllMembersUnderClusterDim = vtDimUnderCluster (4)
For iMemUnderClusterDimCount = 0 To outStruct.AxisInfo (iAxisCount). ClusterInfo (iClusterCount). DimensionInfo (iDimsUnderClusterCount). NumMembers - 1
vtMemberUnderClusterDim = vtAllMembersUnderClusterDim (iMemUnderClusterDimCount)
outStruct.AxisInfo (iAxisCount). ClusterInfo (iClusterCount). DimensionInfo (iDimsUnderClusterCount). MemberInfo (iMemUnderClusterDimCount). MemberName = vtMemberUnderClusterDim (0)
outStruct.AxisInfo (iAxisCount). ClusterInfo (iClusterCount). DimensionInfo (iDimsUnderClusterCount). MemberInfo (iMemUnderClusterDimCount). NumClusters = vtMemberUnderClusterDim (1)
' Add information properties
If (iAxisCount) outStruct.AxisInfo. DimensionInfo (iDimsUnderClusterCount). So NumProps
ReDim outStruct.AxisInfo (iAxisCount). ClusterInfo (iClusterCount). DimensionInfo (iDimsUnderClusterCount). MemberInfo (iMemUnderClusterDimCount). PropInfo (outStruct.AxisInfo (iAxisCount). DimensionInfo (iDimsUnderClusterCount). NumProps - 1).
Dim vtAllPropsUnderCluster As Variant
Dim vtPropUnderCluster As Variant
vtAllPropsUnderCluster = vtMemberUnderClusterDim (2)
For iPropCountUnderCluster = 0 To outStruct.AxisInfo (iAxisCount). DimensionInfo (iDimsUnderClusterCount). NumProps - 1
vtPropUnderCluster = vtAllPropsUnderCluster (iPropCountUnderCluster)
outStruct.AxisInfo (iAxisCount). ClusterInfo (iClusterCount). DimensionInfo (iDimsUnderClusterCount). MemberInfo (iMemUnderClusterDimCount). PropInfo (iPropCountUnderCluster). PropertyValue = vtPropUnderCluster (2)
Next
End If
' End of information properties
Next
End If
' End - add members under the Cluster--> Dimensions
Next
End If
' End Dimensions of information in respect of the Group
Next
End If
Next
End If
' End of Cluster of information to the axis title
' End treatment axis Info
End Sub
'**************************************************************************
' Message for the error Code function
'**************************************************************************
Function GetReturnCodeMessage (m As Long) As String
Select the m
Case SmartViewErrors.SS_ERR_ERROR
GetReturnCodeMessage = "General error".
Case SmartViewErrors.SS_NO_GRID_ON_SHEET_BUT_FUNCTIONS_SUBMITTED
GetReturnCodeMessage = "no grid on the sheet, but submitted functions.
Case SmartViewErrors.SS_SHEET_NOT_CONNECTED_BUT_FUNCTIONS_SUBMITTED
GetReturnCodeMessage = "map not connected but submitted functions.
Case SmartViewErrors.SS_OK
GetReturnCodeMessage = "OK".
Case SmartViewErrors.SS_INIT_ERR
GetReturnCodeMessage = "initialization error".
Case SmartViewErrors.SS_TERM_ERR
GetReturnCodeMessage = "termination error."
Case SmartViewErrors.SS_NOT_INIT
GetReturnCodeMessage = "not initialized".
Case SmartViewErrors.SS_NOT_CONNECTED
GetReturnCodeMessage = "not connected".
Case SmartViewErrors.SS_NOT_LOCKED
GetReturnCodeMessage = "not locked".
Case SmartViewErrors.SS_INVALID_SSTABLE
GetReturnCodeMessage = "invalid worksheet Table.
Case SmartViewErrors.SS_INVALID_SSDATA
GetReturnCodeMessage = "invalid worksheet data.
Case SmartViewErrors.SS_NOUNDO_INFO
GetReturnCodeMessage = "there is no cancellation Information.
Case SmartViewErrors.SS_CANCELED
GetReturnCodeMessage = "operation has been cancelled".
Case SmartViewErrors.SS_GLOBALOPTS
GetReturnCodeMessage = "Global error Options"
Case SmartViewErrors.SS_SHEETOPTS
GetReturnCodeMessage = "error sheet Options.
Case SmartViewErrors.SS_NOTENABLED
GetReturnCodeMessage = 'Cancel is not enabled.
Case SmartViewErrors.SS_NO_MEMORY
GetReturnCodeMessage = 'insufficient memory '.
Case SmartViewErrors.SS_DIALOG_ERROR
GetReturnCodeMessage = "appropriate dialog could not be displayed.
Case SmartViewErrors.SS_INVALID_PARAM
GetReturnCodeMessage = 'function contains an invalid parameter.
Case SmartViewErrors.SS_CALCULATING
GetReturnCodeMessage = 'Calculation in progress'
Case SmartViewErrors.SS_SQL_IN_PROGRESS
GetReturnCodeMessage = "SQL in progress"
Case SmartViewErrors.SS_FORMULAPRESERVE
GetReturnCodeMessage = "the operation is not allowed because the worksheet is in the Mode of preservation formula."
Case SmartViewErrors.SS_INTERNALSSERROR
GetReturnCodeMessage = "can only take place on the specified worksheet.
Case SmartViewErrors.SS_INVALID_SHEET
GetReturnCodeMessage = "current sheet cannot be determined.
Case SmartViewErrors.SS_NOACTIVESHEET
GetReturnCodeMessage = "no Active sheet is selected.
Case SmartViewErrors.SS_NOTCALCULATING
GetReturnCodeMessage = "calculation cannot be cancelled because no calculations are running"
Case SmartViewErrors.SS_INVALIDSELECTION
GetReturnCodeMessage = "selection parameter is not valid.
Case SmartViewErrors.SS_INVALIDTOKEN
GetReturnCodeMessage = "invalid token".
Case SmartViewErrors.SS_CASCADENOTALLOWED
GetReturnCodeMessage = "unable to create file list of Cascade.
Case SmartViewErrors.SS_NOMACROS
GetReturnCodeMessage = "spreadsheet Macros cannot be performed due to the license agreement.
Case SmartViewErrors.SS_NOREADONLYMACROS
GetReturnCodeMessage = "Spreadsheet Macros that update the database cannot be executed because of the license agreement"
Case SmartViewErrors.SS_READONLYSS
GetReturnCodeMessage = "Database cannot be updated because you have only one licence to read"
Case SmartViewErrors.SS_NOSQLACCESS
GetReturnCodeMessage = "no access SQL.
Case SmartViewErrors.SS_MENUALREADYREMOVED
GetReturnCodeMessage = "Menu already deleted.
Case SmartViewErrors.SS_MENUALREADYADDED
GetReturnCodeMessage = "already added Menu".
Case SmartViewErrors.SS_NOSPREADSHEETACCESS
GetReturnCodeMessage = 'access not spreadsheet '.
Case SmartViewErrors.SS_NOHANDLES
GetReturnCodeMessage = 'no handles.
Case SmartViewErrors.SS_NOPREVCONNECTION
GetReturnCodeMessage = 'no previous connection '.
Case SmartViewErrors.SS_LROERROR
GetReturnCodeMessage = "error LRO.
Case SmartViewErrors.SS_LROWINAPPACCESSERR
GetReturnCodeMessage = "Access of the LRO Windows application error"
Case SmartViewErrors.SS_DATANAVINITERR
GetReturnCodeMessage = "error initializing data Navigation.
Case SmartViewErrors.SS_PARAMSETNOTALLOWED
GetReturnCodeMessage = "serial settings is not allowed.
Case SmartViewErrors.SS_SHEET_PROTECTED
GetReturnCodeMessage = "the specified worksheet is protected."
Case SmartViewErrors.SS_CALCSCRIPT_NOTFOUND
GetReturnCodeMessage = "not found calculation Script.
Case SmartViewErrors.SS_NOSUPPORT_PROVIDER
GetReturnCodeMessage = "Provider not supported."
Case SmartViewErrors.SS_INVALID_ALIAS
GetReturnCodeMessage = "invalid Alias.
Case SmartViewErrors.SS_CONN_NOT_FOUND
GetReturnCodeMessage = 'connection not found '.
Case SmartViewErrors.SS_APS_CONN_NOT_FOUND
GetReturnCodeMessage = 'Connection APS' not found
Case SmartViewErrors.SS_APS_NOT_CONNECTED
GetReturnCodeMessage = "APS not connected".
Case SmartViewErrors.SS_APS_CANT_CONNECT
GetReturnCodeMessage = 'APS cannot connect.
Case SmartViewErrors.SS_CONN_ALREADY_EXISTS
GetReturnCodeMessage = "connection already exists".
Case SmartViewErrors.SS_APS_URL_NOT_SAVED
GetReturnCodeMessage = "URL of APS unregistered"
Case SmartViewErrors.SS_MIGRATION_OF_CONN_NOT_ALLOWED
GetReturnCodeMessage = "connection unauthorized Migration."
Case SmartViewErrors.SS_CONN_MGR_NOT_INITIALIZED
GetReturnCodeMessage = "connection manager not initialized.
Case SmartViewErrors.SS_FAILED_TO_GET_APS_OVERRIDE_PROPERTY
GetReturnCodeMessage = "Could not get property Override APS"
Case SmartViewErrors.SS_FAILED_TO_SET_APS_OVERRIDE_PROPERTY
GetReturnCodeMessage = "Unable to set the property Override APS"
Case SmartViewErrors.SS_FAILED_TO_GET_APS_URL
GetReturnCodeMessage = "unable to get the URL of the APS.
Case SmartViewErrors.SS_APS_DISCONNECT_FAILED
GetReturnCodeMessage = "disconnect APS has failed."
Case SmartViewErrors.SS_OPERATION_FAILED
GetReturnCodeMessage = 'operation failed '.
Case SmartViewErrors.SS_CANNOT_ASSOCIATE_SHEET_WITH_CONNECTION
GetReturnCodeMessage = "unable to associate a sheet with connection".
Case SmartViewErrors.SS_REFRESH_SHEET_NEEDED
GetReturnCodeMessage = 'Refresh required sheet. "
Case SmartViewErrors.SS_NO_GRID_OBJECT_ON_SHEET
GetReturnCodeMessage = 'no Grid object on sheet '.
Case SmartViewErrors.SS_NO_CONNECTION_ASSOCIATED
GetReturnCodeMessage = 'no connection associated with '.
Case SmartViewErrors.SS_NON_DATA_CELL_PASSED
GetReturnCodeMessage = "no past data cell.
Case SmartViewErrors.SS_DATA_CELL_IS_NOT_WRITABLE
GetReturnCodeMessage = "mobile data is not writable.
Case SmartViewErrors.SS_NO_SVC_CONTENT_ON_SHEET
GetReturnCodeMessage = "No content Smart View on the sheet"
Case SmartViewErrors.SS_FAILED_TO_GET_OFFICE_OBJECT
GetReturnCodeMessage = "unable to get the Office object.
Case SmartViewErrors.SS_OP_FAILED_AS_CHART_IS_SELECTED
GetReturnCodeMessage = ' Operation failed in the chart is selected.
Case SmartViewErrors.SS_EXCEL_IN_EDIT_MODE
GetReturnCodeMessage = "Excel in Edit Mode.
Case SmartViewErrors.SS_SHEET_NON_SMARTVIEW_COMPATIBLE
GetReturnCodeMessage = ' sheet Compatible not Smart View.
Case SmartViewErrors.SS_APP_NOT_STANDALONE
GetReturnCodeMessage = "ask not"independent"
Case SmartViewErrors.SS_SMART_VIEW_DISABLED
GetReturnCodeMessage = ' Disabled Smart View.
Case SmartViewErrors.SS_VBA_DEPRECATED
GetReturnCodeMessage = 'function has been deprecated.
Case SmartViewErrors.SS_OPERATION_NOT_SUPPORTED_IN_MULTIGRID_MODE
GetReturnCodeMessage = "Mode is not supported in Multigrid mode."
Case SmartViewErrors.SS_INVALID_MEMBER
GetReturnCodeMessage = "invalid member".
Case SmartViewErros.SS_NO_SV_NAME_RANGE
GetReturnCodeMessage = "No Smart View range on worksheet named"
Case SmartViewErrors.SS_AMBIGUOUS_MENU
GetReturnCodeMessage = "could not solve the menu name.
Case Else
GetReturnCodeMessage = 'Undefined error Code' & m
Select end
End Function
Tags: Business Intelligence
Similar Questions
-
Hello everyone
I'm working on an application that requires the functions to be replaced by the SmartView functions so that the Application is compatible with the SmartView Essbase Add-in existing APIs.
In the current version of the application that is to be migrated a method that essvgetmemberinfo is used which, now, I want to replace with the appropriate function of Smartview. I see 3 methods in the API for SmartView, but I'm not sure that to use in the Application.
Please tell me which method should I use for the app to become compatible with the SmartView.
Thanks in advance
Check this thread Add-in Essbase EssvGetMemberInfo equivalent to SmartView
Concerning
Celvin
-
HypGetMemberInformation in VBA. Does not return the property values.
I tried to use HypGetMemberInformation in VBA to find the level of a member of the grid.
I continued to get zeros even for members who are not level 0 ones.
I went to test HypGetMemberInformation a test connected grid that has members in the first column (column A).
I packed a test routine I ran after you connect the grid manually:
Void TestMemberLevelFind()
Dim line As Integer
Dim MemberProperties Collection As
Dim vtMemberName As String
' Dim vtPropertyName As String
Dim vtPropertyValue As Long
Dim vtPropertyValueString As String
Dim ErrorCode as long
Dim ErrorMessage As String
Define MemberProperties = new Collection
MemberProperties.Add HYP_MI_NAME
MemberProperties.Add HYP_MI_DIM
MemberProperties.Add HYP_MI_LEVEL
MemberProperties.Add HYP_MI_GENERATION
MemberProperties.Add HYP_MI_PARENT_MEMBER_NAME
MemberProperties.Add HYP_MI_CHILD_MEMBER_NAME
MemberProperties.Add HYP_MI_PREVIOUS_MEMBER_NAME
MemberProperties.Add HYP_MI_NEXT_MEMBER_NAME
MemberProperties.Add HYP_MI_CONSOLIDATION
MemberProperties.Add HYP_MI_IS_TWO_PASS_CAL_MEMBER
MemberProperties.Add HYP_MI_IS_EXPENSE_MEMBER
MemberProperties.Add HYP_MI_CURRENCY_CONVERSION_TYPE
MemberProperties.Add HYP_MI_CURRENCY_CATEGORY
MemberProperties.Add HYP_MI_TIME_BALANCE_OPTION
MemberProperties.Add HYP_MI_TIME_BALANCE_SKIP_OPTION
MemberProperties.Add HYP_MI_SHARE_OPTION
MemberProperties.Add HYP_MI_STORAGE_CATEGORY
MemberProperties.Add HYP_MI_CHILD_COUNT
MemberProperties.Add HYP_MI_ATTRIBUTED
MemberProperties.Add HYP_MI_RELATIONAL_DESCENDANT_PRESENT
MemberProperties.Add HYP_MI_RELATIONAL_PARTITION_ENABLED
MemberProperties.Add HYP_MI_DEFAULT_ALIAS
MemberProperties.Add HYP_MI_HIERARCHY_TYPE
MemberProperties.Add HYP_MI_DIM_SOLVE_ORDER
MemberProperties.Add HYP_MI_IS_DUPLICATE_NAME
MemberProperties.Add HYP_MI_UNIQUE_NAME
MemberProperties.Add HYP_MI_ORIGINAL_MEMBER
MemberProperties.Add HYP_MI_IS_FLOW_TYPE
MemberProperties.Add HYP_MI_AGGREGATE_LEVEL
MemberProperties.Add HYP_MI_FORMAT_STRING
MemberProperties.Add HYP_MI_ATTRIBUTE_DIMENSIONS
MemberProperties.Add HYP_MI_ATTRIBUTE_MEMBERS
MemberProperties.Add HYP_MI_ATTRIBUTE_TYPES
MemberProperties.Add HYP_MI_ALIAS_NAMES
MemberProperties.Add HYP_MI_ALIAS_TABLES
MemberProperties.Add HYP_MI_FORMULA
MemberProperties.Add HYP_MI_COMMENT
MemberProperties.Add HYP_MI_LAST_FORMULA
MemberProperties.Add HYP_MI_UDAS
' For line 8 to 83 =
For row = 8-10
vtMemberName = ThisWorkbook.ActiveSheet.Cells (rank 1). Value
For each vtPropertyName in MemberProperties
Code of error = HypGetMemberInformation(ThisWorkbook.ActiveSheet.Name, vtMemberName, vtPropertyName, vtPropertyValue, vtPropertyValueString)
If ErrorCode = 0 Then
MsgBox _
"The worksheet name:" & ThisWorkbook.ActiveSheet.Name & Chr (13) & _ "."
"Member name:" & vtMemberName & Chr (13) & _ "."
"Property type:" & vtPropertyName & Chr (13) & _ "."
"Property value:" & vtPropertyValue & Chr (13) & _ "."
"The property string:" & vtPropertyValueString ".
On the other
ErrorMessage = GetReturnCodeMessage (ErrorCode)
MsgBox "SmartView API function HypGetMemberInformation returned an error message:" & Chr (13) & ErrorMessage, vbOKOnly, PrivateConnectionDescription
End If
Next
On the next row
End Sub
The routine produces no result expected.
Only of zeros.
For all properties and all members.
There must be something fundamentally wrong with my code.
The function arguments are correct with regard to the name of journal, the member name and property name.
Value of the property is always 0 and the property value string is always empty.
Two property value arguments are expected to be passed by reference, so I should get some useful information.
No error is generated so that the return error code is always 0.
I guess that some prerequisite so that this function is not satisfied, but what is?
Concerning
Problem solved.
The cause of all evil, as ususal, type mismatch...
Arguments by reference:
vtPropertyValue, vtPropertyValueString
must be declared as variants but returned it to the values are ARRAYS...
After the function call, to loop through these berries extract the real info returned!
In the case of unique value of parameters such as the level of Member just use index 0, for example:
vtPropertyValue (0)
The corrected code is less with parts modified trhe parked in Green:
Void TestMemberLevelFind()
Dim line As Integer
Dim index As Integer
Dim MemberProperties Collection As
Dim vtMemberName As String
Dim vtPropertyName As Variant
Dim vtPropertyValue As Variant
Dim vtPropertyValueString As Variant
Dim ErrorCode as long
Dim ErrorMessage As String
Define MemberProperties = new Collection
MemberProperties.Add HYP_MI_NAME
MemberProperties.Add HYP_MI_DIM
MemberProperties.Add HYP_MI_LEVEL
MemberProperties.Add HYP_MI_GENERATION
MemberProperties.Add HYP_MI_PARENT_MEMBER_NAME
MemberProperties.Add HYP_MI_CHILD_MEMBER_NAME
MemberProperties.Add HYP_MI_PREVIOUS_MEMBER_NAME
MemberProperties.Add HYP_MI_NEXT_MEMBER_NAME
MemberProperties.Add HYP_MI_CONSOLIDATION
MemberProperties.Add HYP_MI_IS_TWO_PASS_CAL_MEMBER
MemberProperties.Add HYP_MI_IS_EXPENSE_MEMBER
MemberProperties.Add HYP_MI_CURRENCY_CONVERSION_TYPE
MemberProperties.Add HYP_MI_CURRENCY_CATEGORY
MemberProperties.Add HYP_MI_TIME_BALANCE_OPTION
MemberProperties.Add HYP_MI_TIME_BALANCE_SKIP_OPTION
MemberProperties.Add HYP_MI_SHARE_OPTION
MemberProperties.Add HYP_MI_STORAGE_CATEGORY
MemberProperties.Add HYP_MI_CHILD_COUNT
MemberProperties.Add HYP_MI_ATTRIBUTED
MemberProperties.Add HYP_MI_RELATIONAL_DESCENDANT_PRESENT
MemberProperties.Add HYP_MI_RELATIONAL_PARTITION_ENABLED
MemberProperties.Add HYP_MI_DEFAULT_ALIAS
MemberProperties.Add HYP_MI_HIERARCHY_TYPE
MemberProperties.Add HYP_MI_DIM_SOLVE_ORDER
MemberProperties.Add HYP_MI_IS_DUPLICATE_NAME
MemberProperties.Add HYP_MI_UNIQUE_NAME
MemberProperties.Add HYP_MI_ORIGINAL_MEMBER
MemberProperties.Add HYP_MI_IS_FLOW_TYPE
MemberProperties.Add HYP_MI_AGGREGATE_LEVEL
MemberProperties.Add HYP_MI_FORMAT_STRING
MemberProperties.Add HYP_MI_ATTRIBUTE_DIMENSIONS
MemberProperties.Add HYP_MI_ATTRIBUTE_MEMBERS
MemberProperties.Add HYP_MI_ATTRIBUTE_TYPES
MemberProperties.Add HYP_MI_ALIAS_NAMES
MemberProperties.Add HYP_MI_ALIAS_TABLES
MemberProperties.Add HYP_MI_FORMULA
MemberProperties.Add HYP_MI_COMMENT
MemberProperties.Add HYP_MI_LAST_FORMULA
MemberProperties.Add HYP_MI_UDAS
' For line 8 to 83 =
For row = 8-10
vtMemberName = ThisWorkbook.ActiveSheet.Cells (rank 1). Value
For each vtPropertyName in MemberProperties
Code of error = HypGetMemberInformation (ThisWorkbook.ActiveSheet.Name, vtMemberName, vtPropertyName, vtPropertyValue, vtPropertyValueString)
If ErrorCode = 0 Then
If IsArray (vtPropertyValue) then
For index = LBound (vtPropertyValue) to UBound (vtPropertyValue)
MsgBox _
"The sheet name:" & ThisWorkbook.ActiveSheet.Name & Chr (13) & _ "."
"Member name:" & vtMemberName & Chr (13) & _ "."
"Property type:" & vtPropertyName & Chr (13) & _ "."
"Property" & index & "value table:" & vtPropertyValue (index) & Chr (13) & _
"Property" & index & "string array:" & vtPropertyValueString (index)
Next
On the other
MsgBox _
"The sheet name:" & ThisWorkbook.ActiveSheet.Name & Chr (13) & _ "."
"Member name:" & vtMemberName & Chr (13) & _ "."
"Property type:" & vtPropertyName & Chr (13) & _ "."
"Property value:" & vtPropertyValue & Chr (13) & _ "
"The property string:"& vtPropertyValueString"
End If
On the other
ErrorMessage = GetReturnCodeMessage (ErrorCode)
MsgBox "SmartView API function HypGetMemberInformation returned an error message:" & Chr (13) & ErrorMessage, vbOKOnly, PrivateConnectionDescription
End If
Next
On the next row
End Sub
Fortunately we can someone find this useful.
I wish documentation Oracle was a little clearer with more extensive code examples.
Gustaw
-
possibility of restoration SmartView version 11.1.2.2.300
Hello
We intend to improve of SmartView version 11.1.2.1.102 to 11.1.2.2.300. We are not a lot of food options in the 11.1.2.2.300 installation documentation. Everyone was able to successfully rollback in case of a problem with the installation?
We check with Oracle too - but they have not yet answered our question.
Is there a Linux version of 11.1.2.2.300 for the installation of the side Server?
Thank you.The server section is that if you want to make available for download on the workspace, if you go this route you can restore by replacing with the old version.
See you soon
John
http://John-Goodwin.blogspot.com/ -
SmartView 11.1.2.2.300 with Essbase 11.1.1.3
Hello
I m of the problems to connect the 11.1.2.2.300 with Essbase 11.1.1.3 Smartview
Can someone help me with this problem?
I searched the forum, but I found answers to the problem of haven´t.
Thanks in advance.You need to follow, read me for the two patch and follow the step by step instructions.
-
Options for saving data in SmartView 11 1 2 2 300
Hello
I understand the Options given in the Smart View 11 1 2 2 are not global and need to define for each sheet.
my professional users alternate between ad-hoc analysis and forms in the same worksheet.
The data options create more work as it changes between tabs.
For example, assume that my user is in tab 1 using the web form of planning and it has disabled the option missing, then he goes to tab2 and did the scan ad-hoc where this option is disabled.
When he returns to the 1 tab options which he chose disappeared. It is necessary to disable them again.
Is there anyway I can save this data to the server level options.
Thank you
Praveen.Funny, considering the global options has been a point of huge pain to pass the Add-in to Smart View. People hated being global options. The Options are leaf level now, which means that they are kept on the sheet so if you delete missing on a single sheet and go to the other you can disable that and suppress, lack of will of the stat on the first sheet.
If you want to create the default formatting for any new journal that is created, go to options and set the options for what you want to start until the new leaves. So instead of simply hitting OK, drop down the small arrow next to the OK button and select Save as default. Now, newly created sheet will start with the options you have selected.
-
Communication to S7 300 PLC using the A2 CP5611 map
I need to collect data from PLC S7 300. I am havin the PC with card Siemens CP 5611 A2 Profibus. I don't want to use any OPC on this.
is there any avilable pilot or a colecting data library.
Concerning
Sivakumar
You may be able to communicate to this forum using DLL (call library in LabVIEW function) calls. Contact Siemens for such an option.
If you are looking for a device Profibus with a native API for LabVIEW, you can use this card instead.
Kind regards
Jochen Klier
National Instruments
-
Graphic design using google chart api but does not
Hello everyone, I want to create a line graph using google api in my appliction of blackberry, for this I downloaded "blackberry-google-chart-api" and referring to this link:
but it gives me the class not found exception.
Do not know how to solve this issue... Thank you...
Thanks vishakhaYadav10 & peter strange, my problem is solved with the following solution: -.
String [] pointArray = (String []) hashtable.get ("point");
"String url ="http://chart.apis.google.com/chart?&cht=lc&chco=000000&chds=0, 10 & chdlp = b & chxt = x, y ' +.
"& chg = 1.04, 0, 5, 1 & CHD = 0, 30 & chco = 3072F3, ff0000, 00aaaa & chls = 2, 4, 1 & chm = s, FF0000, 0, -1, 0 | s, 0000ff, 1, -1, 0. s, 00aa00, 2, -1, 0 +.
"& chs = 480 x 280 & splash = validate & chd = t:100, 200, 300, 400, 500, 600, 700 & chd = t: ';for (int i = 0; i)<>
{
-
Get data from smartview to another application
Is there an API supported, call I can do via HTTP using the same data as smartview uses?
I might just do the same HTTP calls using the smartview plugin?
Thank you!
Essbase - Library Documentation Oracle EPM System 11.1.2.3
Links to
http://docs.Oracle.com/CD/E40248_01/EPM.1112/essbase_api/launch.html
and
http://docs.Oracle.com/CD/E40248_01/EPM.1112/aps_java_api/index.html
Others did (http://www.appliedolap.com/dodeca). Not sure if they go the same Smart road View through provider services or try to make it work more like the classical complement who spoke directly to Essbase (think of the latter).
-
SmartView refreshes the entire sheet instead of just the selected grid.
Hi all
Is it possible to refresh the just selected lines in a journal with combinations of different members instead of the whole sheet? In other words, I have
Member3 Member4
A C member1
Member2 B D
Is it possible to retrieve/update only the values of A and C. When I try in our environment by selecting the row that matches A and C, it updates the values of A and C, B and D as well. This does not happen with the typical add-in.
We are on 11.1.2.3 Essbase/PSA and smartview.
Thank you
Ted.If you use smart view 11.1.2.2.300 and above if I'm on version, then you should be able to select and recover
If you're on this version, probably you might not have the multiple adhoc grid updates to do.
1 remove the info from the first sheet and remove metadata sheet
2. connect to the base. Select the box, then 'Adhoc analysis'
3. it will ask if you want to use a multiple adhoc
4. click ok and you are ready.
Concerning
Amarnath
-
Error running command control SmartView
Hi Experts,
I don't know if this is the right forum to ask this question, but I just wanted to check if anyone was faced with a similar problem.
I use SmartView to refresh the data of HFM and then use a large number of custom analysis macro codes. Since then, I got a lot of worksheets to refresh, I had used the following (not excatly similar) code to automate the update all processes
Set obar = Application.CommandBars ("worksheet menu bar")
OBAR. Controls ("Hyperion"). Controls ("refresh all"). Run
It worked well until we moved in Excel 2010. I tried most of the Excel forums and the sense I get is that is no longer possible to execute commands of 3rd party in this new version of 'Ribbon '.
Someone please confirm what I think it is a fairly common feature and has been used by many people.
Kind regards
S
Hi S,
I met the same problem. To resolve, put the below line of code in your VBA project at the top of the code... even above the first subroutine (Sub).
Public Declare Function HypMenuVRefreshAll Lib "HsAddin" () As Long
Then, put it under the line of code where you want to call the update.
X = HypMenuVRefreshAll()
That's all there is to it. You now use the Smart View API instead of the Excel menu bar command. You can do the same thing with a drink instead of a RefreshAll, but you would need to add an additional function to declare Public with HypMenuVRefresh and make a minor change similar to the call... X = HypMenuVRefresh().
-
Adding member Essbase outline of smartview
Hi allI use Smartview 11.1.2.3.Can I add members to Essbase outline of smartview? IF Yes please send me a link.
Thank you
GP
unless you have written something using the API, then no, you cannot update the members of metadata in Essbase in Smart View. You can planning for the update of the members of Smart View(Not EPMA created but Classic) metadata and pushed to the Essbase in Smart View cube
-
Hello.
I run this API and get the error message
----------
ERROR
ORA-06502: PL/SQL: digital or value error: character string buffer too small
ORA-06512: at line 34 level
----------
APPS schema
Oracle apps 11.5.10.2
S/N 10.0.2.0
----------
Purpose of the API
Create itam with model
-------------
steps.
1 create the table
CREATE TABLE XX_INV_ITEMS
(
Segment1 VARCHAR2 (300),
Description VARCHAR2 (300),
The category number,
VARCHAR2 (1) flag.
msg_erreur varchar2 (2500)
) ;
-API script-
declare
p_commit fnd_api.g_FALSE VARCHAR2 (1000) DEFAULT
; DEFAULT NUMBER of p_validation_level fnd_api.g_VALID_LEVEL_FULL
; p_Item_rec INV_ITEM_GRP. Item_rec_type
; x_Item_rec INV_ITEM_GRP. Item_rec_type
; x_return_status VARCHAR2 (1000)
; x_Error_tbl INV_ITEM_GRP. Error_tbl_type
; p_Template_Id NUMBER
; p_Template_Name VARCHAR2 (200)
; x_debug_file VARCHAR2 (100);
CURSOR item_cur IS
SELECT *.
OF XX_INV_ITEMS
where category = 19
and segment1 = "CM-1-O'AHU;
------
Start
fnd_global.apps_initialize (user_id = > 4425,
resp_id = > 23118,
resp_appl_id = > 426);
p_Item_rec: = INV_ITEM_GRP. G_MISS_ITEM_REC;
because me in item_cur
loop
p_item_rec.ORGANIZATION_ID: = 695;
p_item_rec. DESCRIPTION: = description;
p_item_rec. SEGMENT1: = i.SEGMENT1;
p_item_rec. PRIMARY_UOM_CODE: = "all";
p_item_rec. PRIMARY_UNIT_OF_MEASURE: = 'EA ';
Start
INV_ITEM_GRP. CREATE_ITEM
(
p_commit = > p_commit
, p_validation_level = > p_validation_level
, p_Item_rec = > p_Item_rec
, x_Item_rec = > x_Item_rec
, x_return_status = > x_return_status
, x_Error_tbl = > x_Error_tbl
p_Template_Id = > 19
, p_Template_Name = > '@Activity '.
);
Dbms_output.put_line (' status |) ' ' || x_return_status);
dbms_output.put_line (SubStr (FND_MSG_PUB. Get (p_encoded = > FND_API.) G_FALSE), 1, 255));
end;
end loop;
end;
Please help me
Published by: user13384271 on May 15, 2013 01:21Hello
Can you please check if
p_item_rec. DESCRIPTION: = description; is less than 240 characters and
p_item_rec. SEGMENT1: = i.SEGMENT1; is less than 40 characters?Thank you
VInod -
Questions in 11.1.2.2.300 version of smart view
We had problems with 11.1.2.2.300 version of smart. Currently, we are testing new version with users before you ship it within the company.
Here are the questions that we are.
1. whenever we open the report he asks for the correct location for HsTbar.xla, for some reason, there \Hyperion\Smartview. To work around the problem we installed the SmartView in Hyperion, same file, then it asks me to update the link.
2. after the update the link, we are able to recover the data, but the formatting of the report is lost.
3. some report never opens in the 11.1.2.2.300
We've never experienced these problems in version 9.3.3 and smartview 11.1.2.1.103.
Has anyone experienced these problems? Any suggestion would be appreciated.Hello
first of all: there are seven nine! :-)
http://www.StarTrek.com/database_article/seven-of-nine
And - just for the record - I'm not a nerd... :-)"What do you have, for it to work?"
As I wrote: uninstall 9.3.3 SV-customer of the box(es) restart and then do a fresh install of 11.x.
That should do the trick.
Good luck!
André -
SmartView VBA - can't set "Width of the column updated"
Hi people,
I am updating a series of workbooks based on the API VBA Essbase v9 on SmartView 11.1.2.1 and touched a problem - I am new to VBA SV commands, and I hope that it is something obvious that I'm missing.
One of the functions which is essential to ensure recovery of data does not affect the layout of spreadsheets is the parameter 'Adjust the column widths', which, in the VBA Essbase API, could be managed by using the EssVSetSheetOption function, but neither HypSetGlobalOption nor HypSetSheetOption appear to have such a capability. The only option I have is to run get followed by some reformatting of the column widths, which seems rather ineligant for me.
Any ideas?
Thank you very much
Daveresearch in the .bas file (and what needs to be included in your project that I find HSV_ADJUSTCOLUMNWIDTH in the definitions of the index count options to use for HypGetOption/HypSetOption
Note, I'm looking at the 11.1.2.2 version, your mileage may vary depending on your version
Maybe you are looking for
-
Two issues of music organization associated with iCloud
I recently decided to clean up a bit of my iTunes library and have met with a number of things. I guess pretty basic, but I was not able to find the right keywords to find them in search of these forums, so apologies in advance. First of all, I chos
-
Is there a way to move the existing files to new music notes memo?
I love the new music notes app Apple has just come out. I have a ton of chords and riffs recorded in the memos. Is it possible to move these in the musical notes? Thank you for your courage!
-
Hi have a virus on my email software. He continues to send spam emails and cannot be deleted
Hello have an I-phone 6 + there seems to be a virus on the messaging of the software. He continues to send spam emails and you can not delete your emails that they keep coming back help thank you
-
Style bug LabVIEW XY graph point
I have a XY Chart two signals or more I have selected a circular point to the data of the first signal poins. When I try and select you even point during the second second, it appears in the diamond with an open space in the middle. Bug? LV 2011
-
I have a 10 years, Dell Dimension 4100 purchased with windows ME, set level to windows XP. On the updates of windows years for safety and the operating system has consumed almost my hard disk space. I have to keep these files? The last s DOWNLOAD