Reading data in a tab in an excel sheet

Question

Hi,
I would like to read the data in an excel sheet and upload into an internal table for processing. I was able to do it using function module ALSM_EXCEL_TO_INTERNAL_TABLE but I am not able to read a particular tab. My excel sheet has tabls like A, B, C and D and I want to read only tab C. But currently, it reads data in  tab A.
regards,
Srini.

Answer 1

Pls check this and review it once. it works for 2 excel sheets in single excel file to read. Pls reward me if its helpful.  Thanks !
   FUNCTION z_uploading_from_2sheets.
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(FILE_NAME) TYPE  RLGRAP-FILENAME
*"     REFERENCE(START_ROW_SHEET1) TYPE  I
*"     REFERENCE(START_COLUMN_SHEET1) TYPE  I
*"     REFERENCE(START_ROW_SHEET2) TYPE  I
*"     REFERENCE(START_COLUMN_SHEET2) TYPE  I
*"     REFERENCE(END_ROW_SHEET1) TYPE  I
*"     REFERENCE(END_COLUMN_SHEET1) TYPE  I
*"     REFERENCE(END_ROW_SHEET2) TYPE  I
*"     REFERENCE(END_COLUMN_SHEET2) TYPE  I
*"  TABLES
*"      IT_DATA1 STRUCTURE  ALSMEX_TABLINE
*"      ALSMEX_TABLINE STRUCTURE  ALSMEX_TABLINE
*"  EXCEPTIONS
*"      INCONSISTENT_PARAMETERS
*"      UPLOAD_OLE
  TYPES: ty_t_sender(1500) TYPE c.
  DATA: excel_tab TYPE TABLE OF ty_s_senderline,
  excel_tab1 TYPE TABLE OF ty_s_senderline.
  DATA: ld_separator TYPE c.
  DATA: application TYPE ole2_object,
  workbook TYPE ole2_object,
  sheet 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.
  DATA: it_data TYPE STANDARD TABLE OF  alsmex_tabline.
*MESSAGE DEFINATION
  DEFINE m_message.
*Function Module To Upload Data From
*Excel File Into Two Internal Tables
*© 2005 SAP AG 6
    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.
*PARAMETER CHECK.
  IF start_row_sheet1 > end_row_sheet1.
    RAISE inconsistent_parameters.
  ENDIF.
  IF start_column_sheet1 > end_column_sheet1.
    RAISE inconsistent_parameters.
  ENDIF.
  IF start_row_sheet2 > end_row_sheet2.
    RAISE inconsistent_parameters.
*Function Module To Upload Data From Excel File Into Two Internal Tables
  ENDIF.
  IF start_column_sheet2 > end_column_sheet2.
    RAISE inconsistent_parameters.
  ENDIF.
  CLASS cl_abap_char_utilities DEFINITION LOAD.
  ld_separator = cl_abap_char_utilities=>horizontal_tab.
*OPENING EXCEL FILE
  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
      application
      'Workbooks' = workbook.
  m_message.
  CALL METHOD OF
      workbook
      'Open'
    EXPORTING
      #1       = file_name.
  m_message.
  CALL METHOD OF
      application
      'Worksheets' = sheet
    EXPORTING
      #1           = 1.
*Function Module To Upload Data From Excel File Into Two Internal Tables
  m_message.
  CALL METHOD OF
      application
      'Worksheets' = sheet
    EXPORTING
      #1           = 1.
  m_message.
  CALL METHOD OF
      sheet
      'Activate'.
  m_message.
  GET PROPERTY OF application 'ACTIVESHEET' = sheet.
  m_message.
*MARKING OF WHOLE SPREADSHEET
  CALL METHOD OF
      sheet
      'Cells' = h_cell
    EXPORTING
      #1      = start_row_sheet1
      #2      = start_column_sheet1.
  m_message.
  CALL METHOD OF
      sheet
      'Cells' = h_cell1
    EXPORTING
      #1      = end_row_sheet1
      #2      = end_column_sheet1.
  m_message.
  CALL METHOD OF
      sheet
      'RANGE' = range
    EXPORTING
      #1      = h_cell
      #2      = h_cell1.
  m_message.
  CALL METHOD OF
      range
      'SELECT'.
  m_message.
*Function Module To Upload Data From Excel File Into Two Internal Tables
*Copy marked area (SHEET1) 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 it_data
  USING ld_separator.
  APPEND LINES OF it_data TO it_data1.
*Function Module To Upload Data From Excel File Into Two Internal Tables
*Clear the 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.
*Working in Second Excel Work Sheet
  CALL METHOD OF
      application
      'Worksheets' = sheet
    EXPORTING
      #1           = 2.
  m_message.
  CALL METHOD OF
      sheet
      'Activate'.
  m_message.
*Function Module To Upload Data From Excel File Into Two Internal Tables
  GET PROPERTY OF application 'ACTIVESHEET' = sheet.
  m_message.
*Mark Sheet2
  CALL METHOD OF
      sheet
      'Cells' = h_cell
    EXPORTING
      #1      = start_row_sheet2
      #2      = start_column_sheet2.
  m_message.
  CALL METHOD OF
      sheet
      'Cells' = h_cell1
    EXPORTING
      #1      = end_row_sheet2
      #2      = end_column_sheet2.
  m_message.
  CALL METHOD OF
      sheet
      'RANGE' = range
    EXPORTING
      #1      = h_cell
      #2      = h_cell1.
  m_message.
  CALL METHOD OF
      range
      'SELECT'.
  m_message.
*Copy Marked Area (Sheet2) into Clippboard
  CALL METHOD OF
      range
      'COPY'.
  m_message.
*Function Module To Upload Data From Excel File Into Two Internal Tables
*Read Clipboard into ABAP
  CALL METHOD cl_gui_frontend_services=>clipboard_import
    IMPORTING
      data                 = excel_tab1
    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_tab1 IT_DATA2
  PERFORM separated_to_intern_convert TABLES excel_tab1 it_data
  USING ld_separator.
*Clear Clipboard.
  REFRESH: excel_tab1.
  APPEND LINES OF it_data TO it_data1.
  CALL METHOD cl_gui_frontend_services=>clipboard_export
*Function Module To Upload Data From Excel File Into Two Internal Tables
  IMPORTING
  data = excel_tab1
  CHANGING
  rc = ld_rc
  EXCEPTIONS
  cntl_error = 1
  error_no_gui = 2
  not_supported_by_gui = 3
  OTHERS = 4
*Leaving Application
  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.