Smartview- essbase conn with VBA

Hi All,
   I am trying connect to essbase using smartview with VBA macros..but few challenges in connecting to the essbase server..
code -----------
Sub RetrieveSheet(SheetName)
'A = EssVConnect(SheetName, Username, Password, "Lxsy9dbtk.cos.is.keysight.com", "MR", "MR")
bconn = HypConnectionExists("TestConnection31")
If bconn = True Then
bconn = HypRemoveConnection("TestConnection31")
End If
A = HypCreateConnection(Empty, Username, Password, HYP_ESSBASE, "http://LXSY9DBTK.COS.IS.KEYSIGHT.COM:13080/aps/SmartView", _
                        "LXSY9DBTK.Cos.IS.KEYSIGHT.COM", "MR", "MR", "TestConnection31", "EssbaseMRConnect")
A = HypConnect(Empty, Username, Password, "TestConnection31")
If A <> 0 Then
    MsgBox (A)
    MsgBox ("Login failure has forced routine to terminate.")
    AbortStatus = "Yes"
    Exit Sub
End If
Thanks in Advance
Siva

Hi Celvin & Amarnath,
   Thanks for both of you for replying, but still I am not able to resolve after making few changes suggested in the above responses.. This is my modified code
'A = HypCreateConnection(Empty, Username, Password, HYP_ESSBASE, "http://LXSY9DBTK.COS.IS.company.COM:13080/aps/SmartView", _
                        "LXSY9DBTK.Cos.IS.company.COM", "MR", "MR", "TestConnection31", "EssbaseMRConnect")
A = HypCreateConnection(Empty, Username, Password, HYP_ESSBASE, "http://LXSY9DBTK.COS.IS.company.COM:19000/aps/APS", _
                        "LXSY9DBTK.Cos.IS.company.COM", "MR", "MR", "MR:MR", "Analytic Provider Services")
A = HypConnect(Empty, Username, Password, "MR:MR")
If A <> 0 Then
    MsgBox (A)
    MsgBox ("Login failure has forced routine to terminate.")
    AbortStatus = "Yes"
    Exit Sub
End If
I get an error code   as   -15 . There is no any further error information for troubleshooting. Can you please help me here as what is the mistake i am making in connecting to the essbase cube.
Thanks
Siva

Similar Messages

Essbase retrieve with vba

Hi,
I have following requirement in the excel drop down list likw these
2010/30/11
2010/31/12
2011/31/1 etc...
When user opens excel its need to be selected last month that when user opens excel in 2010/31/12.in the drop down its need to select 2010/30/11 automatically.How these can be done..Please post any code..its very urgent.

I suggest you get a book on VBA macros. This really is not an Essbase issue. It is actually pretty easy.

Upload data from excel with vba by calling a function module

Hello all,
i have a problem with the function module "ALSM_EXCEL_TO_INTERNAL_TABLE". I will call this function module with vba to load data from excel to sap with a Buttonclick. I have copied this function module and set it remotable. But i can´t call it from excel.
Can you give me some tips how can i
upload data from excel with vba by click a button.
The problem seems the function: call method cl_gui_frontend_services=>clipboard_import in the function module, because when i comment this function call the vba-call is true but no results.
How can I call the function module correct with vba?
Thanks a lot for your tips!!!!
Chris
Message was edited by:
        Christoph Kirschner

HI
Uploading data directly from Excel file format
* Upload data direct from excel.xls file to SAP
REPORT ZEXCELUPLOAD.
PARAMETERS: filename LIKE rlgrap-filename MEMORY ID M01,
            begcol TYPE i DEFAULT 1 NO-DISPLAY,
            begrow TYPE i DEFAULT 1 NO-DISPLAY,
            endcol TYPE i DEFAULT 100 NO-DISPLAY,
            endrow TYPE i DEFAULT 32000 NO-DISPLAY.
* Tick don't append header
PARAMETERS: kzheader AS CHECKBOX.
DATA: BEGIN OF intern OCCURS 0.
        INCLUDE STRUCTURE alsmex_tabline.
DATA: END OF intern.
DATA: BEGIN OF intern1 OCCURS 0.
        INCLUDE STRUCTURE alsmex_tabline.
DATA: END OF intern1.
DATA: BEGIN OF t_col OCCURS 0,
       col LIKE alsmex_tabline-col,
       size TYPE i.
DATA: END OF t_col.
DATA: zwlen TYPE i,
      zwlines TYPE i.
DATA: BEGIN OF fieldnames OCCURS 3,
        title(60),
        table(6),
        field(10),
        kz(1),
      END OF fieldnames.
* No of columns
DATA: BEGIN OF data_tab OCCURS 0,
       value_0001(50),
       value_0002(50),
       value_0003(50),
       value_0004(50),
       value_0005(50),
       value_0006(50),
       value_0007(50),
       value_0008(50),
       value_0009(50),
       value_0010(50),
       value_0011(50),
       value_0012(50),
       value_0013(50),
       value_0014(50),
       value_0015(50),
       value_0016(50),
       value_0017(50),
       value_0018(50),
       value_0019(50),
       value_0020(50),
       value_0021(50),
       value_0022(50),
       value_0023(50),
       value_0024(50),
       value_0025(50),
       value_0026(50),
       value_0027(50),
       value_0028(50),
       value_0029(50),
       value_0030(50),
       value_0031(50),
       value_0032(50),
       value_0033(50),
       value_0034(50),
       value_0035(50),
       value_0036(50),
       value_0037(50),
       value_0038(50),
       value_0039(50),
       value_0040(50),
       value_0041(50),
       value_0042(50),
       value_0043(50),
       value_0044(50),
       value_0045(50),
       value_0046(50),
       value_0047(50),
       value_0048(50),
       value_0049(50),
       value_0050(50),
       value_0051(50),
       value_0052(50),
       value_0053(50),
       value_0054(50),
       value_0055(50),
       value_0056(50),
       value_0057(50),
       value_0058(50),
       value_0059(50),
       value_0060(50),
       value_0061(50),
       value_0062(50),
       value_0063(50),
       value_0064(50),
       value_0065(50),
       value_0066(50),
       value_0067(50),
       value_0068(50),
       value_0069(50),
       value_0070(50),
       value_0071(50),
       value_0072(50),
       value_0073(50),
       value_0074(50),
       value_0075(50),
       value_0076(50),
       value_0077(50),
       value_0078(50),
       value_0079(50),
       value_0080(50),
       value_0081(50),
       value_0082(50),
       value_0083(50),
       value_0084(50),
       value_0085(50),
       value_0086(50),
       value_0087(50),
       value_0088(50),
       value_0089(50),
       value_0090(50),
       value_0091(50),
       value_0092(50),
       value_0093(50),
       value_0094(50),
       value_0095(50),
       value_0096(50),
       value_0097(50),
       value_0098(50),
       value_0099(50),
       value_0100(50).
DATA: END OF data_tab.
DATA: tind(4) TYPE n.
DATA: zwfeld(19).
FIELD-SYMBOLS: <fs1>.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
       EXPORTING
            mask      = '*.xls'
            static    = 'X'
       CHANGING
            file_name = filename.
START-OF-SELECTION.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
       EXPORTING
            filename                = filename
            i_begin_col             = begcol
            i_begin_row             = begrow
            i_end_col               = endcol
            i_end_row               = endrow
       TABLES
            intern                  = intern
       EXCEPTIONS
            inconsistent_parameters = 1
            upload_ole              = 2
            OTHERS                  = 3.
IF sy-subrc <> 0.
    WRITE:/ 'Upload Error ', SY-SUBRC.
ENDIF.
END-OF-SELECTION.
LOOP AT intern.
    intern1 = intern.
    CLEAR intern1-row.
    APPEND intern1.
ENDLOOP.
SORT intern1 BY col.
LOOP AT intern1.
    AT NEW col.
      t_col-col = intern1-col.
      APPEND t_col.
    ENDAT.
    zwlen = strlen( intern1-value ).
    READ TABLE t_col WITH KEY col = intern1-col.
    IF sy-subrc EQ 0.
      IF zwlen > t_col-size.
        t_col-size = zwlen.
*                          Internal Table, Current Row Index
        MODIFY t_col INDEX sy-tabix.
      ENDIF.
    ENDIF.
ENDLOOP.
DESCRIBE TABLE t_col LINES zwlines.
SORT intern BY row col.
IF kzheader = 'X'.
    LOOP AT intern.
      fieldnames-title = intern-value.
      APPEND fieldnames.
      AT END OF row.
        EXIT.
      ENDAT.
    ENDLOOP.
ELSE.
    DO zwlines TIMES.
      WRITE sy-index TO fieldnames-title.
      APPEND fieldnames.
    ENDDO.
ENDIF.
SORT intern BY row col.
LOOP AT intern.
    IF kzheader = 'X'
    AND intern-row = 1.
      CONTINUE.
    ENDIF.
    tind = intern-col.
    CONCATENATE 'DATA_TAB-VALUE_' tind INTO zwfeld.
    ASSIGN (zwfeld) TO <fs1>.
    <fs1> = intern-value.
    AT END OF row.
      APPEND data_tab.
      CLEAR data_tab.
    ENDAT.
