abap读取服务器文件到内表,ABAP实例：如何读取Excel文件到内表

文本Tag：

ABAP

【IT168 技术文章】

1 定义内表data: gt_data type alsmex_tabline occurs0with header line.

2 定义文件参数parameters:

p_file like rlgrap-filename.

3定义文件帮助at selection-screen on value-requestforp_file.

perform select_file.

form select_file .

call function'WS_FILENAME_GET'exporting

mask=',Excel Files,*.xls,All Files,*.*.'(101)

title='选择文件'(100)

importing

filename=p_file

exceptions

inv_winsys=1no_batch=2selection_cancel=3selection_error=4others=5.ifsy-subrc<>0and sy-subrc<>3.

message e100(zdev) with'选择文件出错！'(007).

endif.

endform.

4 读取EXCEL 文件到内表"SELECT_FILEcall function'ALSM_EXCEL_TO_INTERNAL_TABLE'*倒入EXCEL数据到内表

exporting

filename=p_file

i_begin_col='1'i_begin_row='1'i_end_col='4'i_end_row='5000'tables

intern=gt_data.

sort gt_data by row col value.

5 数据转换loop at gt_data.ifg_row<>gt_data-row and sy-tabix>1.

append gt_zfi025.

clear gt_zfi025.

endif.

gt_zfi025-mandt=sy-mandt.casegt_data-col.

when1.  gt_zfi025-bukrs=gt_data-value.

when2.  gt_zfi025-bzirk=gt_data-value.

when3.  gt_zfi025-vkbur=gt_data-value.

when4.  gt_zfi025-money=gt_data-value.

endcase.

g_row=gt_data-row.

clear gt_data.

endloop.