Alsm excel to internal table

***************************************************************************************************************

WARNING: This post is intended to Excel upload FM which is now obsolete. Follow this, only if you are working on older systems to maintain the code where you’ve already used ‘ALSM_EXCEL_TO_INTERNAL_TABLE’.

Also this post will help you grasp concept of Field symbols with below application. 

***************************************************************************************************************
This blog post will help you avoid extraneous code every time you create Excel upload program by creating a simple Interface and a structure.

For ALSM_EXCEL_TO_INTERNAL_TABLE, explicitly we need to write code to transfer output of this FM into internal table of desired format. For this we have to map column number of FM output with columns of required internal table using

Refer below example.

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        = 65536
TABLES
intern                  = t_file
EXCEPTIONS
inconsistent_parameters = 1
upload_ole                      = 2
OTHERS                        = 3.

Output is in below format.

Further based on column number, work area is filled using CASE-ENDCASE and then Appending work area into required internal table in AT END OF ROW block.

LOOP

CASE (column)

when 1. wa_itab-col1 = value

when 2. wa_itab-col2 = value.

….and so on depending upon number of columns in Excel

ENDCASE

AT _END OF_ROW

APPEND wa_itab to itab.

END AT

ENDLOOP.

In order to avoid extraneous code when it comes to uploading Excel File with huge number of columns, create a FM with below code. Once you create Z FM, for every Excel File you’ll just need to create a structure in SE11  and you’re good to go.

Pass Desktop File path, Structure name in p_File and STR as input Parameters respectively.

First Create Structure in SE11 similar to the Excel File format.

FUNCTION zxls_into_it_2.
*”———————————————————————-
*”*”Local interface:
*”  IMPORTING
*”     REFERENCE(P_FILE) TYPE  RLGRAP-FILENAME
*”     REFERENCE(HEADER) TYPE  CHAR1 DEFAULT ‘X’
*”     REFERENCE(STR) TYPE  CHAR30
*”  TABLES
*”      IT_XLS_DATA TYPE  STANDARD TABLE
*”———————————————————————-
TYPE-POOLS: abap,slis.
FIELD-SYMBOLS:<dy_table> TYPE STANDARD TABLE,
<fs_current_field>,
<wa_str>,<wa_temp>
.
DATA:new_line    TYPE REF TO data,
new_line2 TYPE REF TO data,
li_fieldcat TYPE lvc_t_fcat,
dy_table    TYPE REF TO data,
t_file      TYPE STANDARD TABLE OF alsmex_tabline,
wa_file     TYPE alsmex_tabline,
v_col       TYPE i,
begin_row   TYPE i.

********This will provide Fields in Row format of Structure created(which should be similar to Excel Format).
CALL FUNCTION ‘LVC_FIELDCATALOG_MERGE’
EXPORTING
i_structure_name       = str
CHANGING
ct_fieldcat                  = li_fieldcat
EXCEPTIONS
inconsistent_interface = 1
program_error            = 2
OTHERS                    = 3.
IF sy–subrc EQ 0.

********This will create internal table which will have fields as per the Excel Format.
CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
it_fieldcatalog           = li_fieldcat
i_length_in_byte          = ‘X’
IMPORTING
ep_table                  = dy_table
EXCEPTIONS
generate_subpool_dir_full = 1
OTHERS                    = 2.
IF sy–subrc EQ 0.
ASSIGN dy_table->* TO <dy_table>.
ENDIF.

******V_col will hold the number of Columns inside Excel File which is later passed to ALSM_EXCEL_TO_INTERNAL_TABLE’ .

DESCRIBE TABLE li_fieldcat LINES v_col.

******Logic to skip Header
IF header = ‘X’.
begin_row = 2.
ELSE.
begin_row = 1.
ENDIF.

******Core FM which will provide excel data in  t_file with row/coumn/value format

CALL FUNCTION ‘ALSM_EXCEL_TO_INTERNAL_TABLE’
EXPORTING
filename              = p_file
i_begin_col          = 1
i_begin_row        = begin_row
i_end_col            = v_col
i_end_row            = 65536
TABLES
intern                  = t_file
EXCEPTIONS
inconsistent_parameters = 1
upload_ole              = 2
OTHERS                  = 3.

IF sy–subrc EQ 0.
LOOP AT t_file INTO wa_file.

