当我们需要导入多个excel或者其他数据时,因为数据量比较大,所以分成多个excel导入。
在不需要人工每次执行导入程序,可以自动批量导入多个excel.
通过读取文件夹下的所有excel名字进行批量处理。
读取到文件的路径以后通过excel批导进行。
REPORT cc.
DATA g_path TYPE string.
CALL METHOD cl_gui_frontend_services=>directory_browse
EXPORTING
window_title = 'file directory'
initial_folder = 'c \'
CHANGING
selected_folder = g_path.
CALL METHOD cl_gui_cfw=>flush.
CONCATENATE g_path ' ' INTO DATA(p_wqj).
DATA tab_g_filetab TYPE STANDARD TABLE OF file_info WITH HEADER LINE.
DATA g_filter TYPE string VALUE '*.xlsx*'.
DATA g_count TYPE i.
CLEAR:tab_g_filetab,tab_g_filetab[].
CALL METHOD cl_gui_frontend_services=>directory_list_files
EXPORTING
directory = g_path
filter = g_filter
CHANGING
file_table = tab_g_filetab[]
count = g_count
EXCEPTIONS
cntl_error = 1
directory_list_files_failed = 2
wrong_parameter = 3
error_no_gui = 4
not_supported_by_gui = 5
OTHERS = 6.
DATA path_lj TYPE string. "文件路径
LOOP AT tab_g_filetab INTO DATA(ls_data).
path_lj = g_path && '\' && ls_data-filename.
WRITE ls_data-filename.
WRITE path_lj.
ENDLOOP.
结果展示: