Uploading into Excel

Question

Hi Gurus,
I often used FM ALSM_EXCEL_TO_INTERNAL_TABLE or FM KCD_EXCEL_OLE_TO_INT_CONVERT to read data into an internal table. So I ought to know how things work. But I have a strange problem.
My Excel sheet consists of 5 lines, 22 columns 1 header. So I let the FM start at COL no. 1, ROW no. 2 and end it at COL 22 and ROW 1000.
While debugging I see first three rows go correctly, but after the 4th row the COUNTER in the internal table that represents the current no. of the Column exceeds 22.
It just doesn't get reset to 1 again after reaching the end of a row.
I tried all sorts of options, like varying columns, file, etc. etc.
Version of SAP is 6.20. Anyone has an idea what goes wrong? Regards, Ron.

Answer 1

Hi,
See this sample program.
REPORT ZEXCEL .
Structure for Final Internal Table
TYPES: BEGIN OF TY_FINAL,
MATNR LIKE RC29N-MATNR, "Material BOM
WERKS LIKE RC29N-WERKS, "Plant
STLAN LIKE RC29N-STLAN, "BOM Usage
STLAL LIKE RC29N-STLAL, "Alternative BOM
DATUV LIKE RC29N-DATUV, "Valid-From Date
ZTEXT LIKE RC29K-ZTEXT, "BOM text
POSTP LIKE RC29P-POSTP, "Item category (bill of
"material)
IDNRK LIKE RC29P-IDNRK, "BOM component
MENGE(16), "Component quantity
END OF TY_FINAL.
DATA: I_FINAL TYPE STANDARD TABLE OF TY_FINAL WITH HEADER LINE.
data: i_BDCDATA like bdcdata occurs 0 with header line.
DATA: BEGIN OF IEXCEL OCCURS 0.
INCLUDE STRUCTURE ALSMEX_TABLINE.
DATA: END OF IEXCEL.
PARAMETERS: P_FILE LIKE RLGRAP-FILENAME.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
PERFORM SHOW_HELP_FOR_P_FILE.
START-OF-SELECTION.
PERFORM GET_FILE.
PERFORM F_FILL_BDCDATA.
PERFORM F_SESSION.
END-OF-SELECTION.
PERFORM DISPLAY_DATA.
*& Form SHOW_HELP_FOR_P_FILE
FORM SHOW_HELP_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.
EXIT.
ENDIF.
ENDFORM. " SHOW_HELP_FOR_P_FILE
*& Form GET_FILE
FORM GET_FILE.
DATA: V_LEN TYPE I.
SHIFT P_FILE RIGHT DELETING TRAILING SPACE.
V_LEN = STRLEN( P_FILE ).
V_LEN = V_LEN - 3.
IF ( P_FILEV_LEN(3) EQ 'xls' OR P_FILEV_LEN(3) EQ 'XLS' ) .
Get all the details from the Excel file
SHIFT P_FILE LEFT DELETING LEADING SPACE.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
FILENAME = P_FILE
I_BEGIN_COL = 1
I_BEGIN_ROW = 1
I_END_COL = 9
I_END_ROW = 100
TABLES
INTERN = IEXCEL
EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2
OTHERS = 3.
SORT IEXCEL BY ROW COL.
LOOP AT IEXCEL.
IF IEXCEL-COL = '0001'.
I_FINAL-MATNR = IEXCEL-VALUE.
ENDIF.
IF IEXCEL-COL = '0002'.
I_FINAL-WERKS = IEXCEL-VALUE.
ENDIF.
IF IEXCEL-COL = '0003'.
I_FINAL-STLAN = IEXCEL-VALUE.
ENDIF.
IF IEXCEL-COL = '0004'.
I_FINAL-STLAL = IEXCEL-VALUE.
ENDIF.
IF IEXCEL-COL = '0005'.
I_FINAL-DATUV = IEXCEL-VALUE.
ENDIF.
IF IEXCEL-COL = '0006'.
I_FINAL-ZTEXT = IEXCEL-VALUE.
ENDIF.
IF IEXCEL-COL = '0007'.
I_FINAL-POSTP = IEXCEL-VALUE.
ENDIF.
IF IEXCEL-COL = '0008'.
I_FINAL-IDNRK = IEXCEL-VALUE.
ENDIF.
IF IEXCEL-COL = '0009'.
I_FINAL-MENGE = IEXCEL-VALUE.
ENDIF.
AT END OF ROW.
APPEND I_FINAL.
CLEAR I_FINAL.
ENDAT.
ENDLOOP.
ENDIF.
ENDFORM. " GET_FILE
*& Form DISPLAY_DATA
text
--> p1 text
<-- p2 text
FORM DISPLAY_DATA.
LOOP AT I_FINAL.
WRITE: /1(18) I_FINAL-MATNR, "Material BOM
19(4) I_FINAL-WERKS, "Plant
24(1) I_FINAL-STLAN, "BOM Usage
26(2) I_FINAL-STLAL, "Alternative BOM
29(8) I_FINAL-DATUV, "Valid-From Date
40(40) I_FINAL-ZTEXT, "BOM text
81(1) I_FINAL-POSTP, "Item category (bill of
"material)
82(18) I_FINAL-IDNRK, "BOM component
101(13) I_FINAL-MENGE RIGHT-JUSTIFIED. "Component
"quantity
ENDLOOP.
ENDFORM. " DISPLAY_DATA