Пример работы с функцией ALSM_EXCEL_TO_INTERNAL_TABLE, для работы программы на диске D:\ был размещен файл qwerty.xls

*&———————————————————————*
*& Report  ZART_EXCEL_TEST
*&
*&———————————————————————*
*&
*&
*&———————————————————————*

REPORT  ZART_EXCEL_TEST.
DATA data_tab TYPE STANDARD TABLE OF alsmex_tabline.
DATA wa_data_tab type  alsmex_tabline.
DATA filename TYPE rlgrap-filename.

filename = ‘D:\qwerty.xls’.

CALL FUNCTION ‘ALSM_EXCEL_TO_INTERNAL_TABLE’
EXPORTING
FILENAME                      = filename
I_BEGIN_COL                   = 1
I_BEGIN_ROW                   = 1
I_END_COL                     = 256
I_END_ROW                     = 65536
TABLES
INTERN                        = data_tab
EXCEPTIONS
INCONSISTENT_PARAMETERS       = 1
UPLOAD_OLE                    = 2
OTHERS                        = 3
.
IF SY-SUBRC <> 0.
write:/ sy-subrc.
else.
loop at data_tab into wa_data_tab.
write:/ wa_data_tab-VALUE.
endloop.

ENDIF.

   
© 2013 sap-blog.ru
Яндекс.Метрика