Skip to Content
Technical Articles

Formatted excel using XML

In every business, it is necessary to convey data within or outside of SAP. When we think about exporting data from SAP to a non-SAP system, the very first option that comes in mind is excel. Because, it is a fast and easy way but the only drawback is, it gives plain text without color, alignment, and style. So in this blog post, you are going to learn, how to generate a formatted excel file.

Steps 1:

Create your own excel file in Microsoft-Excel and write content as per your requirement. Like, heading, columns, row data, footer and apply alignment, color, formula and so on.

Note: I have used all dummy data based on materials and plants. so you can understand how it works and you can refer or enhance it as per your requirement. This example does not follow any business process.

(Screenshot – 1)

Note: Keep less row-data so after converting this file to .XML, it will be easy to use in the report.

Steps 2:

Save an Excel file with “XML Spreadsheet 2003”. ( Save As )

(Screenshot – 2)

Steps 3:

Create a report in SAP using SE38 as bellow.

*&---------------------------------------------------------------------*
*& Report ZTEST1
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ztest1.

INCLUDE ztest1_top.
INCLUDE ztest1_ss.
INCLUDE ztest1_cl_def.
INCLUDE ztest1_cl_impl.

START-OF-SELECTION.
  CLEAR : _obj.
  CREATE OBJECT _obj. " OBJECT OF ZCL_EXCEL CLASS.
  _obj->_header( ).       " HEADER, METHOD TO ADD TITLE AND DYNAMIC COLUMNS IN EXCEL.
  _obj->_body( ).         " BODY, METHOD TO ADD DYNAMIC ROW DATA IN EXCEL.
  _obj->_footer( ).       " FOOTER, METHOD TO ADD TOTAL OF ROW DATA IN EXCEL.
  _obj->_download( ).     " DOWNLOAD, METHOD THAT ASK USER TO SELECT LOCATION TO DOWNLOAD AND OPEN EXCEL.

Steps 4:

Double click on ztest1_top and write code as bellow,

*&---------------------------------------------------------------------*
*& Include          ZTEST1_TOP
*&---------------------------------------------------------------------*
TYPE-POOLS: slis.
TABLES : mara,t001w,sscrfields.

CLASS zcl_excel DEFINITION DEFERRED.          " DECLARE CLASS AS DEFERRED.

TYPES : BEGIN OF plant,
          werks TYPE werks_d,
        END OF plant,
        BEGIN OF mat,
          matnr TYPE matnr,
        END OF mat.
DATA : iplant TYPE TABLE OF plant,
       wplant TYPE plant.
DATA : imat TYPE TABLE OF mat,
       wmat TYPE mat.

DATA : _obj TYPE REF TO zcl_excel.             " DECLARE zcl_excel OBJECT
DATA : th TYPE string VALUE ''.                " STRING VARIABLE TO STORE 'N' COLUMNS.
DATA : td TYPE string VALUE ''.                " STRING VARIABLE TO STORE 'N' ROWS
DATA : randn TYPE i.                           " INTEGER TO STORE RANDOM NUMBER (DUMMY NETWR)
DATA : col_n(5),                               " TOTAL NO OF COLUMNS
       row_n(5).                               " TOTAL NO OF ROWS.

DATA: ld_filename TYPE string,                 " EXCEL FILENAME
      ld_path     TYPE string,                 " PATH
      ld_fullpath TYPE string,                 " FULL PATH WHERE EXCEL STORED IN DRIVE
      ld_result   TYPE i.
DATA : oref TYPE REF TO cx_root.

DATA xml_tab TYPE STANDARD TABLE OF string.    " INTERNAL TABLE THAT USED TO ASSIGN XML STRING TO FM

Steps 5:

Double click on ztest1_ss and write code as bellow,

*&---------------------------------------------------------------------*
*& Include          ZTEST1_SS
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : s_matnr FOR mara-matnr ,            " N ROWS
                 s_plant FOR t001w-werks.            " M COLS
SELECTION-SCREEN END OF BLOCK b1.

Steps 6:

Double click on ztest1_cl_def and write code as bellow,

*&---------------------------------------------------------------------*
*& Include          ZTEST1_CL_DEF
*&---------------------------------------------------------------------*

