2008年9月10日 星期三

由Excel匯入資料

在寫程式時常常會有需求就是USER將檔案輸入至EXCEL
然後再將EXCEL的資料與ABAP的程式匯入後作處理
建議使用這個Function作處理

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
  FILENAME     = P_PATH
  I_BEGIN_COL = '1'
  I_BEGIN_ROW = '1'
  I_END_COL    = '18'
  I_END_ROW    = '65535'
    TABLES
  INTERN   = I_EXCEL
    EXCEPTIONS
  INCONSISTENT_PARAMETERS = 1
  UPLOAD_OLE   = 2
  OTHERS   = 3.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

沒有留言:

張貼留言