******This Block will create new area to store column wise data.<wa_temp> acts as a work area which is completely blank at start of new row
AT NEW row.
CREATE DATA new_line2 LIKE LINE OF <dy_table>.
ASSIGN new_line2->* TO <wa_temp>.
ENDAT.

*******for every iteration, wa_file-col will have increment till number of columns in Excel file and then reset to 1 when there’s new row i.e row = 1. (Refer example at end of blog)

ASSIGN COMPONENT wa_file–col OF STRUCTURE <wa_temp> TO <fs_current_field>.
IF sy–subrc EQ 0.

<fs_current_field> = wa_file–value.
UNASSIGN <fs_current_field>.
ENDIF.

*****Finally once all Columns are processed and new row is about to start, append the workarea into Internal table

AT END OF row.
APPEND <wa_temp> TO it_xls_data.
UNASSIGN <fs_current_field>.
UNASSIGN <wa_temp>.
ENDAT.

ENDLOOP.
ENDIF.
ENDIF.
ENDFUNCTION.

Explanation with example:

Now simply create a structure in SE11, define Internal table of that type in report and call above FM and pass the structure name and file path and its done.

FUNCTION Z_EXCEL_LOAD.
*»———————————————————————-
*»*»Локальный интерфейс:
*»  IMPORTING
*»     VALUE(FILE_NAME) TYPE  RLGRAP-FILENAME
*»     VALUE(SHEET_NAME) TYPE  CHAR30 OPTIONAL
*»     VALUE(HEADER_ROW) TYPE  SY-TABIX DEFAULT 1
*»     VALUE(DECIMAL_SEPARATOR) TYPE  CHAR1 DEFAULT »
*»     VALUE(DATE_SEPARATOR) TYPE  CHAR1 DEFAULT »
*»     VALUE(DATE_FORMAT) TYPE  CHAR10 DEFAULT »
*»  TABLES
*»      IT_DATA
*»  EXCEPTIONS
*»      ERROR
*»———————————————————————-

  Data:
    Char_Tab,
    X_Tab type X value ’09’,
    App type OLE2_OBJECT,
    Wbs type OLE2_OBJECT,
    Wbk type OLE2_OBJECT,
    Wsh type OLE2_OBJECT,
    FileTxt type RLGRAP-FILENAME,
    it_StringData type standard table of String
      with header line,
    it_Header type standard table of String
      with header line,
    it_Line type standard table of String
      with header line,
    TempDir    type RLGRAP-FILENAME,
    Type_Fld,
    NextRow type sy-tabix,
    Error type sy-subrc,
    Begin of Excel_Parameters,
     DECIMAL_SEPARATOR,
     DATE_SEPARATOR,
     DATE_FORMAT(10),
    End of Excel_Parameters,
    Date1(4),
    Date2(4),
    Date3(4),
    OLE_subrc type sy-subrc,
    CHAR_A value ‘A’,
    CHAR_B value ‘B’.

  Field-symbols:
    <Fld>,
    <Day>,
    <Month>,
    <Year>.
  Field-symbols:
    <X>, <EI>.

