Excel file creation on application server

Question

Gurus,
I have seen a lot of threads on excel file creation in application server, but failed to see if anyone had a solution.
Problem: In background execution I need to create an excel sheet on application server, the data would be contained in internal table, The FM like WS_DOWNLOAD etc..cannot support these as they have GUI component.
All the documentation that I have been through states to use dataset which saves the file in.csv or txt format seperated by delimiter, is it possible to save as a true excel file.
same as this thread:
Re: Excel download in Application Server
let me know,
Thanks in advance .

Answer 1

* Write column headers, if required
  IF column_headers = 'X'.
*   ... override field names with LABELS_IN, if specified
    IF NOT labels_in[] IS INITIAL.
      DESCRIBE TABLE labels_in LINES num_lines.
      IF num_lines > num_fields.
        RAISE too_many_labels.
      ELSEIF num_lines < num_fields.
        RAISE too_few_labels.
      ENDIF.
      ASSIGN COMPONENT 1 OF STRUCTURE labels_in TO <f>.
      LOOP AT fields_in.
        READ TABLE labels_in INDEX sy-tabix.
        fields_in-name = labels_in-name.
        MODIFY fields_in.
      ENDLOOP.
    ENDIF.
*   ...write column headers to file...
    position = 0.
    LOOP AT fields_in.
      IF fixed_length NE space.
*** INSERT: DAR was here for Issue 17817 --------------- dar012009 ---v
        field_len = STRLEN( fields_in-name ).
*** INSERT: DAR was here for Issue 17817 --------------- dar012009 ---^
        DO fields_in-len TIMES.
          offset = sy-index - 1.
*          IF sy-index > 15.                                 dar012009
          IF sy-index > field_len.                          "dar012009
            line_out+position(1) = space.
          ELSEIF fields_in-name+offset(1) NE space.
            line_out+position(1) = fields_in-name+offset(1).
          ELSE.
            line_out+position(1) = space.
          ENDIF.
          position = position + 1.
        ENDDO.
      ELSE.
        CONCATENATE line_out fields_in-name INTO line_out
          SEPARATED BY delimiter.
      ENDIF.
    ENDLOOP.
    IF fixed_length EQ space.
      SHIFT line_out LEFT DELETING LEADING delimiter.
    ENDIF.
    IF no_write IS INITIAL.                                 "dar041505
      TRANSFER line_out TO file_out.
    ENDIF.                                                  "dar041505
    data_out = line_out.  APPEND data_out.                  "dar041505
  ENDIF.
* Write lines to file...
  LOOP AT data_in.
    CLEAR line_out.
    position = 0.
    DO num_fields TIMES.
      ASSIGN COMPONENT sy-index OF STRUCTURE data_in TO <f>.