本文格式為Word版，下載可任意編輯——ABAP讀取EXCEL數(shù)據(jù)到內(nèi)表*&*

*&ReportYABAP_SRM22*&

*&**&*&

*&*

從excel讀取到內(nèi)表再顯示REPORTYABAP_SRM22.

DATA:BEGINOFIEXCELOCCURS0.

INCLUDESTRUCTUREALSMEX_TABLINE.DATA:ENDOFIEXCEL.

PARAMETERS:FN1LIKERLGRAP-FILENAMEMEMORYIDM01.

\CALLFUNCTION'ALSM_EXCEL_TO_INTERNAL_TABLE'EXPORTING

filename=FN1i_begin_col=1i_begin_row=1i_end_col=100i_end_row=100tables

intern=IEXCELEXCEPTIONS

INCONSISTENT_PARAMETERS=1UPLOAD_OLE=2OTHERS=3.IFsy-subrc0.

WRITE:/'讀入文件錯誤！',FN1.

*MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO*WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ELSE.

LOOPATIEXCEL.

WRITEIEXCEL-VALUE(20).ATENDOFROW.WRITE:/.ENDAT.ENDLOOP.

ENDIF.

*&*

*&ReportYABAP_SRM23*&

*&**&*&

*&*

直接從excel讀取

REPORTYABAP_SRM23.

DATA:EXCELTYPEOLE2_OBJECT,SHEETTYPEOLE2_OBJECT,CELLTYPEOLE2_OBJECT,WORKBOOKTYPEOLE2_OBJECT.

DATA:VAL1(30)TYPEC.DATA:R1TYPEI,R2TYPEI.

*輸入文件名參數(shù)

PARAMETERS:FN1LIKERLGRAP-FILENAMEMEMORYIDM01.

*啟動excel

CREATEOBJECTEXCEL'EXCEL.APPLICATION'.\創(chuàng)建excel對象*

CALLMETHODOFEXCEL'WORKBOOKS'=WORKBOOK.\調(diào)用excel的方法IFSY-SUBRCNE0.

WRITE:/'EXCEL錯誤!'.LEAVEPROGRAM.ENDIF.

*使excel可視

SETPROPERTYOFEXCEL'VISIBLE'=1.

*EXCEL文件打開

CALLMETHODOFWORKBOOK'OPEN'EXPORTING#1=FN1.

IFSY-SUBRCNE0.WRITE:/'處理錯誤！'.LEAVEPROGRAM.ENDIF.

*第一頁

CALLMETHODOFEXCEL'WORKSHEETS'=SHEETEXPORTING#1=1.*讀取前10行10列DO10TIMES.

WRITE:/'行：',SY-INDEX.R1=SY-INDEX.DO10TIMES.R2=SY-INDEX.

*指定單元格，并讀取值屬性

CALLMETHODOFEXCEL'CELLS'=CELLEXPORTING#1=R1#2=R2.GETPROPERTYOFCELL'VALUE'=VAL1.\讀取excel文件中的內(nèi)容是用getpropertyofexcel

\如果是寫入excel文件則用setpropertyofexcel

WRITE:VAL1.ENDDO.ENDDO.

*&*

*&ReportYABAP_SRM24*&

*&**&*&

*&*

將數(shù)據(jù)傳送到excel并保存REPORTYABAP_SRM24.INCLUDEOLE2INCL.

*定義OLE變量

DATA:EXCELTYPEOLE2_OBJECT,SHEETTYPEOLE2_OBJECT,CELLTYPEOLE2_OBJECT,WORKBOOKTYPEOLE2_OBJECT.

DATA:VAL1(30)TYPEC.DATA:R1TYPEI,R2TYPEI.

*輸入文件名參數(shù)

PARAMETERS:FN1LIKERLGRAP-FILENAMEMEMORYIDM01.

*啟動excel

CREATEOBJECTEXCEL'EXCEL.APPLICATION'.

IFSY-SUBRCNE0.WRITE:/''.STOP.ENDIF.

CALLMETHODOFEXCEL'WORKBOOKS'=WORKBOOK.*使excel可視

SETPROPERTYOFEXCEL'VISIBLE'=1.

*建立worksheet

SETPROPERTYOFEXCEL'SHEETSINNEWWORKBOOK'=1.\如果是讀取excel文件中的內(nèi)容則是直接打開工作簿第一頁

CALLMETHODOFWORKBOOK'ADD'.\例如：CALLMETHODOFEXCEL'WORKSHEETS'=SHEETEXPORTING#1=1.*寫前10行10列DO10TIMES.R1=SY-INDEX.VAL1+1(4)='行：'.VAL1+6(4)=R1.DO10TIMES.R2=SY-INDEX.VAL1+15(4)='列：'.VAL1+19(4)=R2.*指定單元格，并寫入值

CALLMETHODOFEXCEL'CELLS'=CELLEXPORTING#1=R1#2=R2.SETPROPERTYOFCELL'VALUE'=VAL1.ENDDO.ENDDO.

*存入文件

GETPROPERTYOFEXCEL'ACTIVESHEET'=SHEET.\激活工作簿GETPROPERTYOFEXCEL'ACTIVEWORKBOOK'=WORKBOOK.\激活工作區(qū)CALLMETHODOFWORKBOOK'SAVEAS'EXPORTING#1=FN1#2=1.excel文件保存為FN1路徑

CALLMETHODOFWORKBOOK'CLOSE'.\關(guān)閉工作區(qū)CALLM