Uploading data in exel sheet

Question

hi,
how to upload data from excel sheet to sap using call tranaction or session input or lsmw ?

Answer 1

Hi ,
In LSMW it is not possible to upload the data in Excel format, you need to save the excel sheet data as a tab delimeted file and then upload the data using LSMW.
For BDC or Call transaction you can upload the Excel file by using the function module ''ALSM_EXCEL_TO_INTERNAL_TABLE''.
See the foloowing sample code:
UPLOAD OF EXCEL FILE:
REPORT  ZRAJESH..
TYPE-POOLS : slis.
DATA : BEGIN OF it_fin OCCURS 1,
        f1(20),
        f2(30),
        f3(20),
        f4 TYPE i,
       END OF it_fin.
DATA : intern1 TYPE TABLE OF alsmex_tabline WITH HEADER LINE.
REFRESH it_fin[].CLEAR it_fin.
CLEAR intern1.
PARAMETERS fl_name TYPE rlgrap-filename.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR fl_name.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
   EXPORTING
  PROGRAM_NAME        = SYST-REPID
  DYNPRO_NUMBER       = SYST-DYNNR
  FIELD_NAME          = ' '
     static              = 'X'
  MASK                = ' '
    CHANGING
      file_name           = fl_name
EXCEPTIONS
  MASK_TOO_LONG       = 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.
START-OF-SELECTION.
  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename                = fl_name
      i_begin_col             = '1'
      i_begin_row             = '1'
      i_end_col               = '4'
      i_end_row               = '35'
    TABLES
      intern                  = intern1
    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.
  CLEAR fl_name.
  FIELD-SYMBOLS : <fs1> TYPE ANY,
                  <fs2> TYPE ANY.
  data: v_col(3) type n ,
        v_col2(3) type n value '003'.
  LOOP AT intern1.
    v_col = intern1-col.
    ASSIGN component v_col2 of structure intern1 TO <fs1>.
    ASSIGN component v_col  of structure it_fin TO <fs2>.
    <fs2> = <fs1>.
   CASE INTERN1-COL.
     WHEN '001'.
       IT_FIN-F1 = INTERN1-VALUE.
     WHEN '002'.
       IT_FIN-F2 = INTERN1-VALUE.
     WHEN '003'.
       IT_FIN-F3 = INTERN1-VALUE.
     WHEN '004'.
       IT_FIN-F4 = INTERN1-VALUE.
   ENDCASE.
    AT END OF row.
      APPEND it_fin.
      CLEAR: it_fin,v_col.
    ENDAT.
  ENDLOOP.
  DATA : v_prgname TYPE sy-repid VALUE sy-repid,
         it_fldcat TYPE slis_fieldcat_alv OCCURS 1,
         wa_fldcat TYPE slis_fieldcat_alv,
         it_sort TYPE slis_sortinfo_alv OCCURS 1,
         wa_sort TYPE slis_sortinfo_alv.
  wa_fldcat-fieldname = 'F1'.
  wa_fldcat-col_pos   = 1.
  wa_fldcat-tabname  = 'IT_FIN'.
  wa_fldcat-seltext_m = 'VENDOR NO'.
  APPEND wa_fldcat TO it_fldcat.
  CLEAR wa_fldcat.
  wa_fldcat-fieldname = 'F2'.
  wa_fldcat-col_pos   = 2.
  wa_fldcat-tabname  = 'IT_FIN'.
  wa_fldcat-seltext_m = 'VENDOR NAME'.
  APPEND wa_fldcat TO it_fldcat.
  CLEAR wa_fldcat.
  wa_fldcat-fieldname = 'F3'.
  wa_fldcat-col_pos   = 3.
  wa_fldcat-tabname  = 'IT_FIN'.
  wa_fldcat-seltext_m = 'VENDOR CITY'.
  APPEND wa_fldcat TO it_fldcat.
  CLEAR wa_fldcat.
  wa_fldcat-fieldname = 'F4'.
  wa_fldcat-col_pos   = 4.
  wa_fldcat-tabname  = 'IT_FIN'.
  wa_fldcat-seltext_m = 'AMOUNT'.
*wa_fldcat-do_sum = 'X'.
  APPEND wa_fldcat TO it_fldcat.
  CLEAR wa_fldcat.
*wa_sort-fieldname = 'F3'.
*wa_sort-tabname = 'IT_FIN'.
*wa_sort-up = 'X'.
*wa_sort-subtot = 'X'.
*append wa_sort to it_sort.
*clear wa_sort.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
  I_INTERFACE_CHECK                 = ' '
  I_BYPASSING_BUFFER                = ' '
  I_BUFFER_ACTIVE                   = ' '
     i_callback_program                =  v_prgname
  I_CALLBACK_PF_STATUS_SET          = ' '
  I_CALLBACK_USER_COMMAND           = ' '
  I_CALLBACK_TOP_OF_PAGE            = ' '
  I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
  I_CALLBACK_HTML_END_OF_LIST       = ' '
  I_STRUCTURE_NAME                  =
  I_BACKGROUND_ID                   = ' '
  I_GRID_TITLE                      =
  I_GRID_SETTINGS                   =
  IS_LAYOUT                         =
     it_fieldcat                       = it_fldcat[]
  IT_EXCLUDING                      =
  IT_SPECIAL_GROUPS                 =
    it_sort                           =  it_sort[]
  IT_FILTER                         =
  IS_SEL_HIDE                       =
  I_DEFAULT                         = 'X'
  I_SAVE                            = ' '
  IS_VARIANT                        =
  IT_EVENTS                         =
  IT_EVENT_EXIT                     =
  IS_PRINT                          =
  IS_REPREP_ID                      =
  I_SCREEN_START_COLUMN             = 0
  I_SCREEN_START_LINE               = 0
  I_SCREEN_END_COLUMN               = 0
  I_SCREEN_END_LINE                 = 0
  I_HTML_HEIGHT_TOP                 = 0
  I_HTML_HEIGHT_END                 = 0
  IT_ALV_GRAPHICS                   =
  IT_HYPERLINK                      =
  IT_ADD_FIELDCAT                   =
  IT_EXCEPT_QINFO                   =
  IR_SALV_FULLSCREEN_ADAPTER        =
IMPORTING
  E_EXIT_CAUSED_BY_CALLER           =
  ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = it_fin
   EXCEPTIONS
     program_error                     = 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.