ABAP2XLSX EXCEL图片签章功能，保存PDF
作者：互联网
利用开源项目ABAP2XLSX，做一个签章（放置图片），并保存PDF。
签章功能可以有很多种方法，常见的是OLE调用vba macro。优点：OLE好理解 缺点：OLE速度慢，而且图片需要下载本地电脑，不能后台，重要的是VBA调试难。
SAP将图片下载本地，调用macro，放置签章。然后删除本地文件。
Sub init()
ActiveSheet.Pictures.Insert("C:\财务章.bmp").Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 120#
Selection.ShapeRange.Width = 120#
Selection.ShapeRange.Top = Cells(23, 6).Top
Selection.ShapeRange.Left = Cells(12, 5).Left + 60
Kill ("C:\财务章.bmp")
End Sub
Sub PDF()
' 另存PDF,删除EXCEL
spatch = Excel.ThisWorkbook.Path
sname = "D:\PRINTPDF.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sname, OpenAfterPublish:=True
Kill ("C:\test.xlsx")
End Sub
上述方法使用简单，完整代码我就不写了。 但是麻烦，每次从SAP服务器下载，填充，删除。数据量大了就会卡，如果开发不细心，后台进程没杀完，EXCEL就会卡住。很不方便。
下面介绍ABAP2XLSX做电子签章
参照ZDEMO_EXCEL15和ZDEMO_EXCEL16，可以大概了解如何使用ABAP2XLSX填充数据和图片。
METHOD write_download_excel.
DATA:lt_mime_data TYPE TABLE OF w3mime,
ls_key TYPE wwwdatatab.
DATA:lv_string TYPE string,
lv_xstring TYPE xstring.
*--------------------------------------------------------------------*
* "ABAP2XLSX
DATA: lo_excel_writer TYPE REF TO zif_excel_writer,
lo_worksheet TYPE REF TO zcl_excel_worksheet,
lo_drawing TYPE REF TO zcl_excel_drawing,
lo_reader TYPE REF TO zif_excel_reader.
DATA: ex TYPE REF TO zcx_excel,
msg TYPE string,
lv_file TYPE xstring,
lv_bytecount TYPE i,
lt_file_tab TYPE solix_tab,
output_path_xlsx TYPE string,
l_dummy_rc TYPE i.
* "write list
* DATA: highest_column TYPE zexcel_cell_column,
* highest_row TYPE int4,
* column TYPE zexcel_cell_column VALUE 1,
* col_str TYPE zexcel_cell_column_alpha,
* row TYPE int4 VALUE 1,
* value TYPE zexcel_cell_value.
*--------------------------------------------------------------------*
* "picture
"Load samle image
DATA: lt_bin TYPE solix_tab,
lv_len TYPE i,
lv_content TYPE xstring.
*--------------------------------------------------------------------*
* "Upload EXCEL
*--------------------------------------------------------------------*
*--------------------------------------------------------------------*
*SMW0上传EXCEL
IF is_path-xlsx_objid IS NOT INITIAL.
output_path_xlsx = 'C:\SAP\下载文档.xlsx'.
ls_key-relid ='MI'.
ls_key-objid = is_path-xlsx_objid. " 'ZOT005'."模板ID
CALL FUNCTION 'WWWDATA_IMPORT'
EXPORTING
key = ls_key
TABLES
mime = lt_mime_data
EXCEPTIONS
wrong_object_type = 1
import_error = 2
OTHERS = 3.
SELECT SINGLE value
FROM wwwparams
WHERE relid EQ @ls_key-relid
AND objid EQ @ls_key-objid
AND name EQ 'filesize'
INTO @DATA(lv_para_value).
lv_len = lv_para_value.
ENDIF.
*--------------------------------------------------------------------*
*本地上传EXCEL
IF is_path-local_path IS NOT INITIAL.
output_path_xlsx = is_path-local_path.
CALL METHOD cl_gui_frontend_services=>gui_upload
EXPORTING
filename = is_path-local_path
filetype = 'BIN'
IMPORTING
filelength = lv_len
CHANGING
data_tab = lt_mime_data.
ENDIF.
*--------------------------------------------------------------------*
* EXCEL-> XSTRING
*--------------------------------------------------------------------*
CHECK lt_mime_data IS NOT INITIAL.
CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
EXPORTING
input_length = lv_len
* FIRST_LINE = 0
* LAST_LINE = 0
IMPORTING
buffer = lv_xstring
TABLES
binary_tab = lt_mime_data
EXCEPTIONS
failed = 1
OTHERS = 2.
*--------------------------------------------------------------------*
* "Write excel
*--------------------------------------------------------------------*
TRY.
CREATE OBJECT lo_reader TYPE zcl_excel_reader_2007.
excel = lo_reader->load( i_excel2007 = lv_xstring ).
lo_worksheet = excel->get_active_worksheet( ).
lo_worksheet->set_title( 'Sheet1' ).
* excel = app->zif_excel_reader~load( i_excel2007 = lv_xstring
** i_use_alternate_zip = VALUE #( )
** iv_zcl_excel_classname = VALUE #( )
* ).
*--------------------------------------------------------------------*
* Cell Value
LOOP AT it_value INTO DATA(ls_value).
lo_worksheet->set_cell( ip_column = ls_value-col
ip_row = CONV #( ls_value-row )
ip_value = ls_value-value ).
ENDLOOP.
*--------------------------------------------------------------------*
* Picture
*
* lo_drawing = excel->add_new_drawing( ).
* lo_drawing->set_position( ip_from_row = 3
* ip_from_col = '1' ).
* ls_key-relid = 'MI'.
* ls_key-objid = 'SAPLOGO.GIF'.
* lo_drawing->set_media_www( ip_key = ls_key
* ip_width = 166
* ip_height = 75 ).
* " assign drawing to the worksheet
* lo_worksheet->add_drawing( lo_drawing ).
LOOP AT it_pic INTO DATA(ls_pic).
IF ls_pic-wid IS INITIAL.
ls_pic-wid = 150.
ENDIF.
IF ls_pic-hei IS INITIAL.
ls_pic-hei = 150.
ENDIF.
IF ls_pic-objid IS NOT INITIAL.
" create global drawing, set position and media from web repository
lo_drawing = excel->add_new_drawing( ).
lo_drawing->set_position( ip_from_row = CONV #( ls_pic-row )
ip_from_col = CONV #( ls_pic-col ) ).
ls_key-relid = 'MI'.
ls_key-objid = ls_pic-objid. "'SAPLOGO.GIF'.
lo_drawing->set_media_www( ip_key = ls_key
ip_width = CONV #( ls_pic-wid )
ip_height = CONV #( ls_pic-hei ) ).
" assign drawing to the worksheet
lo_worksheet->add_drawing( lo_drawing ).
ENDIF.
IF ls_pic-xstring IS NOT INITIAL.
" another drawing from a XSTRING read from a file
lo_drawing = excel->add_new_drawing( ).
lo_drawing->set_position( ip_from_row = CONV #( ls_pic-row )
ip_from_col = CONV #( ls_pic-col ) ).
lo_drawing->set_media( ip_media = ls_pic-xstring
ip_media_type = zcl_excel_drawing=>c_media_type_bmp
ip_width = CONV #( ls_pic-wid )
ip_height = CONV #( ls_pic-hei ) ).
" assign drawing to the worksheet
lo_worksheet->add_drawing( lo_drawing ).
ENDIF.
ENDLOOP.
*--------------------------------------------------------------------*
*Write LIST-PROCESSING
*
* lo_worksheet = excel->get_active_worksheet( ).
* highest_column = lo_worksheet->get_highest_column( ).
* highest_row = lo_worksheet->get_highest_row( ).
*
* WHILE row <= highest_row.
* WHILE column <= highest_column.
* col_str = zcl_excel_common=>convert_column2alpha( column ).
* lo_worksheet->get_cell(
* EXPORTING
* ip_column = col_str
* ip_row = row
* IMPORTING
* ep_value = value
* ).
* WRITE: value.
* column = column + 1.
* ENDWHILE.
* WRITE: /.
* column = 1.
* row = row + 1.
* ENDWHILE.
*--------------------------------------------------------------------*
* " xstring -> binary
*--------------------------------------------------------------------*
CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007.
lv_file = lo_excel_writer->write_file( excel ).
" Convert to binary
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
EXPORTING
buffer = lv_file
IMPORTING
output_length = lv_bytecount
TABLES
binary_tab = lt_file_tab.
* " This method is only available on AS ABAP > 6.40
* lt_file_tab = cl_bcs_convert=>xstring_to_solix( iv_xstring = lv_file ).
* lv_bytecount = xstrlen( lv_file ).
*--------------------------------------------------------------------*
* " Save the file
*--------------------------------------------------------------------*
cl_gui_frontend_services=>gui_download( EXPORTING
bin_filesize = lv_bytecount
filename = output_path_xlsx
filetype = 'BIN'
CHANGING data_tab = lt_file_tab
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
not_supported_by_gui = 22
error_no_gui = 23
OTHERS = 24 ).
IF sy-subrc NE 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CATCH zcx_excel INTO ex. " Exceptions for ABAP2XLSX
msg = ex->get_text( ). WRITE: / msg.
MESSAGE msg TYPE 'E'.
ENDTRY.
*--------------------------------------------------------------------*
* " Convert to pdf and Delete xlsx file
*--------------------------------------------------------------------*
"OLE attenstion: kill windows progress
DATA: application TYPE ole2_object,
workbook TYPE ole2_object,
sheet TYPE ole2_object.
IF iv_pdf IS NOT INITIAL.
CREATE OBJECT application 'EXCEL.APPLICATION'.
CALL METHOD OF application 'WORKBOOKS' = workbook.
CALL METHOD OF workbook 'OPEN'
EXPORTING
#1 = output_path_xlsx.
CALL METHOD OF application 'WORKSHEETS' = sheet
EXPORTING
#1 = 1. "Sheet1
CALL METHOD OF sheet 'ACTIVATE'.
output_path_pdf = output_path_xlsx.
REPLACE '.xlsx' WITH '.pdf' INTO output_path_pdf.
REPLACE '.XLSX' WITH '.pdf' INTO output_path_pdf.
CALL METHOD OF sheet 'ExportAsFixedFormat'
EXPORTING
#1 = 0
#2 = output_path_pdf.
CALL METHOD OF workbook 'CLOSE'.
CALL METHOD OF application 'QUIT'.
FREE OBJECT: application,workbook,sheet.
CALL METHOD cl_gui_frontend_services=>file_exist
EXPORTING
file = output_path_pdf
RECEIVING
result = DATA(l_res)
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
wrong_parameter = 3
not_supported_by_gui = 4
OTHERS = 5.
IF sy-subrc <> 0 OR l_res = space.
MESSAGE |PDF另存失败| TYPE 'E'.
ELSE.
MESSAGE |PDF另存为{ output_path_pdf }| TYPE 'S'.
ENDIF.
CALL METHOD cl_gui_frontend_services=>file_delete
EXPORTING
filename = output_path_xlsx
CHANGING
rc = l_dummy_rc
EXCEPTIONS
file_delete_failed = 1
cntl_error = 2
error_no_gui = 3
file_not_found = 4
access_denied = 5
unknown_error = 6
not_supported_by_gui = 7
wrong_parameter = 8
OTHERS = 9.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDIF.
ENDMETHOD.
支持 SMW0,MIME,本地EXCEL，填充数据和图片。代码有个问题，就是最后一步保存PDF，我还是使用的OLE。
奈何技术有限，解决不了abap转换EXCEL2PDF,只好用OLE来解决了，如果哪位有更好的办法，欢迎留言指出。
写一个简单的上传程序，用来上传签章图片。
CALL FUNCTION 'F4_FILENAME'
EXPORTING
program_name = sy-cprog
dynpro_number = sy-dynnr
IMPORTING
file_name = mv_path.
CHECK mv_path IS NOT INITIAL.
CALL METHOD cl_gui_frontend_services=>gui_upload
EXPORTING
filename = CONV #( mv_path )
filetype = 'BIN'
IMPORTING
filelength = lv_len
CHANGING
data_tab = lt_bin.
CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
EXPORTING
input_length = lv_len
IMPORTING
buffer = lv_content
TABLES
binary_tab = lt_bin
EXCEPTIONS
failed = 1
OTHERS = 2.
MODIFY ztexcel_pic FROM @( VALUE ztexcel_pic( BASE CORRESPONDING #( ms_out ) xstring = lv_content ) ).
MESSAGE '保存成功' TYPE 'S'.
调用封装好的类，就可以一步到位填充大批量数据、填充多个图片到一个EXCEL并保存PDF
CALL METHOD zcl_excel_pdf=>write_download_excel
EXPORTING
iv_pdf = 'X'
is_path = VALUE #( local_path = CONV #( p_dest ) )
it_value = it_value
it_pic = VALUE #( ( col = 'D' row = '29' wid = '150' hei = '150' xstring = ls_ztexcel_pic-xstring ) ).
*-----------------------------------------------------------------------分隔线-------------------------------------------------------------------------------------------------------------*
因为博客不能上传文件，就把saplink 签章.nugg文本贴上来，有需要的可以自行下载
<?xml version="1.0" encoding="utf-8"?>
<nugget name="ABAP2XLSX_PDF">
<CLAS CLSNAME="ZCL_EXCEL_PDF" VERSION="1" LANGU="1" DESCRIPT="EXCEL转PDF" CATEGORY="00" EXPOSURE="2" STATE="1" RELEASE="0" CLSFINAL="X" CLSCCINCL="X" FIXPT="X" UNICODE="X" CLSBCCAT="00" WITH_UNIT_TESTS="X" DURATION_TYPE="0 " RISK_LEVEL="0 " ZSAPLINK_PLUGIN_MAJOR_VERSION="0 " ZSAPLINK_PLUGIN_MINOR_VERSION="1 " ZSAPLINK_PLUGIN_BUILD_VERSION="0 " ZSAPLINK_PLUGIN_INFO1="ZSAPLINK_CLASS is part of the main ZSAPLINK project --> This plugin found there instead of ZSAPLINK_PLUGINS projects" ZSAPLINK_PLUGIN_INFO2="SAPLINK homepage: https://www.assembla.com/spaces/saplink/wiki" ZSAPLINK_PLUGIN_INFO3="Download from https://www.assembla.com/code/saplink/subversion/nodes" ZSAPLINK_PLUGIN_INFO4="and navigate to: trunk -> core -> ZSAPLINK -> CLAS -> ZSAPLINK_CLASS.slnk">
<localImplementation>*"* use this source file for the definition and implementation of
*"* local helper classes, interface definitions and type
*"* declarations</localImplementation>
<localTypes>*"* use this source file for any type of declarations (class
*"* definitions, interfaces or type declarations) you need for
*"* components in the private section</localTypes>
<localMacros>*"* use this source file for any macro definitions you need
*"* in the implementation part of the class</localMacros>
<localTestClasses>*"* use this source file for your ABAP unit test classes</localTestClasses>
<attribute CLSNAME="ZCL_EXCEL_PDF" CMPNAME="EXCEL" VERSION="1" LANGU="1" EXPOSURE="0" STATE="1" EDITORDER="1 " ATTDECLTYP="1" ATTEXPVIRT="0" TYPTYPE="3" TYPE="ZCL_EXCEL" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
<attribute CLSNAME="ZCL_EXCEL_PDF" CMPNAME="OUTPUT_PATH_PDF" VERSION="1" LANGU="1" EXPOSURE="2" STATE="1" EDITORDER="2 " ATTDECLTYP="1" ATTEXPVIRT="0" TYPTYPE="1" TYPE="STRING" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
<method CLSNAME="ZCL_EXCEL_PDF" CMPNAME="WRITE_DOWNLOAD_EXCEL" VERSION="1" LANGU="1" EXPOSURE="2" STATE="1" EDITORDER="1 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="1" BCMTDCAT="00" BCMTDSYN="0">
<parameter CLSNAME="ZCL_EXCEL_PDF" CMPNAME="WRITE_DOWNLOAD_EXCEL" SCONAME="IS_PATH" VERSION="1" LANGU="1" DESCRIPT="路径" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="0" TYPTYPE="1" TYPE="ZSEXCEL_PATH"/>
<parameter CLSNAME="ZCL_EXCEL_PDF" CMPNAME="WRITE_DOWNLOAD_EXCEL" SCONAME="IT_VALUE" VERSION="1" LANGU="1" DESCRIPT="单元格赋值" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="0" TYPTYPE="1" TYPE="ZTT_EXCEL_VALUE" PAROPTIONL="X"/>
<parameter CLSNAME="ZCL_EXCEL_PDF" CMPNAME="WRITE_DOWNLOAD_EXCEL" SCONAME="IT_PIC" VERSION="1" LANGU="1" DESCRIPT="图片" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="0" TYPTYPE="1" TYPE="ZTT_EXCEL_PIC" PAROPTIONL="X"/>
<parameter CLSNAME="ZCL_EXCEL_PDF" CMPNAME="WRITE_DOWNLOAD_EXCEL" SCONAME="IV_PDF" VERSION="1" LANGU="1" DESCRIPT="是否转pdf" CMPTYPE="1" MTDTYPE="0" EDITORDER="4 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="0" TYPTYPE="1" TYPE="CHAR01" PAROPTIONL="X"/>
<source>METHOD write_download_excel.
DATA:lt_mime_data TYPE TABLE OF w3mime,
ls_key TYPE wwwdatatab.
DATA:lv_string TYPE string,
lv_xstring TYPE xstring.
*--------------------------------------------------------------------*
* "ABAP2XLSX
DATA: lo_excel_writer TYPE REF TO zif_excel_writer,
lo_worksheet TYPE REF TO zcl_excel_worksheet,
lo_drawing TYPE REF TO zcl_excel_drawing,
lo_reader TYPE REF TO zif_excel_reader.
DATA: ex TYPE REF TO zcx_excel,
msg TYPE string,
lv_file TYPE xstring,
lv_bytecount TYPE i,
lt_file_tab TYPE solix_tab,
output_path_xlsx TYPE string,
l_dummy_rc TYPE i.
* "write list
* DATA: highest_column TYPE zexcel_cell_column,
* highest_row TYPE int4,
* column TYPE zexcel_cell_column VALUE 1,
* col_str TYPE zexcel_cell_column_alpha,
* row TYPE int4 VALUE 1,
* value TYPE zexcel_cell_value.
*--------------------------------------------------------------------*
* "picture
"Load samle image
DATA: lt_bin TYPE solix_tab,
lv_len TYPE i,
lv_content TYPE xstring.
*--------------------------------------------------------------------*
* "Upload EXCEL
*--------------------------------------------------------------------*
*--------------------------------------------------------------------*
*SMW0上传EXCEL
IF is_path-xlsx_objid IS NOT INITIAL.
output_path_xlsx = 'C:\SAP\下载文档.xlsx'.
ls_key-relid ='MI'.
ls_key-objid = is_path-xlsx_objid. " 'ZOT005'."模板ID
CALL FUNCTION 'WWWDATA_IMPORT'
EXPORTING
key = ls_key
TABLES
mime = lt_mime_data
EXCEPTIONS
wrong_object_type = 1
import_error = 2
OTHERS = 3.
SELECT SINGLE value
FROM wwwparams
WHERE relid EQ @ls_key-relid
AND objid EQ @ls_key-objid
AND name EQ 'filesize'
INTO @DATA(lv_para_value).
lv_len = lv_para_value.
ENDIF.
*--------------------------------------------------------------------*
*本地上传EXCEL
IF is_path-local_path IS NOT INITIAL.
output_path_xlsx = is_path-local_path.
CALL METHOD cl_gui_frontend_services=>gui_upload
EXPORTING
filename = is_path-local_path
filetype = 'BIN'
IMPORTING
filelength = lv_len
CHANGING
data_tab = lt_mime_data.
ENDIF.
*--------------------------------------------------------------------*
* EXCEL-> XSTRING
*--------------------------------------------------------------------*
CHECK lt_mime_data IS NOT INITIAL.
CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
EXPORTING
input_length = lv_len
* FIRST_LINE = 0
* LAST_LINE = 0
IMPORTING
buffer = lv_xstring
TABLES
binary_tab = lt_mime_data
EXCEPTIONS
failed = 1
OTHERS = 2.
*--------------------------------------------------------------------*
* "Write excel
*--------------------------------------------------------------------*
TRY.
CREATE OBJECT lo_reader TYPE zcl_excel_reader_2007.
excel = lo_reader->load( i_excel2007 = lv_xstring ).
lo_worksheet = excel->get_active_worksheet( ).
lo_worksheet->set_title( 'Sheet1' ).
* excel = app->zif_excel_reader~load( i_excel2007 = lv_xstring
** i_use_alternate_zip = VALUE #( )
** iv_zcl_excel_classname = VALUE #( )
* ).
*--------------------------------------------------------------------*
* Cell Value
LOOP AT it_value INTO DATA(ls_value).
lo_worksheet->set_cell( ip_column = ls_value-col
ip_row = CONV #( ls_value-row )
ip_value = ls_value-value ).
ENDLOOP.
*--------------------------------------------------------------------*
* Picture
*
* lo_drawing = excel->add_new_drawing( ).
* lo_drawing->set_position( ip_from_row = 3
* ip_from_col = '1' ).
* ls_key-relid = 'MI'.
* ls_key-objid = 'SAPLOGO.GIF'.
* lo_drawing->set_media_www( ip_key = ls_key
* ip_width = 166
* ip_height = 75 ).
* " assign drawing to the worksheet
* lo_worksheet->add_drawing( lo_drawing ).
LOOP AT it_pic INTO DATA(ls_pic).
IF ls_pic-wid IS INITIAL.
ls_pic-wid = 150.
ENDIF.
IF ls_pic-hei IS INITIAL.
ls_pic-hei = 150.
ENDIF.
IF ls_pic-objid IS NOT INITIAL.
" create global drawing, set position and media from web repository
lo_drawing = excel->add_new_drawing( ).
lo_drawing->set_position( ip_from_row = CONV #( ls_pic-row )
ip_from_col = CONV #( ls_pic-col ) ).
ls_key-relid = 'MI'.
ls_key-objid = ls_pic-objid. "'SAPLOGO.GIF'.
lo_drawing->set_media_www( ip_key = ls_key
ip_width = CONV #( ls_pic-wid )
ip_height = CONV #( ls_pic-hei ) ).
" assign drawing to the worksheet
lo_worksheet->add_drawing( lo_drawing ).
ENDIF.
IF ls_pic-xstring IS NOT INITIAL.
" another drawing from a XSTRING read from a file
lo_drawing = excel->add_new_drawing( ).
lo_drawing->set_position( ip_from_row = CONV #( ls_pic-row )
ip_from_col = CONV #( ls_pic-col ) ).
lo_drawing->set_media( ip_media = ls_pic-xstring
ip_media_type = zcl_excel_drawing=>c_media_type_bmp
ip_width = CONV #( ls_pic-wid )
ip_height = CONV #( ls_pic-hei ) ).
" assign drawing to the worksheet
lo_worksheet->add_drawing( lo_drawing ).
ENDIF.
ENDLOOP.
*--------------------------------------------------------------------*
*Write LIST-PROCESSING
*
* lo_worksheet = excel->get_active_worksheet( ).
* highest_column = lo_worksheet->get_highest_column( ).
* highest_row = lo_worksheet->get_highest_row( ).
*
* WHILE row <= highest_row.
* WHILE column <= highest_column.
* col_str = zcl_excel_common=>convert_column2alpha( column ).
* lo_worksheet->get_cell(
* EXPORTING
* ip_column = col_str
* ip_row = row
* IMPORTING
* ep_value = value
* ).
* WRITE: value.
* column = column + 1.
* ENDWHILE.
* WRITE: /.
* column = 1.
* row = row + 1.
* ENDWHILE.
*--------------------------------------------------------------------*
* " xstring -> binary
*--------------------------------------------------------------------*
CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007.
lv_file = lo_excel_writer->write_file( excel ).
" Convert to binary
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
EXPORTING
buffer = lv_file
IMPORTING
output_length = lv_bytecount
TABLES
binary_tab = lt_file_tab.
* " This method is only available on AS ABAP > 6.40
* lt_file_tab = cl_bcs_convert=>xstring_to_solix( iv_xstring = lv_file ).
* lv_bytecount = xstrlen( lv_file ).
*--------------------------------------------------------------------*
* " Save the file
*--------------------------------------------------------------------*
cl_gui_frontend_services=>gui_download( EXPORTING
bin_filesize = lv_bytecount
filename = output_path_xlsx
filetype = 'BIN'
CHANGING data_tab = lt_file_tab
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
not_supported_by_gui = 22
error_no_gui = 23
OTHERS = 24 ).
IF sy-subrc NE 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CATCH zcx_excel INTO ex. " Exceptions for ABAP2XLSX
msg = ex->get_text( ). WRITE: / msg.
MESSAGE msg TYPE 'E'.
ENDTRY.
*--------------------------------------------------------------------*
* " Convert to pdf and Delete xlsx file
*--------------------------------------------------------------------*
"OLE attenstion: kill windows progress
DATA: application TYPE ole2_object,
workbook TYPE ole2_object,
sheet TYPE ole2_object.
IF iv_pdf IS NOT INITIAL.
CREATE OBJECT application 'EXCEL.APPLICATION'.
CALL METHOD OF application 'WORKBOOKS' = workbook.
CALL METHOD OF workbook 'OPEN'
EXPORTING
#1 = output_path_xlsx.
CALL METHOD OF application 'WORKSHEETS' = sheet
EXPORTING
#1 = 1. "Sheet1
CALL METHOD OF sheet 'ACTIVATE'.
output_path_pdf = output_path_xlsx.
REPLACE '.xlsx' WITH '.pdf' INTO output_path_pdf.
REPLACE '.XLSX' WITH '.pdf' INTO output_path_pdf.
CALL METHOD OF sheet 'ExportAsFixedFormat'
EXPORTING
#1 = 0
#2 = output_path_pdf.
CALL METHOD OF workbook 'CLOSE'.
CALL METHOD OF application 'QUIT'.
FREE OBJECT: application,workbook,sheet.
CALL METHOD cl_gui_frontend_services=>file_exist
EXPORTING
file = output_path_pdf
RECEIVING
result = DATA(l_res)
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
wrong_parameter = 3
not_supported_by_gui = 4
OTHERS = 5.
IF sy-subrc <> 0 OR l_res = space.
MESSAGE |PDF另存失败| TYPE 'E'.
ELSE.
MESSAGE |PDF另存为{ output_path_pdf }| TYPE 'S'.
ENDIF.
CALL METHOD cl_gui_frontend_services=>file_delete
EXPORTING
filename = output_path_xlsx
CHANGING
rc = l_dummy_rc
EXCEPTIONS
file_delete_failed = 1
cntl_error = 2
error_no_gui = 3
file_not_found = 4
access_denied = 5
unknown_error = 6
not_supported_by_gui = 7
wrong_parameter = 8
OTHERS = 9.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDIF.
ENDMETHOD.</source>
</method>
</CLAS>
<TABL TABNAME="ZSEXCEL_PATH" DDLANGUAGE="1" TABCLASS="INTTAB" DATMIN="0000000000" DATMAX="0000000000" DATAVG="0000000000" DDTEXT="路径" AUTHCLASS="00" PROZPUFF="000" EXCLASS="0">
<dd09l AS4VERS="0000" SCHFELDANZ="000"/>
<dd03p TABNAME="ZSEXCEL_PATH" FIELDNAME="XLSX_OBJID" DDLANGUAGE="1" POSITION="0001" ROLLNAME="W3OBJID" ADMINFIELD="0" INTTYPE="C" INTLEN="000080" DOMNAME="SYCHAR40" ROUTPUTLEN="000000" HEADLEN="00" SCRLEN1="10" SCRLEN2="10" SCRLEN3="00" DTELMASTER="D" DATATYPE="CHAR" LENG="000040" OUTPUTLEN="000040" DECIMALS="000000" MASK=" CHARE" MASKLEN="0000" DDTEXT="SAP WWW 网关对象名" SCRTEXT_S="对象名称" SCRTEXT_M="对象名称" DOMNAME3L="SYCHAR40" DEPTH="00" COMPTYPE="E" EXCLASS="0" DBPOSITION="0000" OUTPUTSTYLE="00" STRORLOCPOS="00"/>
<dd03p TABNAME="ZSEXCEL_PATH" FIELDNAME="LOCAL_PATH" DDLANGUAGE="1" POSITION="0002" ADMINFIELD="0" INTTYPE="g" INTLEN="000008" ROUTPUTLEN="000000" HEADLEN="00" SCRLEN1="00" SCRLEN2="00" SCRLEN3="00" DATATYPE="STRG" LENG="000000" OUTPUTLEN="000000" DECIMALS="000000" MASK=" STRG" MASKLEN="0000" DEPTH="00" EXCLASS="0" DBPOSITION="0000" OUTPUTSTYLE="00" STRORLOCPOS="00"/>
</TABL>
<TABL TABNAME="ZSEXCEL_VALUE" DDLANGUAGE="1" TABCLASS="INTTAB" DATMIN="0000000000" DATMAX="0000000000" DATAVG="0000000000" DDTEXT="structure" AUTHCLASS="00" PROZPUFF="000" EXCLASS="0">
<dd09l AS4VERS="0000" SCHFELDANZ="000"/>
<dd03p TABNAME="ZSEXCEL_VALUE" FIELDNAME="ROW" DDLANGUAGE="1" POSITION="0001" ROLLNAME="CHAR4" ADMINFIELD="0" INTTYPE="C" INTLEN="000008" DOMNAME="CHAR4" ROUTPUTLEN="000000" HEADLEN="00" SCRLEN1="00" SCRLEN2="00" SCRLEN3="00" DTELMASTER="D" DATATYPE="CHAR" LENG="000004" OUTPUTLEN="000004" DECIMALS="000000" MASK=" CHARE" MASKLEN="0000" DDTEXT="未定义范围（可用于补丁级别）" DOMNAME3L="CHAR4" DEPTH="00" COMPTYPE="E" EXCLASS="0" DBPOSITION="0000" OUTPUTSTYLE="00" STRORLOCPOS="00"/>
<dd03p TABNAME="ZSEXCEL_VALUE" FIELDNAME="COL" DDLANGUAGE="1" POSITION="0002" ROLLNAME="CHAR4" ADMINFIELD="0" INTTYPE="C" INTLEN="000008" DOMNAME="CHAR4" ROUTPUTLEN="000000" HEADLEN="00" SCRLEN1="00" SCRLEN2="00" SCRLEN3="00" DTELMASTER="D" DATATYPE="CHAR" LENG="000004" OUTPUTLEN="000004" DECIMALS="000000" MASK=" CHARE" MASKLEN="0000" DDTEXT="未定义范围（可用于补丁级别）" DOMNAME3L="CHAR4" DEPTH="00" COMPTYPE="E" EXCLASS="0" DBPOSITION="0000" OUTPUTSTYLE="00" STRORLOCPOS="00"/>
<dd03p TABNAME="ZSEXCEL_VALUE" FIELDNAME="VALUE" DDLANGUAGE="1" POSITION="0003" ROLLNAME="CHAR50" ADMINFIELD="0" INTTYPE="C" INTLEN="000100" DOMNAME="TEXT50" ROUTPUTLEN="000000" HEADLEN="00" SCRLEN1="00" SCRLEN2="00" SCRLEN3="00" DTELMASTER="E" DATATYPE="CHAR" LENG="000050" OUTPUTLEN="000050" DECIMALS="000000" LOWERCASE="X" MASK=" CHARE" MASKLEN="0000" DDTEXT="注释" REPTEXT="c" SCRTEXT_S="c" SCRTEXT_M="c" SCRTEXT_L="c" DOMNAME3L="TEXT50" DEPTH="00" COMPTYPE="E" EXCLASS="0" DBPOSITION="0000" OUTPUTSTYLE="00" STRORLOCPOS="00"/>
</TABL>
<TABL TABNAME="ZSEXCEL_PIC" DDLANGUAGE="1" TABCLASS="INTTAB" DATMIN="0000000000" DATMAX="0000000000" DATAVG="0000000000" DDTEXT="structure" AUTHCLASS="00" PROZPUFF="000" EXCLASS="0">
<dd09l AS4VERS="0000" SCHFELDANZ="000"/>
<dd03p TABNAME="ZSEXCEL_PIC" FIELDNAME="ROW" DDLANGUAGE="1" POSITION="0001" ROLLNAME="CHAR4" ADMINFIELD="0" INTTYPE="C" INTLEN="000008" DOMNAME="CHAR4" ROUTPUTLEN="000000" HEADLEN="00" SCRLEN1="00" SCRLEN2="00" SCRLEN3="00" DTELMASTER="D" DATATYPE="CHAR" LENG="000004" OUTPUTLEN="000004" DECIMALS="000000" MASK=" CHARE" MASKLEN="0000" DDTEXT="未定义范围（可用于补丁级别）" DOMNAME3L="CHAR4" DEPTH="00" COMPTYPE="E" EXCLASS="0" DBPOSITION="0000" OUTPUTSTYLE="00" STRORLOCPOS="00"/>
<dd03p TABNAME="ZSEXCEL_PIC" FIELDNAME="COL" DDLANGUAGE="1" POSITION="0002" ROLLNAME="CHAR4" ADMINFIELD="0" INTTYPE="C" INTLEN="000008" DOMNAME="CHAR4" ROUTPUTLEN="000000" HEADLEN="00" SCRLEN1="00" SCRLEN2="00" SCRLEN3="00" DTELMASTER="D" DATATYPE="CHAR" LENG="000004" OUTPUTLEN="000004" DECIMALS="000000" MASK=" CHARE" MASKLEN="0000" DDTEXT="未定义范围（可用于补丁级别）" DOMNAME3L="CHAR4" DEPTH="00" COMPTYPE="E" EXCLASS="0" DBPOSITION="0000" OUTPUTSTYLE="00" STRORLOCPOS="00"/>
<dd03p TABNAME="ZSEXCEL_PIC" FIELDNAME="WID" DDLANGUAGE="1" POSITION="0003" ROLLNAME="CHAR4" ADMINFIELD="0" INTTYPE="C" INTLEN="000008" DOMNAME="CHAR4" ROUTPUTLEN="000000" HEADLEN="00" SCRLEN1="00" SCRLEN2="00" SCRLEN3="00" DTELMASTER="D" DATATYPE="CHAR" LENG="000004" OUTPUTLEN="000004" DECIMALS="000000" MASK=" CHARE" MASKLEN="0000" DDTEXT="未定义范围（可用于补丁级别）" DOMNAME3L="CHAR4" DEPTH="00" COMPTYPE="E" EXCLASS="0" DBPOSITION="0000" OUTPUTSTYLE="00" STRORLOCPOS="00"/>
<dd03p TABNAME="ZSEXCEL_PIC" FIELDNAME="HEI" DDLANGUAGE="1" POSITION="0004" ROLLNAME="CHAR4" ADMINFIELD="0" INTTYPE="C" INTLEN="000008" DOMNAME="CHAR4" ROUTPUTLEN="000000" HEADLEN="00" SCRLEN1="00" SCRLEN2="00" SCRLEN3="00" DTELMASTER="D" DATATYPE="CHAR" LENG="000004" OUTPUTLEN="000004" DECIMALS="000000" MASK=" CHARE" MASKLEN="0000" DDTEXT="未定义范围（可用于补丁级别）" DOMNAME3L="CHAR4" DEPTH="00" COMPTYPE="E" EXCLASS="0" DBPOSITION="0000" OUTPUTSTYLE="00" STRORLOCPOS="00"/>
<dd03p TABNAME="ZSEXCEL_PIC" FIELDNAME="OBJID" DDLANGUAGE="1" POSITION="0005" ROLLNAME="W3OBJID" ADMINFIELD="0" INTTYPE="C" INTLEN="000080" DOMNAME="SYCHAR40" ROUTPUTLEN="000000" HEADLEN="00" SCRLEN1="10" SCRLEN2="10" SCRLEN3="00" DTELMASTER="D" DATATYPE="CHAR" LENG="000040" OUTPUTLEN="000040" DECIMALS="000000" MASK=" CHARE" MASKLEN="0000" DDTEXT="SAP WWW 网关对象名" SCRTEXT_S="对象名称" SCRTEXT_M="对象名称" DOMNAME3L="SYCHAR40" DEPTH="00" COMPTYPE="E" EXCLASS="0" DBPOSITION="0000" OUTPUTSTYLE="00" STRORLOCPOS="00"/>
<dd03p TABNAME="ZSEXCEL_PIC" FIELDNAME="XSTRING" DDLANGUAGE="1" POSITION="0006" ROLLNAME="DPR_TV_EDMS_CONTENT" ADMINFIELD="0" INTTYPE="y" INTLEN="000008" ROUTPUTLEN="000000" HEADLEN="32" SCRLEN1="10" SCRLEN2="15" SCRLEN3="20" DTELMASTER="E" DATATYPE="RSTR" LENG="000000" OUTPUTLEN="000000" DECIMALS="000000" MASK=" RSTRE" MASKLEN="0000" DDTEXT="文件内容" REPTEXT="内容" SCRTEXT_S="内容" SCRTEXT_M="内容" SCRTEXT_L="内容" DEPTH="00" COMPTYPE="E" EXCLASS="0" DBPOSITION="0000" OUTPUTSTYLE="00" STRORLOCPOS="00"/>
</TABL>
<TTYP TYPENAME="ZTT_EXCEL_VALUE" DDLANGUAGE="1" ROWTYPE="ZSEXCEL_VALUE" ROWKIND="S" DATATYPE="STRU" LENG="000000" DECIMALS="000000" ACCESSMODE="T" KEYDEF="D" KEYKIND="N" KEYFDCOUNT="0000" DDTEXT="tt_value" TYPELEN="000116" CTLENG="000000" CTDECIMALS="000000" OCCURS="00000"/>
<TTYP TYPENAME="ZTT_EXCEL_PIC" DDLANGUAGE="1" ROWTYPE="ZSEXCEL_PIC" ROWKIND="S" DATATYPE="STRU" LENG="000000" DECIMALS="000000" ACCESSMODE="T" KEYDEF="D" KEYKIND="N" KEYFDCOUNT="0000" DDTEXT="图片" TYPELEN="000120" CTLENG="000000" CTDECIMALS="000000" OCCURS="00000"/>
</nugget>
标签：TYPE,lo,excel,EXCEL,ls,PDF,ABAP2XLSX,drawing,apos 来源： https://www.cnblogs.com/yangliu11223/p/15727594.html