*  Assign Char_Tab to <Fld> type ‘X’.
*  <Fld> = X_Tab.

  Assign CHAR_A to <X>  type ‘X’.
  Assign CHAR_B to <EI> type ‘X’.
  <EI> = <EI> — <X>.
  Assign CHAR_TAB to <X> type ‘X’.
  Clear <X>.
  <X> = X_TAB * <EI>.

  CALL FUNCTION ‘GUI_GET_DESKTOP_INFO’
    EXPORTING
      TYPE   = 4  «TmpDir
    CHANGING
      RETURN = TempDir.

  Concatenate TempDir » sy-repid ‘-‘ sy-TIMLO ‘.txt’
    into FileTxt.

  Create object App ‘Excel.Application’.
  Set property of App ‘DisplayAlerts’ = 0.
  Call method of App ‘Workbooks’ = Wbs.
  Call method of Wbs ‘Open’
    EXPORTING
      #1 = File_Name.
  Call method of App ‘ActiveWorkbook’ = Wbk.
  If not SHEET_NAME is initial.
    Call method of Wbk ‘WorkSheets’ = Wsh
      EXPORTING
        #1 = SHEET_NAME.
    Call method of Wsh ‘Select’.
  EndIf.
  Call method of Wbk ‘SaveAs’
    EXPORTING
      #1  = FileTxt
      #2  = -4158 «xlText
      #3  = »
      #4  = »
      #5  = 0
      #6  = 0
      #7  = 0
      #8  = 0
      #9  = 0
      #10 = 0
      #11 = 0
      #12 = 1.
  Call method of App ‘Quit’.
  OLE_subrc = sy-subrc.

  Free object: Wsh, Wbk, Wbs, App.

  If OLE_subrc = 0.
    Data: FileStr type string.
    FileStr = FileTxt.
    Call function ‘GUI_UPLOAD’
      EXPORTING
        FILENAME = FileStr
      TABLES
        DATA_TAB = it_StringData
      EXCEPTIONS
        OTHERS   = 17.

    If sy-subrc = 0.
      Call function ‘ZGET_EXCEL_PARAMETERS’
        IMPORTING
          DECIMAL_SEPARATOR = Excel_Parameters-DECIMAL_SEPARATOR
          DATE_SEPARATOR    = Excel_Parameters-DATE_SEPARATOR
          DATE_FORMAT       = Excel_Parameters-DATE_FORMAT.

      If DECIMAL_SEPARATOR is initial.
        DECIMAL_SEPARATOR = Excel_Parameters-DECIMAL_SEPARATOR.
      EndIf.

      If DATE_SEPARATOR is initial.
        DATE_SEPARATOR = Excel_Parameters-DATE_SEPARATOR.
      EndIf.

      If DATE_FORMAT is initial.
        DATE_FORMAT = Excel_Parameters-DATE_FORMAT.
      EndIf.

      Translate DATE_FORMAT to upper case.
      Split DATE_FORMAT at DATE_SEPARATOR into Date1 Date2 Date3.
      Case ‘DD’.
        when Date1(2).
          Assign Date1 to <Day>.
        when Date2(2).
          Assign Date2 to <Day>.
        when Date3(2).
          Assign Date3 to <Day>.
      EndCase.

      Case ‘MM’.
        when Date1(2).
          Assign Date1 to <Month>.
        when Date2(2).
          Assign Date2 to <Month>.
        when Date3(2).
          Assign Date3 to <Month>.
      EndCase.

      Case ‘YY’.
        when Date1(2).
          Assign Date1 to <Year>.
        when Date2(2).
          Assign Date2 to <Year>.
        when Date3(2).
          Assign Date3 to <Year>.
      EndCase.

      Read table it_StringData index HEADER_ROW.
      If sy-subrc = 0.
        Split it_StringData at Char_Tab into table it_Header.

        NextRow = HEADER_ROW + 1.
        Loop at it_StringData from NextRow.
          Split it_StringData at Char_Tab into table it_Line.

          Clear it_Data.
          Loop at it_Header.
            Assign component it_Header of structure it_Data to <Fld>.
            If sy-subrc = 0.
              Read table it_Line index sy-tabix.
              If sy-subrc = 0.
                Describe field <Fld> type Type_Fld.
                Case Type_Fld.
                  when ‘D’.
                    Data: Day(2), Month(2), Year(4).
                    Split it_Line at DATE_SEPARATOR into Date1 Date2 Date3.

                    If <Year> < 1900.
                      If <Year> > 53.
                        Concatenate ’19’ <Year> into <Year>.
                      Else.
                        Concatenate ’20’ <Year> into <Year>.
                      EndIf.
                    EndIf.

                    <Fld>(4)   = <Year>.
                    <Fld>+4(2) = <Month>.
                    <Fld>+6(2) = <Day>.
                  when ‘P’.
                    Replace DECIMAL_SEPARATOR with ‘.’ into it_Line.
                    <Fld> = it_Line.
                  when others.
                    Perform PrepareString using it_Line.
                    <Fld> = it_Line.
                EndCase.
              EndIf.
            EndIf.
          EndLoop.
          If not it_Data is initial.
            Append it_Data.
          EndIf.
        EndLoop.
      Else.
        Error = 2.
      EndIf.
    Else.
      Error = 1.
    EndIf.
  Else.
    Error = 1.
  EndIf.

  Call function ‘GUI_DELETE_FILE’
    EXPORTING
      FILE_NAME = FileTxt
    EXCEPTIONS
      others    = 1.

  If Error <> 0.
    Raise Error.
  EndIf.

ENDFUNCTION.

