ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 如何读取EXCEL文件到内表

如何读取EXCEL文件到内表

原创 Linux操作系统 作者:lorikyo 时间:2019-07-11 10:18:07 0 删除 编辑

1 定义内表
data: gt_data type alsmex_tabline occurs 0 with header line.

2 定义文件参数
parameters:
  p_file like rlgrap-filename. 

3定义文件帮助
at selection-screen on value-request for p_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       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      others           = 5.
  if sy-subrc <> 0 and sy-subrc <> 3.
    message e100(zdev) with '选择文件出错!'(007).
  endif.
endform.          

4 读取EXCEL 文件到内表         
" SELECT_FILE  

call 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.
    if g_row <> gt_data-row and sy-tabix > 1 .
      append gt_zfi025.
      clear gt_zfi025.
    endif.
    gt_zfi025-mandt = sy-mandt.
    case gt_data-col.
      when 1.  gt_zfi025-bukrs = gt_data-value.
      when 2.  gt_zfi025-bzirk = gt_data-value.
      when 3.  gt_zfi025-vkbur = gt_data-value.
      when 4.  gt_zfi025-money = gt_data-value.
    endcase.
    g_row = gt_data-row.
    clear gt_data.
  endloop.


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/92530/viewspace-154873/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2004-07-18

  • 博文量
    211
  • 访问量
    155941