ENDLOOP.
CALL FUNCTION 'DISPLAY_BASIC_LIST'
       EXPORTING
            file_name     = filename
       TABLES
            data_tab      = data_tab
            fieldname_tab = fieldnames.
*-- End of Program
<b>Excel Upload Alternative - KCD_EXCEL_OLE_TO_INT_CONVERT</b>
*Title : Excel Uploading
TYPES:   BEGIN OF t_datatab,
         col1(25) TYPE c,
         col2(30) TYPE c,
         col3(30) TYPE c,
         col4(30) TYPE c,
         col5(30) TYPE c,
         col6(30) TYPE c,
         col7(30) TYPE c,
         col8(30) TYPE c,
         col9(30) TYPE c,
         col10(30) TYPE c,
         col11(30)    TYPE c,
       END OF t_datatab.
DATA: it_datatab TYPE STANDARD TABLE OF t_datatab INITIAL SIZE 0,
      wa_datatab TYPE t_datatab.
Data : p_table type t_datatab occurs 0 with header line.
DATA : gd_scol   TYPE i VALUE '1',
       gd_srow   TYPE i VALUE '1',
       gd_ecol   TYPE i VALUE '256',
       gd_erow   TYPE i VALUE '65536'.
DATA: it_tab TYPE filetable,
      gd_subrc TYPE i.
field-symbols : <fs>.
*Selection screen definition
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_file LIKE rlgrap-filename
               DEFAULT 'c:test.xls' OBLIGATORY.   " File Name
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
REFRESH: it_tab.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title     = 'Select File'
      default_filename = '*.xls'
      multiselection   = ' '
    CHANGING
      file_table       = it_tab
      rc               = gd_subrc.
LOOP AT it_tab INTO p_file.
*    so_fpath-sign = 'I'.
*    so_fpath-option = 'EQ'.
*    append so_fpath.
ENDLOOP.
START-OF-SELECTION.
PERFORM upload_excel_file TABLES   it_datatab
                             USING   p_file
                                     gd_scol
                                     gd_srow
                                     gd_ecol
                                     gd_erow.
* END-OF-SELECTION.
END-OF-SELECTION.
LOOP AT it_datatab INTO wa_datatab.
    WRITE:/ wa_datatab-col1,
            wa_datatab-col2,
            wa_datatab-col3,
            wa_datatab-col4,
            wa_datatab-col5,
            wa_datatab-col6,
            wa_datatab-col7,
            wa_datatab-col8,
            wa_datatab-col9,
            wa_datatab-col10,
            wa_datatab-col11.
ENDLOOP.
*&      Form UPLOAD_EXCEL_FILE
*       upload excel spreadsheet into internal table
*      -->P_TABLE    Table to return excel data into
*      -->P_FILE     file name and path
*      -->P_SCOL     start column
*      -->P_SROW     start row
*      -->P_ECOL     end column
*      -->P_EROW     end row
FORM upload_excel_file TABLES   p_table
                       USING    p_file
                                p_scol
                                p_srow
                                p_ecol
                                p_erow.
DATA : lt_intern TYPE kcde_cells OCCURS 0 WITH HEADER LINE.
* Has the following format:
*             Row number   | Colum Number   |   Value
*      i.e.     1                 1             Name1
*               2                 1             Joe
DATA : ld_index TYPE i.
* Note: Alternative function module - 'ALSM_EXCEL_TO_INTERNAL_TABLE'
CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'
    EXPORTING
      filename                = p_file
      i_begin_col             = p_scol
      i_begin_row             = p_srow
      i_end_col               = p_ecol
      i_end_row               = p_erow
    TABLES
      intern                  = LT_INTERN
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.
IF sy-subrc <> 0.
    FORMAT COLOR COL_BACKGROUND INTENSIFIED.
    WRITE:/ 'Error Uploading file'.
    EXIT.
ENDIF.
IF lt_intern[] IS INITIAL.
    FORMAT COLOR COL_BACKGROUND INTENSIFIED.
    WRITE:/ 'No Data Uploaded'.
    EXIT.
ELSE.
    SORT lt_intern BY row col.
    LOOP AT lt_intern.
     MOVE lt_intern-col TO ld_index.
     assign component ld_index of structure
     p_table to <fs>.
move : lt_intern-value to <fs>.
*     MOVE lt_intern-value TO p_table.
      AT END OF row.
        APPEND p_table.
        CLEAR p_table.
      ENDAT.
    ENDLOOP.
ENDIF.
ENDFORM.                    "UPLOAD_EXCEL_FILE
Regards
Pavan

