*&---------------------------------------------------------------------* *& Report ZIFE_TEST_EXCEL *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT zdemo_excel16. DATA: lo_excel TYPE REF TO zcl_excel, 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, column_dimension TYPE REF TO zcl_excel_worksheet_columndime. DATA: lv_file TYPE xstring, lv_bytecount TYPE i, lt_file_tab TYPE STANDARD TABLE OF solisti1. " Creates active sheet CREATE OBJECT lo_excel. "Load samle image DATA: lt_bin TYPE solix_tab, lv_len TYPE i, lv_content TYPE xstring, ls_key TYPE wwwdatatab. CALL METHOD cl_gui_frontend_services=>gui_upload EXPORTING filename = 'c:\Program Files\SAP\FrontEnd\SAPgui\wwi\graphics\W_bio.bmp' filetype = 'BIN' IMPORTING filelength = lv_len CHANGING data_tab = lt_bin EXCEPTIONS file_open_error = 1 file_read_error = 2 no_batch = 3 gui_refuse_filetransfer = 4 invalid_type = 5 no_authority = 6 unknown_error = 7 bad_data_format = 8 header_not_allowed = 9 separator_not_allowed = 10 header_too_long = 11 unknown_dp_error = 12 access_denied = 13 dp_out_of_memory = 14 disk_full = 15 dp_timeout = 16 not_supported_by_gui = 17 error_no_gui = 18 OTHERS = 19. IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. 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. " Get active sheet lo_worksheet = lo_excel->get_active_worksheet( ). lo_worksheet->title = 'Sheet1'. lo_worksheet->set_cell( ip_column = 'B' ip_row = 2 ip_value = 'Image from web repository (SMW0)' ). " create global drawing, set position and media from web repository lo_drawing = lo_excel->add_new_drawing( ). lo_drawing->set_position( ip_from_row = 3 ip_from_col = 'B' ). 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 ). " another drawing from a XSTRING read from a file lo_worksheet->set_cell( ip_column = 'B' ip_row = 8 ip_value = 'Image from a file (c:\Program Files\SAP\FrontEnd\SAPgui\wwi\graphics\W_bio.bmp)' ). lo_drawing = lo_excel->add_new_drawing( ). lo_drawing->set_position( ip_from_row = 9 ip_from_col = 'B' ). lo_drawing->set_media( ip_media = lv_content ip_media_type = 'bmp' ip_width = 83 ip_height = 160 ). lo_worksheet->add_drawing( lo_drawing ). CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007. lv_file = lo_excel_writer->write_file( lo_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. " Save the file CALL FUNCTION 'GUI_DOWNLOAD' EXPORTING bin_filesize = lv_bytecount filename = 'C:\Drawings.xlsx' filetype = 'BIN' TABLES data_tab = lt_file_tab.