SAP下载Excel可通过OLE技术实现，但由于OLE的下载速度较慢，对于数据量大的时候影响用户体验，所以最新使用DOI技术。

DOI主要使用了接口I_OI_DOCUMENT_PROXY和I_OI_SPREADSHEET，但由于SAP封装的类方法有限，有些特殊要求无法满足，好在DOI底层其实也是使用了OLE对象，所以我们可以获取OLE对象实现SAP未封装的功能，譬如复制sheet、设置列宽等等。

DOI获取OLE对象可调用接口I_OI_DOCUMENT_PROXY的方法GET_DOCUMENT_HANDLE得到HANDLE-OBJ。然后获取HANDLE-OBJ的Application属性即为Office应用对象，获取Office应用对象的ActiveWorkbook属性即为Excel对象。

核心代码如下：

  CALL METHOD gr_document->get_document_handleIMPORTINGerror  = lr_errorhandle = lr_handle.CALL METHOD lr_error->raise_messageEXPORTINGtype = 'E'.GET PROPERTY OF lr_handle-obj 'Application' = lr_excel.GET PROPERTY OF lr_excel 'ActiveWorkbook' = lr_workbook.

示例功能：复制模板Sheet并根据需求复制对应列

*&---------------------------------------------------------------------*
*& Form frm_add_sheet
*&---------------------------------------------------------------------*
*& 增加Sheet
*&---------------------------------------------------------------------*
*& --> IV_KTEXT_COL          科室列数
*& <-- CV_NAME               Sheet名
*&---------------------------------------------------------------------*
FORM frm_add_sheet USING iv_ktext_col TYPE iCHANGING cv_name      TYPE char50.DATA: lr_error    TYPE REF TO i_oi_error,lr_handle   TYPE cntl_handle,lr_excel    TYPE ole2_object,lr_workbook TYPE ole2_object,lr_sheet    TYPE ole2_object,lr_range    TYPE ole2_object.CALL METHOD gr_document->get_document_handleIMPORTINGerror  = lr_errorhandle = lr_handle.CALL METHOD lr_error->raise_messageEXPORTINGtype = 'E'.GET PROPERTY OF lr_handle-obj 'Application' = lr_excel.GET PROPERTY OF lr_excel 'ActiveWorkbook' = lr_workbook.IF cv_name = TEXT-t02.
*   重命名汇总SheetIF g_first_day = g_last_day.cv_name = g_first_day.ELSE.cv_name = g_first_day && '-' && g_last_day.ENDIF.CALL METHOD OF lr_workbook 'Sheets' = lr_sheetEXPORTING#1 = 1.SET PROPERTY OF lr_sheet 'Name' = cv_name.ELSE.
*   复制模板SheetCALL METHOD OF lr_workbook 'Sheets' = lr_sheetEXPORTING#1 = 1.CALL METHOD OF lr_sheet 'Copy'EXPORTING#1 = lr_sheet.SET PROPERTY OF lr_sheet 'Name' = cv_name.ENDIF.CALL METHOD OF lr_sheet 'Select'.* 科室分列导出IF gv_expand IS NOT INITIAL.
*   新增科室列DO iv_ktext_col - 1 TIMES.
*     复制科室列CALL METHOD OF lr_excel 'Columns' = lr_rangeEXPORTING#1 = 6.CALL METHOD OF lr_range 'Select'.CALL METHOD OF lr_range 'Copy'.CALL METHOD OF lr_range 'Insert'.ENDDO.ENDIF.FREE lr_handle.FREE lr_excel.FREE lr_workbook.ENDFORM.