CLASS zcl_excel DEFINITION.
  PUBLIC SECTION.
    DATA : _excel TYPE string.      " STRING VARIABLE TO STORE ENTIRE XML DATA
    METHODS : constructor,          " DECLARE EXCEL DOCUMENT,WORKSHEET,STYLES.....
              _header,              " HEADER, METHOD TO ADD TITLE AND DYNAMIC COLUMNS IN EXCEL.
              _body,                " BODY, METHOD TO ADD DYNAMIC ROW DATA IN EXCEL.
              _footer,              " FOOTER, METHOD TO ADD TOTAL OF ROW DATA IN EXCEL.
              _download.            " DOWNLOAD, METHOD THAT ASK USER TO SELECT LOCATION TO DOWNLOAD AND OPEN EXCEL.

ENDCLASS.

Steps 6:

Double click on ztest1_cl_impl and write code as bellow,

*&---------------------------------------------------------------------*
*& Include          ZTEST1_CL_IMPL
*&---------------------------------------------------------------------*

CLASS zcl_excel IMPLEMENTATION.
  METHOD constructor.   " OPEN DEMO.XML IN NOTEPAD AND COPY TILL HEADING TAG (<XML><WORKBOOK><STYLES></STYLES><WORKFHEET><TABLE><ROW>HEADING</ROW>)

