Import an open office spreadsheet into internal table

Question

hi all,
        i have one requirment to import excel into sap but  i dont have MS office on my system     
          is  there any way to import an open office spreadsheet into internal table
            by using  ALSM_EXCEL_TO_INTERNAL_TABLE fm  or any other ways.

Answer 1

Hi,
You can use this function module 'ALSM_EXCEL_TO_INTERNAL_TABLE',
It works fine, Here is a sample code hwich I developed and working fine.
  FIELD-SYMBOLS: <FS1>.
Variables
  DATA: LV_BEGCOL TYPE I VALUE 1,
        LV_BEGROW TYPE I VALUE 1,
        LV_ENDCOL TYPE I VALUE 100,
        LV_ENDROW TYPE I VALUE 32000.
  DATA: LV_FILENAME LIKE RLGRAP-FILENAME.
  DATA: LV_ZWLEN TYPE I,
        LV_ZWLINES TYPE I.
  DATA: LV_TIND(4) TYPE N.
  DATA: LV_ZWFELD(30).
  DATA: KZHEADER TYPE XFELD.
Internal Tables
  DATA: BEGIN OF LT_INTERN OCCURS 0.
          INCLUDE STRUCTURE  ALSMEX_TABLINE.
  DATA: END OF LT_INTERN.
  DATA: BEGIN OF LT_INTERN1 OCCURS 0.
          INCLUDE STRUCTURE  ALSMEX_TABLINE.
  DATA: END OF LT_INTERN1.
  DATA: BEGIN OF LT_COL OCCURS 0,
         COL LIKE ALSMEX_TABLINE-COL,
         SIZE TYPE I.
  DATA: END OF LT_COL.
  DATA: BEGIN OF LT_FIELDNAMES OCCURS 3,
          TITLE(60),
          TABLE(6),
          FIELD(10),
          KZ(1),
        END OF LT_FIELDNAMES.
No of columns
  DATA: BEGIN OF LT_DATA_TAB OCCURS 0,
         VALUE_0001(50),
         VALUE_0002(50),
         VALUE_0003(50),
         VALUE_0004(50),
         VALUE_0005(50),
         VALUE_0006(50),
         VALUE_0007(50),
         VALUE_0008(50),
         VALUE_0009(50),
         VALUE_0010(50).
  DATA: END OF LT_DATA_TAB.
Initialization
  LV_FILENAME = P_UFILE.
  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      FILENAME                = LV_FILENAME
      I_BEGIN_COL             = LV_BEGCOL
      I_BEGIN_ROW             = LV_BEGROW
      I_END_COL               = LV_ENDCOL
      I_END_ROW               = LV_ENDROW
    TABLES
      INTERN                  = LT_INTERN
    EXCEPTIONS
      INCONSISTENT_PARAMETERS = 1
      UPLOAD_OLE              = 2
      OTHERS                  = 3.
  IF SY-SUBRC <> 0.
    WRITE:/ 'Uploading Error'(019), SY-SUBRC.
  ENDIF.
Arrange Data
  LOOP AT LT_INTERN.
    LT_INTERN1 = LT_INTERN.
    CLEAR LT_INTERN1-ROW.
    APPEND LT_INTERN1.
  ENDLOOP.
  SORT LT_INTERN1 BY COL.
  LOOP AT LT_INTERN1.
    AT NEW COL.
      LT_COL-COL = LT_INTERN1-COL.
      APPEND LT_COL.
    ENDAT.
    LV_ZWLEN = STRLEN( LT_INTERN1-VALUE ).
    READ TABLE LT_COL WITH KEY COL = LT_INTERN1-COL.
    IF SY-SUBRC EQ 0.
      IF LV_ZWLEN > LT_COL-SIZE.
        LT_COL-SIZE = LV_ZWLEN.
Internal Table, Current Row Index
        MODIFY LT_COL INDEX SY-TABIX.
      ENDIF.
    ENDIF.
  ENDLOOP.
  DESCRIBE TABLE LT_COL LINES LV_ZWLINES.
  SORT LT_INTERN BY ROW COL.
  IF KZHEADER = 'X'.
    LOOP AT LT_INTERN.
      LT_FIELDNAMES-TITLE = LT_INTERN-VALUE.
      APPEND LT_FIELDNAMES.
      AT END OF ROW.
        EXIT.
      ENDAT.
    ENDLOOP.
  ELSE.
    DO LV_ZWLINES TIMES.
      WRITE SY-INDEX TO LT_FIELDNAMES-TITLE.
      APPEND LT_FIELDNAMES.
    ENDDO.
  ENDIF.
  SORT LT_INTERN BY ROW COL.
  LOOP AT LT_INTERN.
    IF KZHEADER = 'X'
    AND LT_INTERN-ROW = 1.
      CONTINUE.
    ENDIF.
    LV_TIND = LT_INTERN-COL.
    CONCATENATE 'LT_DATA_TAB-VALUE_' LV_TIND INTO LV_ZWFELD.
    ASSIGN (LV_ZWFELD) TO <FS1>.
    <FS1> = LT_INTERN-VALUE.
    AT END OF ROW.
      APPEND LT_DATA_TAB.
      CLEAR LT_DATA_TAB.
    ENDAT.
  ENDLOOP.
Thanks & Regards,
Dileep .C