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
static = 'X'
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>.
*
*
*
*
*
*
*
*
*
*
*
*
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.
Bluesky