FUNCTION ZGET_EXCEL_PARAMETERS.
*»———————————————————————-
*»*»Локальный интерфейс:
*»  EXPORTING
*»     REFERENCE(DECIMAL_SEPARATOR) TYPE  CHAR1
*»     REFERENCE(DATE_SEPARATOR) TYPE  CHAR1
*»     REFERENCE(DATE_FORMAT)
*»———————————————————————-

  Perform AssignCharX.

  PERFORM GET_EXCEL_DECIMAL_SEPARATOR
    USING DECIMAL_SEPARATOR.

  Perform GET_SYSTEM_DATE_SEPARATOR
    USING DATE_SEPARATOR.

  Perform GET_SYSTEM_DATE_FORMAT
    USING DATE_FORMAT.

ENDFUNCTION.

Constants:
  X_TAB(1) TYPE X VALUE ’09’,
  X_0D(1)  TYPE X VALUE ‘0D’,
  X_0A(1)  TYPE X VALUE ‘0A’.

DATA:
  CHAR_TAB type C,
  CHAR_0D  TYPE C,
  CHAR_0A  TYPE C,

  DECIMAL_POINT.

FORM AssignCharX .
  Data: L type i,
        CHAR_A value ‘A’,
        CHAR_B value ‘B’.
  Field-symbols:
    <X>, <EI>.

  Assign CHAR_A to <X>  type ‘X’.
  Assign CHAR_B to <EI> type ‘X’.
  <EI> = <EI> — <X>.

  Assign CHAR_TAB to <X> type ‘X’.
  Clear <X>.
  <X> = X_TAB * <EI>.
  Assign CHAR_0D to <X> type ‘X’.
  Clear <X>.
  <X> = X_0D * <EI>.
  Assign CHAR_0A to <X> type ‘X’.
  Clear <X>.
  <X> = X_0A * <EI>.
ENDFORM.                    » AssignCharX

FORM GET_EXCEL_DECIMAL_SEPARATOR
  USING RESULT.

  DATA:
    APP TYPE OLE2_OBJECT,
    USESYSTEMSEPARATORS(10).

  CREATE OBJECT APP ‘Excel.Application’.
  IF SY-SUBRC = 0.
    GET PROPERTY OF APP
      ‘UseSystemSeparators’ = USESYSTEMSEPARATORS.
    CALL FUNCTION ‘FLUSH’.

    IF SY-SUBRC <> 0 OR
     ( SY-SUBRC = 0 AND USESYSTEMSEPARATORS <> 0 ).

      PERFORM GET_SYSTEM_DECIMAL_SEPARATOR
        USING RESULT.
    ELSE.
      GET PROPERTY OF APP
        ‘DecimalSeparator’ = RESULT.
      CALL FUNCTION ‘FLUSH’.
    ENDIF.

    FREE OBJECT APP.
    CALL FUNCTION ‘FLUSH’.
  ENDIF.
ENDFORM.                    «GET_EXCEL_DECIMAL_SEPARATOR

FORM GET_SYSTEM_DECIMAL_SEPARATOR
  USING RESULT.

  DATA:
    HKEY_CURRENT_USER TYPE I VALUE 1.

  CALL FUNCTION ‘GUI_GET_REGVALUE’
    EXPORTING
      ROOT           = HKEY_CURRENT_USER
      KEY            = ‘Control PanelInternational’
      VALUE_NAME     = ‘sDecimal’
    CHANGING
      STRING         = RESULT
    EXCEPTIONS
      REGISTRY_ERROR = 1.
ENDFORM.                    «GET_SYSTEM_DECIMAL_SEPARATOR

FORM GET_SYSTEM_DATE_SEPARATOR
  USING RESULT.

  DATA:
    HKEY_CURRENT_USER TYPE I VALUE 1.

  CALL FUNCTION ‘GUI_GET_REGVALUE’
    EXPORTING
      ROOT           = HKEY_CURRENT_USER
      KEY            = ‘Control PanelInternational’
      VALUE_NAME     = ‘sDate’
    CHANGING
      STRING         = RESULT
    EXCEPTIONS
      REGISTRY_ERROR = 1.
ENDFORM.                    «GET_SYSTEM_DATE_SEPARATOR

FORM GET_SYSTEM_DATE_FORMAT
  USING RESULT.

  DATA:
    HKEY_CURRENT_USER TYPE I VALUE 1.

  CALL FUNCTION ‘GUI_GET_REGVALUE’
    EXPORTING
      ROOT           = HKEY_CURRENT_USER
      KEY            = ‘Control PanelInternational’
      VALUE_NAME     = ‘sShortDate’
    CHANGING
      STRING         = RESULT
    EXCEPTIONS
      REGISTRY_ERROR = 1.
