VBA code to connect Essbase from Excel

Hi All,
I need VBA code to connect & retrive the data from Essbase trough Excel sheet ....Please advise...
Regards,
Prabhas

KVC wrote:
As gleen advised install essbase excel addin before going to use below script
create push button to trigger below script
press Alt F11create module copy the below module and ur done
Sub main()
X = EssVConnect("[Book1.xls]Sheet1", "admin", "password", "EssbaseServerName", "Sample", "Basic")
‘Replace all the above parameters according to you environment.
'("[Book1.xls]Sheet1" > Excel filename where this code is written followed by the sheetname
'admin > username who has access to this application/database
'EssbaseServerName > essbase analytic server name
'Sample > application name
'Basic > database name
If X = 0 Then
MsgBox ("Essbase connect is successful.")
Else
MsgBox ("Essbase connection failed.")
End If
X = EssVRetrieve("[Book1.xls]Sheet1", range("A1:F12"), 1)
If X = 0 Then
MsgBox ("Essbase retrieve is successful.")
Else
MsgBox ("Essbase retrieval failed.")
End If
for Disconnect
X = EssVDisconnect(Empty)
If X = 0 Then
MsgBox ("Essbase disconnect is successful.")
Else
MsgBox ("Essbase disconnect failed.")
End If
End SubKVC ...Thanks for your Help...

