FROM EXCEL FILE TO INTERNAL TABLE

Question

HI GURU'S,
i'm using the following code to conver the excel file into internal table.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
     I_FIELD_SEPERATOR          = 'X'
    I_LINE_HEADER              =
      I_TAB_RAW_DATA             = IT_TAB_RAW_DATA
      I_FILENAME                 = P_FILE
    TABLES
      I_TAB_CONVERTED_DATA       = IT_MM01
   EXCEPTIONS
     CONVERSION_FAILED          = 1
     OTHERS                     = 2
What is the exact format for the to send the Excel File.
My requirement is the Excel file contains the several fields , that should be stored as a records in the internal table
My problem is when i send the data in the excel file as one column, i'm getting all the data in the first column of the Internal Table.
If i send the data in the excel file as a record it is not filling the internal table.
what is the problem??/
if the Excel files contain multiple records is it able to convert the data into internal table records.
Regards,
Adi.

Answer 1

**Internal Table to hold the records in the text file
Hello Adi,
Put the fields in excel in the same format in which u want in ur internal table(here record)
U can refer the following code.
data: begin of record occurs 0,
      General Data
data element: BUKRS
        bukrs_001(004), " Company Code
data element: EKORG
        ekorg_002(004), " Purchase Orgn
data element: KTOKK
        ktokk_003(004), " Account Group
    end of record.
Internal Table
data:it_excel like table of alsmex_tabline with header line.
**SELECTION-SCREEN**
selection-screen begin of  block blk.
parameters: p_file like rlgrap-filename default 'c:\vendor_creation.xls'
selection-screen end of block blk.
A T   S E L E C T I O N - S C R E E N   O U T P U T
***************START*********************** F4 Help for field p_file
at selection-screen on value-request for p_file.
call function 'KD_GET_FILENAME_ON_F4'
exporting
   program_name        = syst-repid
   dynpro_number       = syst-dynnr
  FIELD_NAME          = ' '
  STATIC              = ' '
  MASK                = ' '
  changing
    file_name           = p_file
EXCEPTIONS
  MASK_TOO_LONG       = 1
  OTHERS              = 2
if sy-subrc <>  0.
message e006(zhnc).
endif.
S T A R T - O F - S E L E C T I O N
start-of-selection.
data : vf_index type i.
data : vf_start_col type i value '1',      "start column
         vf_start_row type i value '4',    "start row
         vf_end_col   type i value '200',  "maximum column
         vf_end_row   type i value '2500', "maximum row
         p_text(20).                       "stores error messages
*/ Work Area
data: wa_intern like it_excel.
*/ Field symbol
field-symbols : <fs>.
*********Fn Module to convert the excel file data into internal table
call function 'ALSM_EXCEL_TO_INTERNAL_TABLE'
  exporting
    filename                      =  'c:\vendor_creation.xls'
    i_begin_col                   =  vf_start_col
    i_begin_row                   =  vf_start_row
    i_end_col                     =  vf_end_col
    i_end_row                     =  vf_end_row
  tables
    intern                        = it_excel
exceptions
   inconsistent_parameters       = 1
   upload_ole                    = 2
   others                        = 3.
if sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
  if it_excel[] is initial.
    p_text = 'No Data Uploaded'.
  else.
  sort it_excel by row col.
      loop at it_excel.
      move : it_excel-col to vf_index.
      assign component vf_index of structure record to <fs>.
      move : it_excel-value to <fs>.
      at end of row.
        append record.
        clear record.
      endat.
      endloop.
  endif.
In case of any problem u  can revert back.
Aastha