BI 7.0 : Refresh of only one Query with VBA in a MultiQueryWorkbook

Does anyone know how to refresh only one query with VBA in a Workbook with several queries on different sheets?

Hello together,
thanks for your replies.
In the backend EHP1 is installed and I think we don't need an extra update for the frontend. But in the VBA code of the frontend the code didn't changed.
Our BEX Analyzer Addin version is: 7100.4.1100.34
BEx Patch Level is: Support Package 11 Revision 1606
The VBA code is:
Public Function SAPBEXrefresh(allQueries As Boolean, Optional atCell As Range) As Integer
'In the 7.0 Analyzer, ALL the items in the workbook can be refreshed, but refreshing
'a query individually is not supported
On Error Resume Next
extErrorBegin ("3.x API SAPBEXRefresh called")
If allQueries = True Then
    Common.MenuRefresh
    SAPBEXrefresh = 0
Else
    SAPBEXrefresh = 700
    p_extErrorText = "With 7.0, this API is partly supported to refresh ALL items in the workbook, NOT an individual Query"
End If
extErrorEnd
End Function
As you can see a individually query with this VBA code is still not supported.
Does anyone know how to change this code or if we need a special update?
Daniel
Edited by: Marc Schlipphak on Jan 19, 2010 7:35 PM

Can we set the Option "Show add-in user interface errors" with VBA?

Does anyone know if the advanced Option "Show add-in user interface errors" can be set with VBA in Project Pro 2013?
\Spiro Theopoulos, Montreal, QC (Canada)

Spiro,
Sorry but as far as I know that option is not available through VBA.
John

MS Project and print automatically a planning per ressource with VBA code for instance

Hello, i'm in MS project 2010 and i would like to print automatically a planning per ressource (PDF) with VBA code or other quick way.
Somebody can help me with a simple macro VBA and how to install/use it?
regards,
M.

Probably oyu need the loop:
Dim Res as Resource
for each Res in ActiveProject.Resources
'Apply resource filter then print
Next Res
Rod Gill
Author of the one and only Project VBA Book
www.project-systems.co.nz

How to grab data with VBA from SAP Structure or Transaction

Hi,
my goal is to grab the data from the transaction cm01 and cm38 for reporting purposes with VBA in Microsoft Access automatically.
I'm yet able to download several tables with the RFC_READ_TABLE module, but since SAP only tells me that there is the structure RC65D behind the fields in cm01, I'm not able to use the RFC_READ_TABLE module for grabbing the data from cm01.
Does anyone know a way to grab the data from a structure like RC65D or from a transaction like cm01 with VBA?
Thanks in advance!
NicoDr
Edited by: NicoDr on Feb 17, 2012 5:14 PM

Hi Yang,
If you are using Web Service, then the binding will be done automatically.
It can't grow automatically, what else should i do to achieve this?
1.Select the table(make sure you are not selecting subform) in Hierarchy view
2. Under table select the Row which is having the required fileds for data
3. In the Binding of that row, check the checkbox "Repeat Row for each item data" and under that check the Min Count which will set the default row **** to 1
Regards,
Sachin

Essbase Login with Error 1042006 Network Error[111]

Hi Guys,
It is not new installation and worked well before.But recently can't login and retirive error emsg "1042006 - Network error [111"
Basic infor
=========
Essbase Release:11.1.2.0
System Platform: Linux-86
=========
Used the essmsh login. it retrived below error message
=========
ERROR - 111 - Unable to connect to localhost.
ERROR - 1042006 - Network error [111]: Unable to connect to [localhost:1423]. The client timed out waiting to connect to Essbase Agent using TCP/IP. Check your network connections. Also make sure that server and port values are correct.
============
tried to restart essbase agent with opmnctl. it also occured error to start this component.
checked ohs_component and got below error messages.
=============
pid file /Oracle/Middleware/user_projects/epmsystem1/httpConfig/ohs/diagnostics/logs/OHS/ohs_component/httpd.pid overwritten -- Unclean shutdown of previous Apache run?
=============
stop all EPM and restart it but it doesn't work and with above error " Unclean shutdown of previous Apache run"
Confused about this prb. Can anybody here give me some advice about this issue?
Thanks.
Regards,
Chelsea

1. Open the Windows Registry.
2. Navigate to HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\TCPIP\Parameters.
3. Add new DWORD Value named "TcpTimedWaitDelay"
- right click and select Modify
- Select "decimal" radio button, type in 30.
4. Add new DWORD Value named MaxUserPort
- right click and select Modify
- Select "decimal" radio button, type in 65534
5. A reboot of the server is necessary.
hi Steave :)
out of curiosity how skype will effect?..