Similar Messages

  • SmartView VBA code to connect to Essbase

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

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

  • Not able to connect Essbase from IR 9.3.1

    Hi
    I am not able to create a Essbase connection in IR Studio. I have all the components installed on the same server. Any help would be useful

    i have been able to connect to essbase add-in/smart view from excel. Even on the server where Analytic Server and IR are installed on the same box. Is there any chnages that i need to do. I have added essbase connection in DAS service of IR, retsarted IR service.

  • Issue in connecting to Essbase from excel add-in. 9.3.1

    Hi Experts,
    User has 2 servers, eg. a and b,
    he is able to connect a and b through laptop - no issues,
    but from desktop, he is able to connect only to a and not to be.
    Other users from their desktop are able to connect to a and b using the same userid , password
    Observations/suggestions ;
    - Checked that 1423 port is being displayed for server a but not for b on his machine.
    - NetDelay and NetRetry counts are 1000 and 1500 respectively.
    - Suggested the customer to add
    AGENTPORT 1423
    SERVERPORTBEGIN 32768
    SERVERPORTEND 32968
    PORTINC 1
    in essbase.cfg file - but still issue persists.
    the issue is machine specific.
    Its urgent. Please suggest/advise.

    There is no help here for issues with VirtualBox.
    You need to direct all your inquiries related to installation, configuration, and usage of client environments you might install into it at the web site where you found the VirtualBox software.
    You were directed there in your OTN thread from three days earlier:
    EBS installation on Virtual machine node
    so you need to go back there for assistance.

  • Sample c# code to connect WebDAV from Metro App

    Hi 
    I am working on creating a feature in metro App that should connect with WebDAV and access its files. Can anyone share code and ideas regarding how to connect and access the files from webDAV.
    Thanks in advance.

    Hi,
    You might be need to know that how to use httpClient class. For your more information:
    HttpClient Sample
    Additionally, you could reference the following link:
    https://social.msdn.microsoft.com/Forums/windowsapps/en-US/68ab6cbb-26fb-431e-a48f-7a90cc4477c9/how-to-use-webdav-for-windows-store-app-any-client-or-library-which-i-can-use-in-visual-studio?forum=winappswithcsharp
    https://social.msdn.microsoft.com/Forums/windowsapps/en-US/beee7372-5756-4620-9901-563644ea9b66/any-sample-of-using-the-webdav-api?forum=wpdevelop
    Hope helpful for you.

  • Problem with controlling Annotations from Excel VBA

    Hi,
    I have a PDF document that has plenty of sticky notes attached to it. These sticky notes have been added by multiple authors on all pages of the document. I am trying to import the contents of these sticky notes, their author and the page number to an excel spreadsheet.  I am using Excel 2007 and Acrobat Professional 9.0.
    This is the code that I am currently using to import the sticky notes, but the problem that I am facing is that when I run the macro -
    Same sticky note contents, author and page numbers are imported multiple times
    Not all sticky notes are imported, only some of them appear in the final excel spreadsheet
    When I compare the number of sticky notes to that in the original PDF file, the number is correct. But the content is repeated content and that is the reason why only some of the sticky notes are imported.
    This is an activity that I need to do on regular basis and the number of sticky notes that I need to import to excel may range between 100 to 200. It is really difficult to do this task manually, so an excel VBA macro could prove really helpful.
    Sub ImportComments_Click()
    Dim Fpath As String
    Dim WordObj As Object
    Dim wbkOutput As Excel.Workbook
    Dim iRow As Integer
    Dim i, j, k As Integer
    Dim lRet As Long
    Dim objAcroAVDoc As New Acrobat.acroAVDoc
    Dim objAcroPDDoc As Acrobat.AcroPDDoc
    Dim numPages As Long
    Dim lAnnotscnt As Long
    Dim Subtype As String
    Dim NumComments As Long
    Dim AcroApp As Acrobat.AcroApp
    Dim objAcroPDPage As Acrobat.AcroPDPage
    Dim annot As Acrobat.AcroPDAnnot
    Sheets("Defect Log").Select
    Range("L3").Activate
    Fpath = ActiveCell.Value
    Sheets("Defect Log").Select
    Range("A1").Activate
    i = 0
    Do While (Not (IsEmpty(ActiveCell.Value)) Or Not (IsEmpty(ActiveCell.Offset(0, 1).Value)) Or Not (IsEmpty(ActiveCell.Offset(0, 2).Value)) Or Not (IsEmpty(ActiveCell.Offset(0, 3).Value)) Or Not (IsEmpty(ActiveCell.Offset(0, 4).Value)) Or Not (IsEmpty(ActiveCell.Offset(0, 5).Value)) Or Not (IsEmpty(ActiveCell.Offset(0, 6).Value)) Or Not (IsEmpty(ActiveCell.Offset(0, 7).Value)) Or Not (IsEmpty(ActiveCell.Offset(0, 8).Value)) Or Not (IsEmpty(ActiveCell.Offset(0, 9).Value)) Or Not (IsEmpty(ActiveCell.Offset(0, 10).Value)) Or Not (IsEmpty(ActiveCell.Offset(0, 11).Value)) Or Not (IsEmpty(ActiveCell.Offset(0, 12).Value)) Or Not (IsEmpty(ActiveCell.Offset(0, 13).Value)) Or Not (IsEmpty(ActiveCell.Offset(0, 14).Value)))
    i = i + 1
    ActiveCell.Offset(1, 0).Select
    Loop
    iRow = i + 1
    Set wbkOutput = ActiveWorkbook
    lRet = objAcroAVDoc.Open(Fpath, "")
    Set objAcroPDDoc = objAcroAVDoc.GetPDDoc
    numPages = objAcroPDDoc.GetNumPages()
    Set objAcroPDPage = objAcroPDDoc.AcquirePage(0)
    For k = 1 To numPages
    lAnnotscnt = objAcroPDPage.GetNumAnnots()
    For m = 0 To lAnnotscnt - 1
    If lAnnotscnt = 0 Then Exit For
    Set objAcroPDAnnot = objAcroPDPage.GetAnnot(m)
    If (objAcroPDAnnot.GetContents <> "" And objAcroPDAnnot.GetSubtype = "Text") Then
    Cells(iRow, 5).Value = k
    Cells(iRow, 2).Value = objAcroPDAnnot.GetContents()
    Cells(iRow, 11).Value = objAcroPDAnnot.GetTitle()
    iRow = iRow + 1
    End If
    Next m
    Set objAcroPDPage = objAcroPDDoc.AcquirePage(k)
    Next k
    lRet = objAcroAVDoc.Close(1)
    Set objAcroAVDoc = Nothing
    Set objAcroPDAnnot = Nothing
    Set objAcroPDPage = Nothing
    Set objAcroPDDoc = Nothing
    End Sub

    Make sure you are current with 9.x patches, just on general principles.
    The code seems fine – nothing jumping out at me.
    You can also look at using the JSObject methods and trying this via the JavaScript stuff – that will give you more access to the Annotation information…
    From: Adobe Forums <[email protected]<mailto:[email protected]>>
    Reply-To: "[email protected]<mailto:[email protected]>" <[email protected]<mailto:[email protected]>>
    Date: Thu, 24 Nov 2011 04:25:12 -0800
    To: Leonard Rosenthol <[email protected]<mailto:[email protected]>>
    Subject: Problem with controlling Annotations from Excel VBA
    Problem with controlling Annotations from Excel VBA
    created by apreeti<http://forums.adobe.com/people/apreeti> in Acrobat SDK - View the full discussion<http://forums.adobe.com/message/4044740#4044740

  • Error connecting to Essbase from Analyzer 7.0

    Hi,We have just installed Analyzer 7.0.1 with Essbase 6.5.5. on Windows 2003 servers. Everything seem to be working fine except when I try to define a new Essbase connection in Administrator Tools, I get this error."[1033]Native:2001 Essbase Error;nested exception is:com.hyperion.apAPException:[1033]Native:2001 Essbase Error"I'm able to connect to Essbase from Excel-Addin, no problem.Any ideas?Thanks for your help.Peter

    I would try installing the Essbase 6.5.4.2 runtime on your Analyzer server. If this is the same server as Essbase don't worry as it shouldn't effect the operation of the server process. This certainly worked with Analyzer 7.0 and 6.5.1.Hope this helps.Paul Armitagewww.analitica.co.uk

  • BDC for Transaction IA01 including recording from excel (sample Code)

    Dear Experts,
                        Can anyone give me a sample BDC code for transaction IA01 from excel
    Thanks in advance
    Regards
    Sayandeep

    Hi,
    Try This Code
    report Y_P_GB01
           no standard page heading line-size 255.
             R O H M     A N D     H A A S    C O M P A N Y              *
    ======================================================================
    Development ID :  mqhpkl                                                   *
    Creation Date  :  24-11-2008                                           *
    Developer Name :  Paramesh Kalluri                                    *
    Program Title :  Upload the Special Ledger data from Excel to SAP    *
    Description   :                                                      *
                           Constants                                     *
    CONSTANTS: c_begcol TYPE i VALUE 1,
               c_begrow TYPE i VALUE 1,
               c_endcol TYPE i VALUE 10,
               c_endrow TYPE i VALUE 10.
                        Types Declaration                                *
    TYPES : begin of d_itab,
    data element: BUKRS
            BUKRS_001(004),
    data element: DOCTY
            DOCTY_002(002),
    data element: RVERS
            RVERS_003(003),
    data element: BUDAT
            DATE_004(010),
    data element: RTCUR
            RTCUR_005(005),
    data element: GCURR_A
            GCURR_006(005),
    data element:
            GD_USE_TARGET_LEDGER_007(001),
    data element:
            TARGET_LEDGER_008(002),
    data element: UTAB_D
            UTAB_009(030),
    data element: VTCUR12
            TSL_010(019),
          end of d_itab.
                          Data Declarations                              *
    DATA: it_bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE,
          it_bdcmsgcoll LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE,
          XL_itab type alsmex_tabline occurs 0 with header line,
          msg_disp TYPE string.
    data : it_itab type standard table of d_itab,
           wa_itab type d_itab.
                         Selection Screen                                *
    SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
    PARAMETERS: p_file LIKE rlgrap-filename.
    SELECTION-SCREEN: END OF BLOCK b1.
                    At Selection Screen  for File                        *
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
    perform f4_filename.
                     Start-of-selection                                  *
    start-of-selection.
    *Uploading the data from excel to internal table
    perform excel_upload.
    *Uploading to SAP
    perform chek_data.
    if sy-subrc ne 0.
    perform format_message.
    endif.
    end-of-selection.
    *&                   Form  F4_FILENAME
          Find the file
    -->  p1        text
    <--  p2        text
    FORM F4_FILENAME .
    CALL FUNCTION 'F4_FILENAME'
       IMPORTING
        FILE_NAME           = p_file.
    ENDFORM.                    " F4_FILENAME
    *&                   Form  CHEK_DATA
          text
    -->  p1        text
    <--  p2        text
    FORM CHEK_DATA .
    loop at it_itab into wa_itab.
    perform bdc_dynpro      using 'SAPMGBUK' '0102'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'GLU1-BUKRS'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=ERF'.
    perform bdc_field       using 'GLU1-BUKRS'
                                  wa_itab-bukrs_001.
    perform bdc_field       using 'GLU1-DOCTY'
                                  wa_itab-docty_002.
    perform bdc_field       using 'GLU1-RVERS'
                                  wa_itab-RVERS_003.
    perform bdc_field       using 'RGBUK-DATE'
                                  wa_itab-DATE_004.
    perform bdc_field       using 'GLU1-RTCUR'
                                  wa_itab-RTCUR_005.
    perform bdc_field       using 'RGBUK-GCURR'
                                  wa_itab-GCURR_006.
    perform bdc_field       using 'GD_USE_TARGET_LEDGER'
                                  wa_itab-GD_USE_TARGET_LEDGER_007.
    perform bdc_field       using 'TARGET_LEDGER'
                                  wa_itab-TARGET_LEDGER_008.
    perform bdc_field       using 'T883S-UTAB'
                                  wa_itab-UTAB_009.
    perform bdc_dynpro      using 'SAPMGBUK' '0110'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'GLU1-TSL'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_field       using 'GLU1-TSL'
                                  wa_itab-TSL_010.
    perform bdc_dynpro      using 'SAPMGBUK' '0110'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/EBACK'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'GLU1-TSL'.
    perform bdc_dynpro      using 'SAPLSPO1' '0200'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=YES'.
    perform bdc_dynpro      using 'SAPMGBUK' '0102'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/EBACK'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'GLU1-BUKRS'.
    CALL TRANSACTION 'GB01' USING IT_BDCDATA MODE 'A' UPDATE 'A' MESSAGES
    INTO IT_BDCMSGCOLL.
    CLEAR WA_ITAB.
    refresh it_bdcdata.
    ENDLOOP.
    ENDFORM.                    " CHEK_DATA
    *&                   Form  EXCEL_UPLOAD
          text
    -->  p1        text
    <--  p2        text
    FORM EXCEL_UPLOAD .
    CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
      EXPORTING
        FILENAME                      = p_file
        I_BEGIN_COL                   = c_begcol
        I_BEGIN_ROW                   = c_begrow
        I_END_COL                     = c_endcol
        I_END_ROW                     = c_endrow
      TABLES
        INTERN                        = xl_itab.
    EXCEPTIONS
      INCONSISTENT_PARAMETERS       = 1
      UPLOAD_OLE                    = 2
      OTHERS                        = 3
    IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    loop at xl_itab.
        case xl_itab-col.
          when '1'.
            wa_itab-bukrs_001 = xl_itab-value.
          when '2'.
            wa_itab-docty_002 = xl_itab-value.
          when '3'.
            wa_itab-RVERS_003 = xl_itab-value.
          when '4'.
            wa_itab-DATE_004 = xl_itab-value.
          when '5'.
            wa_itab-RTCUR_005 = xl_itab-value.
          when '6'.
            wa_itab-GCURR_006 = xl_itab-value.
          when '7'.
            wa_itab-GD_USE_TARGET_LEDGER_007 = xl_itab-value.
          when '8'.
            wa_itab-TARGET_LEDGER_008 = xl_itab-value.
          when '9'.
            wa_itab-UTAB_009 = xl_itab-value.
          when '10'.
            wa_itab-TSL_010 = xl_itab-value.
    *at end of row.
           append wa_itab to it_itab.
    *endat.
        endcase.
    at end of row.
            append wa_itab to it_itab.
    endat.
      endloop.
    ENDFORM.                    " EXCEL_UPLOAD
    *&                      Form  BDC_DYNPRO
          text
         -->P_0169   text
         -->P_0170   text
    FORM BDC_DYNPRO  USING A B.
    clear it_bdcdata.
      it_bdcdata-PROGRAM  = A.
      it_bdcdata-DYNPRO   = B.
      it_bdcdata-DYNBEGIN = 'X'.
    APPEND it_bdcdata.
    ENDFORM.                    " BDC_DYNPRO
    *&                  Form  BDC_FIELD
          text
         -->P_0174   text
         -->P_0175   text
    FORM BDC_FIELD  USING C D.
    clear
    it_bdcdata.
        it_bdcdata-FNAM = C.
        it_bdcdata-FVAL = D.
       APPEND it_bdcdata.
    ENDFORM.                    " BDC_FIELD
    *&                  Form  FORMAT_MESSAGE
          text
    -->  p1        text
    <--  p2        text
    FORM FORMAT_MESSAGE .
    LOOP AT IT_BDCMSGCOLL.
    CALL FUNCTION 'FORMAT_MESSAGE'
    EXPORTING
       ID              = IT_BDCMSGCOLL-MSGID
       LANG            = '-D'
       NO              = it_bdcmsgcoll-msgnr
       V1              = IT_BDCMSGCOLL-MSGV1
       V2              = IT_BDCMSGCOLL-MSGV2
       V3              = IT_BDCMSGCOLL-MSGV3
       V4              = IT_BDCMSGCOLL-MSGV4
    IMPORTING
       MSG             = MSG_DISP
    EXCEPTIONS
      NOT_FOUND       = 1
      OTHERS          = 2
    IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    WRITE:/ MSG_DISP.
    ENDLOOP.
    ENDFORM.                    " FORMAT_MESSAGE
    ******************End of the Program**********
    All the best

  • Access 2000 with VBA code doesn't work in Access 2013

    I have a database that was created in Access 2000 with lots of VBA code to pull data from SQL for reports. When I try to run a report in 2013, I get 'file not found".  When I go into debug, it appears the forms for the reports are not being found. 
    How can I fix this?

    Good Morning MariS2,
    Did you verify the change in the connection type?
    Did you check all your references which are changed for the new version of Access?
    Just takes a click to give thanks for a helpful post or answer.
    Please vote “Helpful” or Mark as “Answer” as appropriate.
    Chris Ward
    Microsoft Community Contributor 2012

  • Upload data from excel to screen

    Hi
    I have created one Table Maintanence Generator with only one screen (Table control ). Here i have to upload data from excel to table control. How to upload data from excel to table control.

    Hi,
    Use this code to get data from excel to internal table. Later put the logic in PBO of the screen to fill the table control from internal table.
    PARAMETERS: po_file TYPE rlgrap-filename DEFAULT 'E:test.xls'.
    TYPES: BEGIN OF t_final,
              empno(10) TYPE c,
              name(30) TYPE c,
              state(25) TYPE c,
           END OF t_final.
    PARAMETERS: po_file TYPE rlgrap-filename.
    DATA: i_tab    TYPE STANDARD TABLE OF alsmex_tabline,
          i_final  TYPE STANDARD TABLE OF t_final,
          wa_tab   TYPE alsmex_tabline,
          wa_final TYPE t_final.
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR po_file.
    PERFORM open_folder.
    START-OF-SELECTION.
    CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
         EXPORTING
              filename                = po_file
              i_begin_col             = 1
              i_begin_row             = 1
              i_end_col               = 3
              i_end_row               = 65256
         TABLES
              intern                  = i_tab
         EXCEPTIONS
              inconsistent_parameters = 1
              upload_ole              = 2
              OTHERS                  = 3.
    CHECK NOT i_tab[] IS INITIAL.
    LOOP AT i_tab INTO wa_tab.
      CASE wa_tab-col.
        WHEN 1.
          wa_final-empno = wa_tab-value.
        WHEN 2.
          wa_final-name = wa_tab-value.
        WHEN 3.
          wa_final-state = wa_tab-value.
      ENDCASE.
      AT END OF row.
        APPEND wa_final TO i_final.
        CLEAR wa_final.
      ENDAT.
    ENDLOOP.
    FORM open_folder .
      DATA: li_file  TYPE TABLE OF sdokpath,
            lwa_file TYPE sdokpath.
      CLEAR: p_fname, lwa_file.
      REFRESH li_file[].
      CALL FUNCTION 'TMP_GUI_FILE_OPEN_DIALOG'
           TABLES
                file_table = li_file
           EXCEPTIONS
                cntl_error = 1
                OTHERS     = 2.
      IF sy-subrc IS INITIAL.
        READ TABLE li_file INTO lwa_file INDEX 1.
        IF sy-subrc IS INITIAL.
         p_fname = lwa_file-pathname.
        ENDIF.
      ENDIF.
    ENDFORM.                    " open_folder
    Thanks,
    Vinod.
    Edited by: Vinod Reddy Vemuru on Jul 28, 2008 4:50 PM

  • Data From Excel to Oracle

    Hi, how can I do a Stored Procedure or free code to import data from Excel to Oracle Table? Tanks for all.

    I never use UTL_FILE. I use Delphi and I need to make a subrotine to import xls file to oracle. So, I prefer to do into DataBase, using database resource, but I do not oracle expertise, I have some difficulties. Tanks.

  • How to transfer data from excel files into z-tables

    Please help me with a code which transfers data from excel file to z-table.
    Thanks in advance
    Shuvir

    Hi Daniel,
    Export Data
    Purpose
    Use this procedure to export SAP data to a local file such as Microsoft Excel.
    Menu Path
    Use the following menu path to begin this process:
    ·         SystemèListèSaveèLocal File
    Helpful Hints
    When reviewing fields, R = Required,  O = Optional and C = Conditional.
    Procedure
    1.       Start the transaction using the menu path or transaction code.
          Whatever Data You Want to Export
    2.       Select SystemèListèSaveèLocal File.  This works well for any data in SAP.  This is the only option for the top-level (first page) of a report. 
    In a drill-down view within a report the Local File button  on the toolbar may be used and has the same options.
          Choose File Format
    3.       Click  .
    4.       Click  to continue.  If prompted for a format after choosing Spreadsheet, select Excel Table to get an Excel file that can be modified more easily.
          Choose File Save Location Step 1
    5.       Click  to the right of the Directory field to choose a different location.
          Choose File Save Location Step 2
    6.       Click  or browse your computer to locate the directory where you want to save your file.
    7.       Complete the following field:
    ·         File name:
        You must add the proper file extension to the name of your file (.xls for Excel, .rtf for Rich Text, .html for HTML).  The file extension tells your computer what program to open the file with.  If you do not have the file extension at the end, you may not be able to open it.
    8.       Click  to continue.
          Generate File in Location and Format Selected
    9.       Click  to create the file in the location and format selected.  In this example the file was named "example.xls" and saved on the desktop.
    Result
    You have completed the export process.
    thanks
    karthik

  • How to call RFC from Excel

    Hi all,
    Can any one give me sample VBA code to connect to SAP and call an RFC.
    I have found some code fragments in this forum, I would be grateful if someone can send me code for end-to-end processing.
    Regards,
    Hanif
    Message was edited by: Muhammad Hanif

    check out this,
    http://www.vbforums.com/showthread.php?t=337408
    Regards
    Raja

  • Disconnect all active Essbase connections using VBA code in Excel

    Hi All,
    I am currently using the below code to disconnect the active essbase connection. It works fine but it shows me a windows with the list of active essbase connections and I have to select each essbase connection and click disconnect. I want a vba code which will disconnect / kill all active connections of Essbase at one go. for e.g. I have 10 worksheets connected to different databases in Essbase. I want a code which will disconnect all 10 sheets at one go. Please expedite. Thanks for your help in advance.
    Private Sub MDisConn()
    On Error Resume Next
    EssError = EssMenuVDisconnect()
    ErrorBox
    End Sub

    Hi,
    You could use EssVDisconnect which takes a sheet name and does not open the disconnect login box.
    Declare Function EssVDisconnect Lib "ESSEXCLN.XLL" (ByVal sheetName As Variant) As Long
    Sub DisConn()
    X=EssVDisconnect("Sheet1")
    End Sub
    Cheers
    John
    http://john-goodwin.blogspot.com/

  • [Load data from excel file [1]] Error: SSIS Error Code DTS_E_CANNOTACQUIRECONNECTIONFROMCONNECTIONMANAGER. The AcquireConnection method call to the connection manager "Excel Connection Manager" failed with error code 0xC0202009. There may be error messa

    Error
    [Load data from excel file [1]] Error: SSIS Error Code DTS_E_CANNOTACQUIRECONNECTIONFROMCONNECTIONMANAGER.  The AcquireConnection method call to the connection manager "Excel Connection Manager" failed with error code 0xC0202009.  There
    may be error message
    I am using BIDS Microsoft Visual Studio 2008 and running the package to load the data from excel .
    My machine has 32 bit excel hence have set property to RUN64BITRUNTIME AS FALSE.
    But the error still occurs .
    I checked on Google and  many have used Delay validation property at Data flow task level to true but even using it at both excel connection manager and DFT level it doesnt work
    Mudassar

    Thats my connection string
    Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\SrcData\Feeds\Utilization.xlsx;Extended Properties="Excel 12.0;HDR=NO";
    Excel 2010 installed and its 32 bit edition
    Are you referring to install this component -AccessDatabaseEngine_x64.exe?
    http://www.microsoft.com/en-us/download/details.aspx?id=13255
    Mudassar
    You can try an OLEDB provider in that case
    see
    http://dataintegrity.wordpress.com/2009/10/16/xlsx/
    you might need to download and install ms access redistributable
    http://www.microsoft.com/en-in/download/details.aspx?id=13255
    Please Mark This As Answer if it helps to solve the issue Visakh ---------------------------- http://visakhm.blogspot.com/ https://www.facebook.com/VmBlogs

Maybe you are looking for