topic Re: upload data from excel to screen in Application Development and Automation Discussions

upload data from excel to screen

Former Member — Mon, 28 Jul 2008 08:47:06 GMT

I have created one Table Maintanence Generator with only one screen (Table control ). Here i have to upload data from excel to table control. How to upload data from excel to table control.

Re: upload data from excel to screen

andreas_mann3 — Mon, 28 Jul 2008 11:08:12 GMT

here's a prg. to load data (formatted for SAP!) in customer tables http://www.a-saph.de/etc/ZLOADZTABLE.txt

Re: upload data from excel to screen

Former Member — Mon, 28 Jul 2008 11:14:58 GMT

hi,

Let say your table control contains the internal table (ITAB) fields. In PBO upload the data From desktop to the ITAB using FM 'GUI_UPLOAD' specifying the loaction , file name and type and in tables ITAB .

Re: upload data from excel to screen

Former Member — Mon, 28 Jul 2008 11:17:30 GMT

Hi,

Upload the excel data to the internal table using Function Module 'GUI_UPLOAD' and than transfer this internal table to the table control.

I hope this answer help you.

Thanks,

Khushbu.

Re: upload data from excel to screen

vinod_vemuru2 — Mon, 28 Jul 2008 11:19:21 GMT

Hi,

Use this code to get data from excel to internal table. Later put the logic in PBO of the screen to fill the table control from internal table.


PARAMETERS: po_file TYPE rlgrap-filename DEFAULT 'E:test.xls'.
TYPES: BEGIN OF t_final,
          empno(10) TYPE c,
          name(30) TYPE c,
          state(25) TYPE c,
       END OF t_final.
PARAMETERS: po_file TYPE rlgrap-filename.
DATA: i_tab    TYPE STANDARD TABLE OF alsmex_tabline,
      i_final  TYPE STANDARD TABLE OF t_final,
      wa_tab   TYPE alsmex_tabline,
      wa_final TYPE t_final.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR po_file.
PERFORM open_folder.

START-OF-SELECTION.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
     EXPORTING
          filename                = po_file
          i_begin_col             = 1
          i_begin_row             = 1
          i_end_col               = 3
          i_end_row               = 65256
     TABLES
          intern                  = i_tab
     EXCEPTIONS
          inconsistent_parameters = 1
          upload_ole              = 2
          OTHERS                  = 3.

CHECK NOT i_tab[] IS INITIAL.

LOOP AT i_tab INTO wa_tab.
  CASE wa_tab-col.
    WHEN 1.
      wa_final-empno = wa_tab-value.
    WHEN 2.
      wa_final-name = wa_tab-value.
    WHEN 3.
      wa_final-state = wa_tab-value.
  ENDCASE.
  AT END OF row.
    APPEND wa_final TO i_final.
    CLEAR wa_final.
  ENDAT.
ENDLOOP.
*
FORM open_folder .
  DATA: li_file  TYPE TABLE OF sdokpath,
        lwa_file TYPE sdokpath.
  CLEAR: p_fname, lwa_file.
  REFRESH li_file[].
  CALL FUNCTION 'TMP_GUI_FILE_OPEN_DIALOG'
       TABLES
            file_table = li_file
       EXCEPTIONS
            cntl_error = 1
            OTHERS     = 2.
  IF sy-subrc IS INITIAL.
    READ TABLE li_file INTO lwa_file INDEX 1.
    IF sy-subrc IS INITIAL.
     p_fname = lwa_file-pathname.
    ENDIF.
  ENDIF.
ENDFORM.                    " open_folder

Thanks,

Vinod.

Edited by: Vinod Reddy Vemuru on Jul 28, 2008 4:50 PM