ENDFORM.                    «GET_SYSTEM_DATE_FORMAT

Function ALSM_EXCEL_TO_INTERNAL_TABLE pattern details

In-order to call this FM within your sap programs, simply using the below ABAP pattern details to trigger the function call…or see the full ABAP code listing at the end of this article. You can simply cut and paste this code into your ABAP progrom as it is, including variable declarations.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'"
  EXPORTING
   FILENAME =  "
   I_BEGIN_COL =  "
   I_BEGIN_ROW =  "
   I_END_COL =  "
   I_END_ROW =  "
TABLES
   INTERN =  "
EXCEPTIONS
   INCONSISTENT_PARAMETERS = 1    UPLOAD_OLE = 2 

.

IMPORTING Parameters details for ALSM_EXCEL_TO_INTERNAL_TABLE

FILENAME —

Data type: RLGRAP-FILENAME
Optional: No
Call by Reference: No ( called with pass by value option)

I_BEGIN_COL —

Data type: I
Optional: No
Call by Reference: No ( called with pass by value option)

I_BEGIN_ROW —

Data type: I
Optional: No
Call by Reference: No ( called with pass by value option)

I_END_COL —

Data type: I
Optional: No
Call by Reference: No ( called with pass by value option)

I_END_ROW —

Data type: I
Optional: No
Call by Reference: No ( called with pass by value option)

TABLES Parameters details for ALSM_EXCEL_TO_INTERNAL_TABLE

INTERN —

Data type: ALSMEX_TABLINE
Optional: No
Call by Reference: Yes

EXCEPTIONS details

INCONSISTENT_PARAMETERS —

Data type:
Optional: No
Call by Reference: No ( called with pass by value option)

UPLOAD_OLE —

Data type:
Optional: No
Call by Reference: No ( called with pass by value option)

Copy and paste ABAP code example for ALSM_EXCEL_TO_INTERNAL_TABLE Function Module

The ABAP code below is a full code listing to execute function module POPUP_TO_CONFIRM including all data declarations. The code uses the original data declarations rather than the latest in-line data DECLARATION SYNTAX but I have included an ABAP code snippet at the end to show how declarations would look using the newer method of declaring data variables on the fly. This will allow you to compare and fully understand the new inline method. Please note some of the newer syntax such as the @DATA is not available until a later 4.70 service pack (SP8), which i why i have stuck to the origianl for this example.

ABAP code using 7.40 inline data declarations to call FM ALSM_EXCEL_TO_INTERNAL_TABLE

The below ABAP code uses the newer in-line data declarations. This allows you to see the coding differences/benefits of the later inline syntax. Please note some of the newer syntax below, such as the @DATA is not available until 4.70 EHP 8.

data loading…

related articles:http://www.cnblogs.com/caizjian/archive/2013/04/12/3016284.html

FM: ALSM_EXCEL_TO_INTERNAL_TABLE is a function for uploading Excel files, but this function has two limitations.

One is that each CELL can only import the first 50 characters, and the second is that if it exceeds 9999 lines, the line number will be initialized to start from zero

In fact, the solution is very simple, just change the field of the structure ALSMEX_TABLINE, and then COPY ALSM_EXCEL_TO_INTERNAL_TABLE to ZALSM_EXCEL_TO_INTERNAL_TABLE, and make a few changes.

In addition, if you want to upload Excel with open password protection, just modify the OLE OPEN statement.

And import the specified Sheet, etc. .

The accepted internal table of this function is an internal table of type ALSMEX_TABLINE, which only has three fields of row and column and values. If the value of excel is passed to this internal table, we need to loop to process it to the desired internal table.

Sample display:

DATA:lt_excel TYPE TABLE OF ALSMEX_TABLINE.
DATA ls_excel LIKE LINE OF lt_excel.
FIELD-SYMBOLS:<fs>.
CONSTANTS: gc_begin_row TYPE i VALUE 1,
"Beginning row of excel file
           gc_begin_col TYPE i VALUE 1,
           "Beginning column of excel file
           gc_end_row   TYPE i VALUE 999,
           "Ending row of excel file
           gc_end_col   TYPE i VALUE 999.
           "Ending column of excel file
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
  EXPORTING
    filename                      = p_file
    i_begin_col                   = gc_begin_row
    i_begin_row                   = gc_begin_col
    i_end_col                     = gc_end_row
    i_end_row                     = gc_end_col
  TABLES
    intern                        = lt_excel
