SAP ABAP 如何讀取EXCEL數據到內表

作者：SAP道長

讀取EXCEL數據到內表並輸出

調用函數： ALSM_EXCEL_TO_INTERNAL_TABLE
  

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

*&
*&---------------------------------------------------------------------*
*& 讀取EXCEL 的數據 到內表
*&
*&---------------------------------------------------------------------*

REPORT  ZCMH0009.

INCLUDE OLE2INCL. "定義OLE變量


DATA: BEGIN OF IEXCEL OCCURS 0.
        INCLUDE STRUCTURE ALSMEX_TABLINE.
DATA: END OF IEXCEL.

DATA: XLS 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.