Download Excel file into internal table

[Former Member]

Hi,

Let me know how to Download Excel file into internal table.

Regards,

SP

[Former Member]

Hi,

Its always gud to search before you post.

Search in SDN there are threads with code for this requirement.

use gui_upload.

I searched with "Download Excel" i got more than 150 threads

Rhea.

Edited by: rhea on Oct 15, 2008 2:36 PM

Edited by: rhea on Oct 15, 2008 2:37 PM

[sachin_mathapati]

Hi Sundeep,

Search in SDN u will find many FMs and demo programs to download excel file to internal table.

Regards,

Sachin M M

[GauthamV]

hi,

search in SCN before posting.

if you didnt find any then check this.

DATA: BEGIN OF itab OCCURS 0.
        INCLUDE STRUCTURE  alsmex_tabline.
DATA: END OF itab.

PARAMETERS: filename LIKE rlgrap-filename MEMORY ID M01,
            begcol TYPE i DEFAULT 1 NO-DISPLAY,
            begrow TYPE i DEFAULT 1 NO-DISPLAY,
            endcol TYPE i DEFAULT 100 NO-DISPLAY,
            endrow TYPE i DEFAULT 32000 NO-DISPLAY.

 CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
       EXPORTING
            filename                = 'ur filename'
            i_begin_col             = begcol
            i_begin_row             = begrow
            i_end_col               = endcol
            i_end_row               = endrow
       TABLES
            intern                  = itab
       EXCEPTIONS
            inconsistent_parameters = 1
            upload_ole              = 2
            OTHERS                  = 3.

loop at itab.
  write:/ ITAB-VALUE.
endloop.

[Former Member]

Hi Sandeep,

Hope it will help you.

It's a program to upload data and as you can see in this, it shows how to navigate between spreadsheets and cells.

REPORT z_excel_upload.

• Define Screen Container

DATA: obj_container TYPE REF TO cl_gui_custom_container.

DATA: o_error TYPE REF TO i_oi_error,

o_control TYPE REF TO i_oi_container_control,

o_document TYPE REF TO i_oi_document_proxy,

o_spreadsheet TYPE REF TO i_oi_spreadsheet.

• Data declarations.

DATA: t_files TYPE filetable,

s_files TYPE file_table,

v_doc_name TYPE char256,

v_changed TYPE int4,

v_rcode TYPE int4,

t_ranges TYPE soi_range_list,

s_ranges TYPE soi_range_item,

t_data TYPE soi_generic_table,

s_data TYPE soi_generic_item,

v_action TYPE int4.

• Initialization event.

INITIALIZATION.

CLASS c_oi_errors DEFINITION LOAD.

• Create Instance control for container

CALL METHOD c_oi_container_control_creator=>get_container_control

IMPORTING control = o_control

error = o_error.

IF o_error->has_failed = 'X'.

CALL METHOD o_error->raise_message

EXPORTING type = 'E'.

ENDIF.

• Create generic container linked to container in screen 100

CREATE OBJECT obj_container

EXPORTING

container_name = 'CONTAINER'

EXCEPTIONS

cntl_error = 1

cntl_system_error = 2

create_error = 3

lifetime_error = 4

lifetime_dynpro_dynpro_link = 5

others = 6.

IF sy-subrc <> 0.

MESSAGE e208(00) WITH 'Error creating container'.

ENDIF.

• Establish connection to GUI Control

CALL METHOD o_control->init_control

EXPORTING r3_application_name = 'Excel Document Container'

inplace_enabled = 'X'

parent = obj_container

IMPORTING error = o_error.

IF o_error->has_failed = 'X'.

CALL METHOD o_error->raise_message

EXPORTING type = 'E'.

ENDIF.

• Create Document Proxy

CALL METHOD o_control->get_document_proxy

EXPORTING document_type = soi_doctype_excel_sheet

IMPORTING document_proxy = o_document

error = o_error.

IF o_error->has_failed = 'X'.

CALL METHOD o_error->raise_message

EXPORTING type = 'E'.

ENDIF.

• Start-of-selection.

START-OF-SELECTION.

• Call dialog to navigate to file

CALL METHOD cl_gui_frontend_services=>file_open_dialog

EXPORTING

default_extension = '.xls'

file_filter = '*.xls'

initial_directory = 'C:\'

CHANGING

file_table = t_files

rc = v_rcode

user_action = v_action

EXCEPTIONS

file_open_dialog_failed = 1

cntl_error = 2

error_no_gui = 3

OTHERS = 4.

IF sy-subrc <> 0.

MESSAGE e208(00) WITH 'FILE_OPEN_DIALOG'.

ENDIF.

• Only continue if User hasn't cancelled

CHECK: v_action = 0.

• Determine filename to open Excel document

READ TABLE t_files INDEX 1 INTO s_files.

IF sy-subrc = 0.

CONCATENATE 'FILE://' s_files-filename INTO v_doc_name.

ELSE.

MESSAGE e208(00).

ENDIF. "sy-subrc = 0

• Open Spreadsheet in SAPWORKDIR

CALL METHOD o_document->open_document

EXPORTING open_inplace = 'X'

document_title = 'Excel'

document_url = v_doc_name

no_flush = ''

IMPORTING error = o_error.

IF o_error->has_failed = 'X'.

CALL METHOD o_error->raise_message

EXPORTING type = 'E'.

ENDIF.

• Open Spreadsheet interface

CALL METHOD o_document->get_spreadsheet_interface

EXPORTING no_flush = ''

IMPORTING sheet_interface = o_spreadsheet

error = o_error.

IF o_error->has_failed = 'X'.

CALL METHOD o_error->raise_message

EXPORTING type = 'E'.

ENDIF.

• Set selection for 1000 rows

CALL METHOD o_spreadsheet->set_selection

EXPORTING top = 1

left = 1

rows = '1000'

columns = '36'.

• Define Range in spreadsheet

CALL METHOD o_spreadsheet->insert_range

EXPORTING name = 'Test'

rows = '1000'

columns = '36'

no_flush = ''

IMPORTING error = o_error.

IF o_error->has_failed = 'X'.

CALL METHOD o_error->raise_message

EXPORTING type = 'E'.

ENDIF.

s_ranges-name = 'Test'.

s_ranges-rows = '1000'.

s_ranges-columns = '36'.

APPEND s_ranges TO t_ranges.

• Get data

CALL METHOD o_spreadsheet->get_ranges_data

EXPORTING all = ''

no_flush = ''

IMPORTING contents = t_data

error = o_error

CHANGING ranges = t_ranges.

IF o_error->has_failed = 'X'.

CALL METHOD o_error->raise_message

EXPORTING type = 'E'.

ENDIF.* Close document

• Close the document

CALL METHOD o_document->close_document

EXPORTING do_save = ''

no_flush = ''

IMPORTING has_changed = v_changed

error = o_error.

IF o_error->has_failed = 'X'.

CALL METHOD o_error->raise_message

EXPORTING type = 'E'.

ENDIF.

• Clear Document Resources

CALL METHOD o_document->release_document

EXPORTING no_flush = ''

IMPORTING error = o_error.

IF o_error->has_failed = 'X'.

CALL METHOD o_error->raise_message

EXPORTING type = 'E'.

ENDIF.

• Clear table of file names

FREE: t_files,

o_control.

• Display the data

LOOP AT t_data INTO s_data.

AT NEW row.

SKIP.

ENDAT.

WRITE:(10) s_data-value.

ENDLOOP.

Regards,

Nikita