* EXCEPTIONS
*   INCONSISTENT_PARAMETERS       = 1
*   UPLOAD_OLE                    = 2
*   OTHERS                        = 3
          .
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
LOOP AT lt_excel INTO ls_excel.
  IF  ls_excel-col = 1.
            CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'         "Material code plus leading 0.
          EXPORTING
            input        = ls_excel-value
          IMPORTING
            output       = ls_excel-value
          EXCEPTIONS
            length_error = 1
            OTHERS       = 2.
  ENDIF.

  ASSIGN COMPONENT ls_excel-col OF STRUCTURE  gs_tab to <fs>. Assign the fields in the work area gs_tab to the field symbol, and the fields in the work area gs_tab depend on the column ls_excel- in the inner tablecol
  CONDENSE ls_excel-value.                  "  Remove spaces
  <fs> = ls_excel-value.
  at end of row.                                    "If it is the last line, save the workspace gs_tab to the internal table gt_tab
        "gs_tab-row = ls_excel-row.
        APPEND gs_tab TO gt_tab.
        CLEAR: gs_tab.

      ENDAT.

ENDLOOP.

*&---------------------------------------------------------------------*
*& Report  UPLOAD_EXCEL                                                *
*&---------------------------------------------------------------------*
*& Upload and excel file into an internal table using the following    *
*& function module: ALSM_EXCEL_TO_INTERNAL_TABLE                       *
*&---------------------------------------------------------------------*
REPORT  UPLOAD_EXCEL no standard page heading.
*Data Declaration
*----------------
data: itab like alsmex_tabline occurs 0 with header line.
* Has the following format:
*             Row number   | Colum Number   |   Value
*             ---------------------------------------
*      i.e.     1                 1             Name1
*               2                 1             Joe
TYPES: Begin of t_record,
    name1 like itab-value,
    name2 like itab-value,
    age   like itab-value,
    End of t_record.
DATA: it_record type standard table of t_record initial size 0,
      wa_record type t_record.
DATA: gd_currentrow type i.
*Selection Screen Declaration
*----------------------------
PARAMETER p_infile like rlgrap-filename.
************************************************************************
*START OF SELECTION
 call function 'ALSM_EXCEL_TO_INTERNAL_TABLE'
       exporting
            filename                = p_infile
            i_begin_col             = '1'
            i_begin_row             = '2'  "Do not require headings
            i_end_col               = '14'
            i_end_row               = '31'
       tables
            intern                  = itab
       exceptions
            inconsistent_parameters = 1
            upload_ole              = 2
            others                  = 3.
  if sy-subrc <> 0.
    message e010(zz) with text-001. "Problem uploading Excel Spreadsheet
  endif.
* Sort table by rows and colums
  sort itab by row col.
* Get first row retrieved
  read table itab index 1.
* Set first row retrieved to current row
  gd_currentrow = itab-row.
  loop at itab.
*   Reset values for next row
    if itab-row ne gd_currentrow.
      append wa_record to it_record.
      clear wa_record.
      gd_currentrow = itab-row.
    endif.
    case itab-col.
      when '0001'.                              "First name
        wa_record-name1 = itab-value.
      when '0002'.                              "Surname
        wa_record-name2 = itab-value.
      when '0003'.                              "Age
        wa_record-age   = itab-value.
    endcase.
  endloop.
  append wa_record to it_record.
*!! Excel data is now contained within the internal table IT_RECORD
* Display report data for illustration purposes
  loop at it_record into wa_record.
    write:/     sy-vline,
           (10) wa_record-name1, sy-vline,
           (10) wa_record-name2, sy-vline,
           (10) wa_record-age, sy-vline.
  endloop.

Потому что «ALSM_EXCEL_TO_INTERNAL_TABLE» ограничивает общее количество импортируемых строк.

FUNCTION ZALSM_EXCEL_TO_INTERNAL_TABLE.
*»———————————————————————-
««Локальный интерфейс:
*” IMPORTING
*» VALUE(FILENAME) LIKE RLGRAP-FILENAME
*» VALUE(I_BEGIN_COL) TYPE I
*» VALUE(I_BEGIN_ROW) TYPE I
*» VALUE(I_END_COL) TYPE I
*» VALUE(I_END_ROW) TYPE I
*» REFERENCE(I_SHEET) TYPE I OPTIONAL
*» TABLES
*» INTERN STRUCTURE ZALSMEX_TABLINE
*» EXCEPTIONS
*» INCONSISTENT_PARAMETERS
*» UPLOAD_OLE
*»———————————————————————-