***XML STARTING TAGS + STYLES
    CONCATENATE
        '<?xml version="1.0" encoding="UTF-16"?>'
        '   <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"  '
        '    xmlns:o="urn:schemas-microsoft-com:office:office"  '
        '    xmlns:x="urn:schemas-microsoft-com:office:excel"  '
        '    xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"  '
        '    xmlns:html="http://www.w3.org/TR/REC-html40">  '
        '    <Styles>  '
        '  <Style ss:ID="Default" ss:Name="Normal">'
        '   <Alignment ss:Vertical="Bottom"/>'
        '   <Borders/>'
        '   <Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="11" ss:Color="#000000"/>'
        '   <Interior/>'
        '   <NumberFormat/>'
        '   <Protection/>'
        '  </Style>'
        '  <Style ss:ID="m2145582194624">'
        '   <Alignment ss:Horizontal="Center" ss:Vertical="Center"/>'
        '   <Borders>'
        '    <Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '   </Borders>'
        '   <Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="28" ss:Color="#000000"/>'
        '   <Interior ss:Color="#808080" ss:Pattern="Solid"/>'
        '  </Style>'
        '  <Style ss:ID="m2145582194644">'
        '   <Alignment ss:Horizontal="Right" ss:Vertical="Bottom"/>'
        '   <Borders>'
        '    <Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '   </Borders>'
        '   <Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="11" ss:Color="#000000"'
        '    ss:Bold="1"/>'
        '   <Interior ss:Color="#808080" ss:Pattern="Solid"/>'
        '  </Style>'
        '  <Style ss:ID="s16">'
        '   <Alignment ss:Vertical="Center"/>'
        '  </Style>'
        '  <Style ss:ID="s17">'
        '   <Alignment ss:Horizontal="Center" ss:Vertical="Center" ss:WrapText="1"/>'
        '   <Borders>'
        '    <Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '   </Borders>'
        '   <Font ss:FontName="Calibri" x:Family="Swiss" ss:Color="#000000"/>'
        '   <Interior ss:Color="#FFD966" ss:Pattern="Solid"/>'
        '  </Style>'
        '  <Style ss:ID="s18">'
        '   <Alignment ss:Horizontal="Center" ss:Vertical="Center" ss:WrapText="1"/>'
        '   <Borders>'
        '    <Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '   </Borders>'
        '   <Font ss:FontName="Calibri" x:Family="Swiss" ss:Color="#000000"/>'
        '   <Interior ss:Color="#D0D8E2" ss:Pattern="Solid"/>'
        '  </Style>'
        '  <Style ss:ID="s19">'
        '   <Alignment ss:Horizontal="Center" ss:Vertical="Center" ss:WrapText="1"/>'
        '   <Borders>'
        '    <Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '   </Borders>'
        '   <Font ss:FontName="Calibri" x:Family="Swiss" ss:Color="#000000"/>'
        '   <Interior ss:Color="#A5C480" ss:Pattern="Solid"/>'
        '  </Style>'
        '  <Style ss:ID="s20">'
        '   <Alignment ss:Horizontal="Center" ss:Vertical="Center" ss:WrapText="1"/>'
        '   <Borders>'
        '    <Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '   </Borders>'
        '   <Font ss:FontName="Calibri" x:Family="Swiss" ss:Color="#000000"/>'
        '   <Interior ss:Color="#ACB9CA" ss:Pattern="Solid"/>'
        '  </Style>'
        '  <Style ss:ID="s21">'
        '   <Alignment ss:Horizontal="Center" ss:Vertical="Center" ss:WrapText="1"/>'
        '   <Borders>'
        '    <Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '   </Borders>'
        '   <Font ss:FontName="Calibri" x:Family="Swiss" ss:Color="#000000"/>'
        '   <Interior ss:Color="#88B157" ss:Pattern="Solid"/>'
        '  </Style>'
        '  <Style ss:ID="s22">'
        '   <Alignment ss:Horizontal="Center" ss:Vertical="Bottom"/>'
        '   <Borders>'
        '    <Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '   </Borders>'
        '   <Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="11" ss:Color="#000000"'
        '    ss:Bold="1"/>'
        '   <Interior ss:Color="#FFFF00" ss:Pattern="Solid"/>'
        '  </Style>'
        '  <Style ss:ID="s23">'
        '   <Alignment ss:Horizontal="Right" ss:Vertical="Center" ss:WrapText="1"/>'
        '   <Borders>'
        '    <Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '   </Borders>'
        '   <Font ss:FontName="Calibri" x:Family="Swiss" ss:Color="#000000"/>'
        '   <Interior ss:Color="#FFE9A3" ss:Pattern="Solid"/>'
        '  </Style>'
        '  <Style ss:ID="s24">'
        '   <Alignment ss:Horizontal="Right" ss:Vertical="Center" ss:WrapText="1"/>'
        '   <Borders>'
        '    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '   </Borders>'
        '   <Font ss:FontName="Calibri" x:Family="Swiss" ss:Color="#000000"/>'
        '   <Interior ss:Color="#FFE9A3" ss:Pattern="Solid"/>'
        '  </Style>'
        '  <Style ss:ID="s25">'
        '   <Alignment ss:Horizontal="Center" ss:Vertical="Center" ss:WrapText="1"/>'
        '   <Borders>'
        '    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '   </Borders>'
        '   <Font ss:FontName="Calibri" x:Family="Swiss" ss:Color="#000000"/>'
        '   <Interior ss:Color="#D0D8E2" ss:Pattern="Solid"/>'
        '  </Style>'
        '  <Style ss:ID="s26">'
        '   <Alignment ss:Horizontal="Center" ss:Vertical="Center" ss:WrapText="1"/>'
        '   <Borders>'
        '    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '   </Borders>'
        '   <Font ss:FontName="Calibri" x:Family="Swiss" ss:Color="#000000"/>'
        '   <Interior ss:Color="#A5C480" ss:Pattern="Solid"/>'
        '  </Style>'
        '  <Style ss:ID="s27">'
        '   <Alignment ss:Horizontal="Left" ss:Vertical="Center" ss:WrapText="1"/>'
        '   <Borders>'
        '    <Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '    <Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="1"/>'
        '   </Borders>'
        '   <Font ss:FontName="Calibri" x:Family="Swiss" ss:Color="#000000"/>'
        '   <Interior ss:Color="#D0D8E2" ss:Pattern="Solid"/>'
        '  </Style>'
        ' </Styles>'
        ' <Worksheet ss:Name="DEMO">'
        '  <Table ss:ExpandedColumnCount="@cols" ss:ExpandedRowCount="@rows" x:FullColumns="1"'
        '   x:FullRows="1" ss:DefaultRowHeight="14.4">'
        '   <Column ss:Width="22.200000000000003"/>'
        '   <Column ss:AutoFitWidth="0" ss:Width="76.8"/>'
        '   <Column ss:AutoFitWidth="0" ss:Width="145.79999999999998"/>'
        '   <Column ss:Width="35.4" ss:Span="4"/>'
        '   <Row ss:AutoFitHeight="0" ss:Height="27">'
        '    <Cell ss:MergeAcross="2" ss:StyleID="m2145582194624"><Data ss:Type="String">Heading</Data></Cell>'
        '   </Row>'
        INTO _excel.
