Question about output in Excel file

Question

Hi all experts
I am trying to export a report to excel sheet. Got one problem, in the report there are codes of companies,  like "09", "08", but when exported by using WS_EXCEL FBS, i got the result "9", "8".
That is> the Zero at the beginning is lost.
How can i solve this problem easily?
question2, how can i make the alignment better. (now some are left and some are right aligned)
thank you !
here is my coding
CALL FUNCTION 'WS_EXCEL'
EXPORTING
FILENAME = file1
SYNCHRON = ' '
TABLES
data = tab_comp
EXCEPTIONS
UNKNOWN_ERROR = 1
OTHERS = 2
file1 = 'c:\tmp\b.xls'
Richard

Answer 1

Hi,
Conventionally it is not possible.
If u can compromise to some extent its is possible. Check below code.
U may have to give one check box in selection screen/Push button in output list.
Based on the selection(In case of check box)/Click(In case of push button) u can download the data.
U have loop through ur itab and modify that value by concatenating the special character '
But it will also be downloaded to excel
If u don't understand what i am saying just copy paste below code and see whether it will be fine.
TYPES:BEGIN OF t_tab,
        empno(10) TYPE c,
      END OF t_tab.
DATA: i_tab TYPE TABLE OF t_tab,
      wa_tab TYPE t_tab.
CLEAR wa_tab.
wa_tab-empno = '0075694'.
APPEND wa_tab TO i_tab.
CONCATENATE '''' wa_tab-empno INTO wa_tab-empno.
MODIFY i_tab FROM wa_tab INDEX 1.
CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
*   BIN_FILESIZE                  =
    filename                      = 'E:/test.xls'
*   FILETYPE                      = 'ASC'
*   APPEND                        = ' '
   WRITE_FIELD_SEPARATOR         = '#'
*   HEADER                        = '00'
*   TRUNC_TRAILING_BLANKS         = ' '
*   WRITE_LF                      = 'X'
*   COL_SELECT                    = ' '
*   COL_SELECT_MASK               = ' '
*   DAT_MODE                      = ' '
* IMPORTING
*   FILELENGTH                    =
  tables
    data_tab                      = i_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
   OTHERS                        = 22
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*Here output in excel is '0075694
Thanks,
Vinod.