About FM 'ALSM_EXCEL_TO_INTERNAL_TABLE'

[Former Member]

I use the FM 'ALSM_EXCEL_TO_INTERNAL_TABLE' and it works fine .

My problem is that when it reads the Excel file it prompt me to save the file in Excel .

Can i avoid that ?

[Former Member]

Dear Sir,

Please have a look at code below.Go through it and copy paste n run on your system.

Plz reward if useful.

Thankx.

DATA:IT_EXCEL LIKE TABLE OF ALSMEX_TABLINE WITH HEADER LINE.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-002.

PARAMETERS: P_FILE TYPE LOCALFILE OBLIGATORY .

SELECTION-SCREEN END OF BLOCK B1.

**********************AT SELECTION SCREEN EVENTS BEGINS***************

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

EXPORTING

STATIC = 'X'

CHANGING

FILE_NAME = P_FILE.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

EXPORTING

FILENAME = P_FILE

I_BEGIN_COL = 1 "From 1st Column

I_BEGIN_ROW = 2 "From 2nd row

I_END_COL = 6 "Till 6th Column

I_END_ROW = 65536 "Till Row

TABLES

INTERN = IT_EXCEL

EXCEPTIONS

INCONSISTENT_PARAMETERS = 1

UPLOAD_OLE = 2

OTHERS = 3.

CLEAR IT_EXCEL.

DESCRIBE TABLE IT_EXCEL.

IF SY-TFILL = 0.

MESSAGE I937.

STOP.

ENDIF.

LOOP AT IT_EXCEL.

CASE IT_EXCEL-COL.

WHEN '0001'.

MOVE: IT_EXCEL-VALUE TO RECORD1-MATNR_005.

WHEN '0002'.

MOVE: IT_EXCEL-VALUE TO RECORD1-WERKS_006.

WHEN '0003'.

MOVE: IT_EXCEL-VALUE TO RECORD1-BUDAT_002.

WHEN '0004'.

MOVE: IT_EXCEL-VALUE TO RECORD1-BKTXT_004.

WHEN '0005'.

MOVE: IT_EXCEL-VALUE TO RECORD1-ERFMG_007.

WHEN '0006'.

MOVE: IT_EXCEL-VALUE TO RECORD1-ERFMG_008.

ENDCASE.

AT END OF ROW.

APPEND RECORD1.

CLEAR RECORD1.

ENDAT.

ENDLOOP.

[Former Member]

The same problem again .....

When the report running it prompt me to save the file (In Excel window) .

In a strange way , it opens the Excel in Background but it can't close it . !!!!!

[Former Member]

It looks like the FM 'ALSM_EXCEL_TO_INTERNAL_TABLE' changes the Excel and i must save it !!!

Can someone help ?

[former_member60316]

Hi ,

While using the FM have u deleted the Exceptions part.

If yes , try once again with the exceptions .

Regards

[Former Member]

i tried ....

and nothing .....

Look the my code ....

REPORT YDP_EXAG_TRAP .
TYPE-POOLS TRUXS.

TABLES : YREPORTS.

DATA: BEGIN OF ITAB OCCURS 0 ,
         REPORTNR   LIKE YREPORTS-REPORTNR,
         SALESMAN   LIKE YREPORTS-SALESMAN,
         TITLE      LIKE YREPORTS-TITLE,
         REPCAT     LIKE YREPORTS-REPCAT,
         CDATE      LIKE YREPORTS-CDATE,
         TR_DATE    LIKE YREPORTS-TR_DATE,
         VI_DATE    LIKE YREPORTS-VI_DATE,

         RADIO,
       END OF ITAB.

DATA:   W_CHK LIKE ALSMEX_TABLINE-VALUE.


DATA :  MYITAB LIKE TABLE OF ALSMEX_TABLINE WITH HEADER LINE.
*DATA : MYITAB LIKE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.

PARAMETERS : S_FILE LIKE RLGRAP-FILENAME.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_FILE.

  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    EXPORTING
      STATIC    = 'X'
    CHANGING
      FILE_NAME = S_FILE.

START-OF-SELECTION.

  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      FILENAME                = S_FILE
      I_BEGIN_COL             = 1
      I_BEGIN_ROW             = 1
      I_END_COL               = 19
      I_END_ROW               = 19
    TABLES
      INTERN                  = MYITAB
    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.