Chinaunix首页 | 论坛 | 博客
  • 博客访问: 358754
  • 博文数量: 199
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 1891
  • 用 户 组: 普通用户
  • 注册时间: 2020-05-14 13:25
个人简介

代码5S

文章分类

全部博文(199)

文章存档

2021年(5)

2020年(194)

我的朋友

分类: 其他平台

2020-09-30 10:10:22


点击(此处)折叠或打开

  1. form data_upload.
  2.   data: ls_excel type zalsmex_tabline,
  3.         lt_excel type table of zalsmex_tabline.

  4.   data: lv_idx like sy-tabix.
  5.   field-symbols: <lv_value> type any.

  6.   if p_path is initial.
  7.     message s000(z1) with '请输入上传文件名!' display like 'E'.
  8.     leave list-processing.
  9.   endif.

  10.   call function 'ZALSM_EXCEL_TO_INTERNAL_TABLE2'
  11.     exporting
  12.       filename = p_path
  13.       i_begin_col = 1
  14.       i_begin_row = 2
  15.       i_end_col = 10
  16.       i_end_row = 65536
  17.     tables
  18.       intern = lt_excel
  19.     exceptions
  20.       inconsistent_parameters = 1
  21.       upload_ole = 2
  22.       others = 3.
  23.   if sy-subrc <> 0.
  24.     message id sy-msgid type sy-msgty number sy-msgno
  25.             with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  26.   endif.

  27.   sort lt_excel by row col.

  28.   loop at lt_excel into ls_excel.
  29.     lv_idx = ls_excel-col.

  30.     assign component lv_idx of structure gs_itab to <lv_value>.

  31.     <lv_value> = ls_excel-value.

  32.     at end of row.
  33.       append gs_itab to gt_itab.
  34.       clear gs_itab.
  35.     endat.
  36.   endloop.
  37. endform.

阅读(1029) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~