DATA: excel_tab TYPE ty_t_sender.
DATA: ld_separator TYPE c.
DATA: application TYPE ole2_object,
workbook TYPE ole2_object,
range TYPE ole2_object,
worksheet TYPE ole2_object.
DATA: h_cell TYPE ole2_object,
h_cell1 TYPE ole2_object.
DATA:
ld_rc TYPE i.

• Rückgabewert der Methode «clipboard_export «

• Makro für Fehlerbehandlung der Methods
  DEFINE m_message.
  case sy-subrc.
  when 0.
  when 1.
  message id sy-msgid type sy-msgty number sy-msgno
  with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  when others. raise upload_ole.
  endcase.
  END-OF-DEFINITION.

• check parameters
  IF i_begin_row > i_end_row. RAISE inconsistent_parameters. ENDIF.
  IF i_begin_col > i_end_col. RAISE inconsistent_parameters. ENDIF.

• Get TAB-sign for separation of fields
  CLASS cl_abap_char_utilities DEFINITION LOAD.
  ld_separator = cl_abap_char_utilities=>horizontal_tab.

• open file in Excel
  IF application-header = space OR application-handle = -1.
  CREATE OBJECT application ‘Excel.Application’.
  m_message.
  ENDIF.
  CALL METHOD OF application ‘Workbooks’ = workbook.
  m_message.
  CALL METHOD OF workbook ‘Open’ EXPORTING #1 = filename.
  m_message.

• set property of application ‘Visible’ = 1.

• m_message.

IF i_sheet IS NOT INITIAL.
CALL METHOD OF application ‘Sheets’ = worksheet EXPORTING #1 = i_sheet.
CALL METHOD OF worksheet ‘Activate’.

• CALL METHOD OF worksheet ‘ACTIVESHEET’.
  ELSE.
  GET PROPERTY OF application ‘ACTIVESHEET’ = worksheet.
  ENDIF.

• GET PROPERTY OF application ‘ACTIVESHEET’ = worksheet.

m_message.

• mark whole spread sheet
  CALL METHOD OF worksheet ‘Cells’ = h_cell
  EXPORTING #1 = i_begin_row #2 = i_begin_col.
  m_message.
  CALL METHOD OF worksheet ‘Cells’ = h_cell1
  EXPORTING #1 = i_end_row #2 = i_end_col.
  m_message.

  CALL METHOD OF worksheet ‘RANGE’ = range
  EXPORTING #1 = h_cell #2 = h_cell1.
  m_message.
  CALL METHOD OF range ‘SELECT’.
  m_message.

• copy marked area (whole spread sheet) into Clippboard
  CALL METHOD OF range ‘COPY’.
  m_message.

• read clipboard into ABAP
  CALL METHOD cl_gui_frontend_services=>clipboard_import
  IMPORTING
  data = excel_tab
  EXCEPTIONS
  cntl_error = 1

• ERROR_NO_GUI         = 2
  

• NOT_SUPPORTED_BY_GUI = 3
  OTHERS     = 4.
  

  IF sy-subrc <> 0.
  MESSAGE a037(alsmex).
  ENDIF.

  PERFORM separated_to_intern_convert TABLES excel_tab intern
  USING ld_separator.

• clear clipboard
  REFRESH excel_tab.
  CALL METHOD cl_gui_frontend_services=>clipboard_export
  IMPORTING
  data = excel_tab
  CHANGING
  rc = ld_rc
  EXCEPTIONS
  cntl_error = 1

• ERROR_NO_GUI         = 2
  

• NOT_SUPPORTED_BY_GUI = 3
  OTHERS     = 4.
  

• quit Excel and free ABAP Object — unfortunately, this does not kill

• the Excel process
  CALL METHOD OF application ‘QUIT’.
  m_message.

• Begin of change note 575877

• to kill the Excel process it’s necessary to free all used objects
  FREE OBJECT h_cell. m_message.
  FREE OBJECT h_cell1. m_message.
  FREE OBJECT range. m_message.
  FREE OBJECT worksheet. m_message.
  FREE OBJECT workbook. m_message.
  FREE OBJECT application. m_message.

• <<<<< End of change note 575877
  ENDFUNCTION.