Export to Excel -leading 0's

Question

I have to download data from internal table to Excel sheet.
In the internal table i have a field xxx- that is type numc10
I have a value for this field-000001234
Now when i export this to excel sheet, leading zeroes are removed and the output is-1234
How can i make sure that the output in excel is displayed as 0000001234.
This is very importnant for our project.
Thanks in advance.

Answer 1

Hi Narendra,
See the exact code for leading zero's in XL File.
REPORT ZTEST3 line-size 400.
Place holder to keep leading zero's
DATA : V_CHAR(1) TYPE C VALUE ''''.
Internal table for MAKT Table
data : begin of i_makt occurs 0,
       matnr like makt-matnr,
       maktx like makt-maktx,
       end of i_makt.
Internal table for XL File
See Material number is 18 char but i am declaring here 20 char length
data : begin of i_file occurs 0,
       matnr(20) type c,
       maktx like makt-maktx,
       end of i_file.
start-of-selection.
select matnr maktx from makt into table i_makt.
loop at i_makt.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  EXPORTING
    INPUT         = i_makt-matnr
IMPORTING
   OUTPUT        = i_makt-matnr
CONCATENATE V_CHAR  i_makt-matnr  INTO i_file-matnr.
i_file-maktx = i_makt-maktx.
append i_file.
clear i_file.
endloop.
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
  BIN_FILESIZE                  = ' '
  CODEPAGE                      = ' '
    FILENAME                      =
    'C:\Documents and Settings\smaramreddy\Desktop\fff.xls'
   FILETYPE                      = 'ASC'
  MODE                          = ' '
  WK1_N_FORMAT                  = ' '
  WK1_N_SIZE                    = ' '
  WK1_T_FORMAT                  = ' '
  WK1_T_SIZE                    = ' '
  COL_SELECT                    = ' '
  COL_SELECTMASK                = ' '
  NO_AUTH_CHECK                 = ' '
IMPORTING
  FILELENGTH                    =
  TABLES
    DATA_TAB                      = i_file
  FIELDNAMES                    =
EXCEPTIONS
   FILE_OPEN_ERROR               = 1
   FILE_WRITE_ERROR              = 2
   INVALID_FILESIZE              = 3
   INVALID_TYPE                  = 4
   NO_BATCH                      = 5
   UNKNOWN_ERROR                 = 6
   INVALID_TABLE_WIDTH           = 7
   GUI_REFUSE_FILETRANSFER       = 8
   CUSTOMER_ERROR                = 9
   OTHERS                        = 10
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Please close thread.
Reward Points if it is helpful
Thanks
Seshu