SAP ABAP 如何读取EXCEL数据到内表

作者:SAP道长


读取EXCEL数据到内表并输出

调用函数: ALSM_EXCEL_TO_INTERNAL_TABLE
  

*&---------------------------------------------------------------------*
*& Report  ZCMH0009

*&
*&---------------------------------------------------------------------*
*& 读取EXCEL 的数据 到内表
*&
*&---------------------------------------------------------------------*

REPORT  ZCMH0009.

INCLUDE OLE2INCL"定义OLE变量


DATABEGIN OF IEXCEL OCCURS 0.
        INCLUDE STRUCTURE ALSMEX_TABLINE.
DATAEND OF IEXCEL.

DATAXLS LIKE RLGRAP-FILENAME VALUE 'C:\sap_usr02.xls'.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
  EXPORTING
    FILENAME                      XLS
    I_BEGIN_COL                   1
    I_BEGIN_ROW                   1
    I_END_COL                     100 " 读取多少列
    I_END_ROW                     100 "读取多少行
  TABLES
    INTERN                        IEXCEL
  EXCEPTIONS
    INCONSISTENT_PARAMETERS       1
    UPLOAD_OLE                    2
  OTHERS                          3.

"读取后内表保存的结构为:第一行记录第一个单元的行值 列值 单元格内容 比如 0001 0001 第一个单元格内容

WRITE/.

IF sy-subrc <> 0.

  WRITE/ XLS,'读入错误!'.

ELSE.

  LOOP AT IEXCEL.

    WRITE IEXCEL-VALUE(20)"取前20个字符

    AT END OF ROW.          "每行行尾输出空行
      WRITE /.
    ENDAT.

  ENDLOOP.

ENDIF.

已标记关键词 清除标记
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页