***XML STARTING TAGS + STYLES

  ENDMETHOD.
  METHOD _header.   " COPY FIRST 3 COLUMN BECAUSE ITS STATIC

    th = |<Row ss:StyleID="s16">|.
    th = |{ th }<Cell ss:StyleID="s20"><Data ss:Type="String">Sr.#</Data></Cell>|.
    th = |{ th }<Cell ss:StyleID="s21"><Data ss:Type="String">Material #</Data></Cell>|.
    th = |{ th }<Cell ss:StyleID="s20"><Data ss:Type="String">Material Description</Data></Cell>|.

***********************************************************************************************************
    " IF THERE IS ONLY ONE PLANT OR NO PLANT IN YOUR SYSTE, IN THAT CASE YOU CAN COMMENT THIS SELECT QUERY
    " AND PASS MULTIPLE DUMMY PLANTS IN SELECT-OPTIONS LIKE P001,P002,P003 UPTO N SO THAT YOU CAN UNDERSTAND THE PROCESS.
    " MAKE SURE IF YOU ARE COMMENTING QUERY, REPLACE "wplant-werks" TO "wplant-low".
***********************************************************************************************************
    SELECT werks FROM t001w INTO TABLE iplant WHERE werks IN s_plant.
    LOOP AT iplant INTO wplant.
      th = |{ th }<Cell ss:StyleID="s17"><Data ss:Type="String">{ wplant-werks }</Data></Cell>|.
      CLEAR wplant.
    ENDLOOP.
    th = |{ th }</Row>|.
    _excel = |{ _excel } { th }|.

  ENDMETHOD.
  METHOD _body.

***********************************************************************************************************
    " IF THERE IS NO MATERIALS IN YOUR SYSTE, IN THAT CASE YOU CAN COMMENT THIS SELECT QUERY
    " AND PASS MULTIPLE DUMMY MATERIALS IN SELECT-OPTIONS LIKE 1,2,3,4 UPTO N SO THAT YOU CAN UNDERSTAND THE PROCESS.
    " MAKE SURE IF YOU ARE COMMENTING QUERY, REPLACE "wmat-matnr" TO "wmat-low".
***********************************************************************************************************
    SELECT matnr FROM mara INTO TABLE imat WHERE matnr IN s_matnr.
    LOOP AT imat INTO wmat.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
        EXPORTING
          input  = wmat-matnr
        IMPORTING
          output = wmat-matnr.

      td = |{ td }<Row>|.
      td = |{ td }<Cell ss:StyleID="s18"><Data ss:Type="String">{ sy-tabix }</Data></Cell>|.
      td = |{ td }<Cell ss:StyleID="s19"><Data ss:Type="String">{ wmat-matnr }</Data></Cell>|.
      td = |{ td }<Cell ss:StyleID="s27"><Data ss:Type="String">Description { sy-tabix }</Data></Cell>|.

      LOOP AT iplant INTO wplant.
        CALL FUNCTION 'QF05_RANDOM_INTEGER'     " USED THIS FM TO GENERATE RANDOM NO BETWEEN 10 TO 100 FOR DUMMY NETWR.
          EXPORTING
            ran_int_max   = 100
            ran_int_min   = 10
          IMPORTING
            ran_int       = randn
          EXCEPTIONS
            invalid_input = 1
            OTHERS        = 2.
        td = |{ td }<Cell ss:StyleID="s23"><Data ss:Type="Number">{ randn }</Data></Cell>|.
        CLEAR wplant.
      ENDLOOP.
      td = |{ td }</Row>|.
      CLEAR wmat.
    ENDLOOP.
    _excel = |{ _excel } { td }|.

  ENDMETHOD.
  METHOD _footer.

    DESCRIBE TABLE imat LINES row_n.        " GET TOTAL NO OF ROWS BASED ON LIST OF MATERIALS
    DESCRIBE TABLE iplant LINES col_n.      " GET TOTAL NO OF COLS BASED ON LIST OF PLANTS

    CONDENSE : row_n,col_n.                 " REMOVE BLANK SPACES

    " TOTAL BY USING R1C1 FORMULA
    _excel = |{ _excel } <Row>|.
    _excel = |{ _excel } <Cell ss:MergeAcross="2" ss:StyleID="m2145582194644"><Data ss:Type="String">Total</Data></Cell>|.
    LOOP AT iplant INTO wplant.
      _excel = |{ _excel }<Cell ss:StyleID="s22" ss:Formula="=SUM(R[-{ row_n }]C:R[-1]C)"><Data ss:Type="Number"></Data></Cell>|.
    ENDLOOP.
    _excel = |{ _excel } </Row>|.

    " FINALLY CLOSING ALL TAGS
    CONCATENATE  _excel
             '   </Table>  '
             '     <WorksheetOptions xmlns="urn:schemas-microsoft-com:office:excel">  '
             '      <PageSetup>  '
             '       <Header x:Margin="0.3"/>  '
             '       <Footer x:Margin="0.3"/>  '
             '       <PageMargins x:Bottom="0.75" x:Left="0.7" x:Right="0.7" x:Top="0.75"/>  '
             '      </PageSetup>  '
             '      <Print>  '
             '       <ValidPrinterInfo/>  '
             '       <HorizontalResolution>300</HorizontalResolution>  '
             '       <VerticalResolution>300</VerticalResolution>  '
             '      </Print>  '
             '      <Selected/>  '
             '      <Panes>  '
             '       <Pane>  '
             '        <Number>3</Number>  '
             '        <ActiveRow>2</ActiveRow>  '
             '        <ActiveCol>1</ActiveCol>  '
             '       </Pane>  '
             '      </Panes>  '
             '      <ProtectObjects>False</ProtectObjects>  '
             '      <ProtectScenarios>False</ProtectScenarios>  '
             '     </WorksheetOptions>  '
             '    </Worksheet>  '
             '  </Workbook>  '
             INTO _excel.
  ENDMETHOD.
  METHOD _download.

    " THIS FM ALLOW USER TO SELECT PATH WHERE TO STORE EXCEL FILE
    CALL METHOD cl_gui_frontend_services=>file_save_dialog
      EXPORTING