Materials/links about programming macros with VBA in Dektop Intelligence (Business Objects 12)

Hello!
Does somebody provide me some good materials & links about programming with VBA
in Dektop Intelligence for creating macros ?
I am experienced VBA programmer and beginner in Business Objects

I am not quite sure what either of you are after, but if you hit the "Documentation" link on OTN you will find the documentation, such as the above list, for almost all of Oracle products. Most are available online in HTML format or PDF and some have a part number so that they can be ordered.
The 10g Developer Suite Documentation is here: http://otn.oracle.com/documentation/dev10g.html
Regards
Sue

Integrating Essbase cubes with Oracle Tables in BI Server

I'm trying to link together data from an aggregated Essbase Cube with some static table data from our oracle system. Both the essbase and oracle data exist correctly in their own right in the physical, business and presentation levels. Aggragted data is client sales, static data is client details
Within the OBIEE Administration tool I've tried to drag the physical oracle table for clients onto the clients essbase section in the business area, and it seems to work OK, until you try and report on them together and I get the following error:
State: HY000. Code: 10058. [NQODBC] [SQL_STATE: HY000] [nQSError: 10058] A general error has occurred. [nQSError: 42043] An external aggregate is found in an outer query block. (HY000)
Can anyone advise on what I'm doing wrong?
Thanks

Thanks Christian I found some very useful articles (one or two by you) - I'll have to look harder on the net before posting.
One thing I found out, with respect to vertical federation, that others may benefit from, is that I fuond it much easier to start from the most detailed level and then attach the less detailed source rather start with the less detailed and add the additional on.

How to register Essbase server with Shared Services?

Hello All,
How to register Essbase server with Shared Services?

Hello All,
How to register Essbase server with Shared Services?

Is it possible to run a excel with vba program in IPAD

Hi,
I would like ask if it is possible to run a excel with vba program/macros in IPAD?
Thanks

I am not sure, but the best Free App is Google Drive, you get 15 GB free storage which you can upload photos , videos and files, pretty much amazing, also I have read news that Microsoft is planning to have iOS office 365 but cost annual subscription fees almost 99$ kinda lame, try also Cloudon App, is very nice app , you can use word , power point and Excel

Write the results script of results log pane to XLS or CSV file with VBA.

Hi,
How can I write the results script of results log pane to XLS or CSV file with VBA code or something? I tried so hard but i can't.
Thanks

MoGas,
This is actually not a trivial process. You need to use the results object and code it to write to your file (it is described in the help files).
e-Tester automatically saves the results log as a text file so you may just want to stick with that for simplicity.

Extend Features in Adobe Reader with VBA?

I merge two PDFs with VBA in MS Access by using Adobe Acrobat X and save the new file with a new name. Before saving the file I want to set "Extend Features in Adobe Reader". But after App.MenuItemExecute "DIGSIG:UBDoc" a popup is opened and I have no idea to go on with saving the PDF.
Is there any way to set "Extend Features in Adobe Reader" without the popup and save the PDF with the new name in VBA?

Not possible with Adobe Acrobat. You may check this product:
http://www.adobe.com/products/livecycle/readerextensions/

Applying Style Effects with vba script

Hello,
I've been doing a lot of scripting with VBA to create data driven graphics with good results so far.
Now I want to try and fancy things up a bit. For example I'm trying to add an Effect to an object.
As example, I create a simple filled rectangle with the following:
Set objRectangle = docRef.PathItems.Rectangle(x, y, w, h)
objRectangle.FillColor = rgbColorRef
objRectangle.Stroked = False
objRectangle.Filled = True
After I want to apply an effect equivalent to selecting Effect > Stylize > Scribble... from the menus in Illustrator.
I found PathItem.ApplyEffect (LiveEffectXML As String) but not sure this is correct approach. Can't find any documentation or examples on this or reference for the LiveEffectXML string.
Sure would appreciate some help if anyone has done this.
Thanks
Paul
PS I'm using CS6

Thank you Kasyan, but it doesn't work as I expected it to. The InDesign style are somtimes overridden, sometimes not. It seems to have something to do with wether the Word-style is based on another Word-style or not. In addition I have my InDesign styles grouped, and when InDesign upon placing a text doesn't find the style on the top level, it imports the Word-style.
My solution:
Change Word-styles so they are not based upon another style
Running the VBA-code in Word
Placing the text using "Use InDesign style definition" for paragraph and character styles conflicts.
Editing the imported InDesign styles so that they are based upon and equals the original InDesign style in the respective group

Smartview- essbase conn with VBA

Similar Messages

Maybe you are looking for