*       window_title      = ' '
        default_extension = 'xls'
        default_file_name = 'Test_Report'
        initial_directory = 'D:\'
      CHANGING
        filename          = ld_filename
        path              = ld_path
        fullpath          = ld_fullpath
        user_action       = ld_result.

*<Table ss:ExpandedColumnCount="@cols" ss:ExpandedRowCount="@rows" x:FullColumns="1"' x:FullRows="1" ss:DefaultRowHeight="14.4">

    row_n = row_n + 3.                  " + 3 MEANS, ADDING HEADING LINE, COLUMN AND TOTAL LINE SO expandedRowCount will be row_n + 3
    col_n = col_n + 3.                  " + 3 MEANS, ADDING Sr #, Material # AND Description BECAUSE THESE ARE STATIC COLUMNS SO expandedColumnCount will be row_n + 3
    " IT IS NOT NECESSARY TO + 3 EVERY TIME, IT IS COMPLETELY BASED ON YOUR STATIC AND DYANAMIC DATA COUNT.

    CONDENSE : row_n,col_n.

    REPLACE REGEX '@cols' IN _excel WITH col_n.    " SEE <TABLE> TAG IN CONSTRUCTOR
    REPLACE REGEX '@rows' IN _excel WITH row_n.    " SEE <TABLE> TAG IN CONSTRUCTOR

    APPEND _excel TO xml_tab.                      " ADD FINAL XML TO XML_TABLE.

    CALL METHOD cl_gui_frontend_services=>gui_download
      EXPORTING
        filename              = ld_fullpath
        filetype              = 'ASC'
        write_field_separator = 'X'
      CHANGING
        data_tab              = xml_tab
      EXCEPTIONS
        access_denied         = 15.

    IF sy-subrc EQ 15.
      MESSAGE 'Access denied' TYPE 'I' DISPLAY LIKE 'E'.
    ELSE.
      CALL METHOD cl_gui_frontend_services=>execute
        EXPORTING
          application = 'EXCEL'
          parameter   = ld_fullpath.
    ENDIF.
  ENDMETHOD.
ENDCLASS.

This is how I had enhanced.

(Screenshot – 3 )

Useful links.

I hope this example helps you to fulfill your requirements.

 

Do connect me if there is any issue or if I missed some points.

 

Thanks & Regards,

Rajesh Kalyanji Rajgor

 

9 Comments
You must be Logged on to comment or reply to a post.