Function module for uploading Excel data.

[Former Member]

Hi,

Can any one help me in getting Function module

for uploading Excel data.

Other than WS_*.

Thanks,

zia.

[Former Member]

hi zakhir,

use fm ALSM_EXCEL_TO_INTERNAL_TABLE

hope this helps,

priya.

[Former Member]

Hi Zakir,

This may help you "ALSM_EXCEL_TO_INTERNAL_TABLE".

Thanks and Regards,

Bharat Kumar Reddy.V

[Former Member]

try with GUI_UPLOAD

data: begin of itab occurs 0,
      fl1(10) type c,
      fl2(10) type c,
      fl3(10)  type c,
      end of itab.
 
call function 'GUI_UPLOAD'
  exporting
    filename            = 'C:test.txt'
    filetype            = 'ASC'
    has_field_separator = 'X'
  tables
    data_tab            = itab.
 
loop at itab.
 
  write:/ itab-fl1, itab-fl2, itab-fl3.
endloop.

Message was edited by: Sekhar

[Former Member]

Hi Zakir,

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

EXPORTING

FILENAME = P_PFILE

I_BEGIN_COL = *

I_BEGIN_ROW = *

I_END_COL = *

I_END_ROW = 6000

TABLES

INTERN = IT_tab

EXCEPTIONS

INCONSISTENT_PARAMETERS = 1

UPLOAD_OLE = 2

OTHERS = 3.

DATA : IT_tab LIKE ALSMEX_TABLINE OCCURS 0 WITH

HEADER LINE,

<b>Where P_File is from</b>

CALL FUNCTION 'F4_FILENAME'

EXPORTING

PROGRAM_NAME = SYST-CPROG

DYNPRO_NUMBER = SYST-DYNNR

FIELD_NAME = ' '

IMPORTING

FILE_NAME = P_PFILE.

this would help you.

Thanks,

Sudhar

[Former Member]

Hi zakir

check this link

Regards,

naveen

[Former Member]

Use

call method CL_GUI_FRONTEND_SERVICES=>gui_upload

exporting

FILENAME = 'C:/test.xls'

FILETYPE = 'ASC'

CHANGING

DATA_TAB = DATA_TAB.

Regards,

Ravi

[Former Member]

Hi,

This is a working code.

REPORT zexceltabc.

PARAMETERS: filename LIKE rlgrap-filename,

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.

PARAMETERS: kzheader AS CHECKBOX.

DATA: BEGIN OF intern OCCURS 0.

INCLUDE STRUCTURE alsmex_tabline.

DATA: END OF intern.

DATA: BEGIN OF intern1 OCCURS 0.

INCLUDE STRUCTURE alsmex_tabline.

DATA: END OF intern1.

DATA: BEGIN OF t_col OCCURS 0,

col LIKE alsmex_tabline-col,

size TYPE i.

DATA: END OF t_col.

DATA: zwlen TYPE i,

zwlines TYPE i.

DATA: BEGIN OF fieldnames OCCURS 3,

title(60),

table(6),

field(10),

kz(1),

END OF fieldnames.

DATA: BEGIN OF data_tab OCCURS 0,

value_0001(50),

value_0002(50),

value_0003(50),

value_0004(50),

value_0005(50),

value_0006(50),

value_0007(50),

value_0008(50),

value_0009(50),

value_0010(50),

value_0011(50),

value_0012(50),

value_0013(50),

value_0014(50),

value_0015(50),

value_0016(50),

value_0017(50),

value_0018(50),

value_0019(50),

value_0020(50),

value_0021(50),

value_0022(50),

value_0023(50),

value_0024(50),

value_0025(50),

value_0026(50),

value_0027(50),

value_0028(50),

value_0029(50),

value_0030(50),

value_0031(50),

value_0032(50),

value_0033(50),

value_0034(50),

value_0035(50),

value_0036(50),

value_0037(50),

value_0038(50),

value_0039(50),

value_0040(50),

value_0041(50),

value_0042(50),

value_0043(50),

value_0044(50),

value_0045(50),

value_0046(50),

value_0047(50),

value_0048(50),

value_0049(50),

value_0050(50),

value_0051(50),

value_0052(50),

value_0053(50),

value_0054(50),

value_0055(50),

value_0056(50),

value_0057(50),

value_0058(50),

value_0059(50),

value_0060(50),

value_0061(50),

value_0062(50),

value_0063(50),

value_0064(50),

value_0065(50),

value_0066(50),

value_0067(50),

value_0068(50),

value_0069(50),

value_0070(50),

value_0071(50),

value_0072(50),

value_0073(50),

value_0074(50),

value_0075(50),

value_0076(50),

value_0077(50),

value_0078(50),

value_0079(50),

value_0080(50),

value_0081(50),

value_0082(50),

value_0083(50),

value_0084(50),

value_0085(50),

value_0086(50),

value_0087(50),

value_0088(50),

value_0089(50),

value_0090(50),

value_0091(50),

value_0092(50),

value_0093(50),

value_0094(50),

value_0095(50),

value_0096(50),

value_0097(50),

value_0098(50),

value_0099(50),

value_0100(50).

DATA: END OF data_tab.

DATA: tind(4) TYPE n.

DATA: zwfeld(19).

FIELD-SYMBOLS: 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

END-OF-SELECTION.

• max. Feldlänge je Spalte ermitteln...

LOOP AT intern.

intern1 = intern.

CLEAR intern1-row.

APPEND intern1.

ENDLOOP.

SORT intern1 BY col.

LOOP AT intern1.

AT NEW col.

t_col-col = intern1-col.

APPEND t_col.

ENDAT.

zwlen = strlen( intern1-value ).

READ TABLE t_col WITH KEY col = intern1-col.

IF sy-subrc EQ 0.

IF zwlen > t_col-size.

t_col-size = zwlen.

MODIFY t_col INDEX sy-tabix.

ENDIF.

ENDIF.

ENDLOOP.

• max. Spaltenanzahl ermitteln.

DESCRIBE TABLE t_col LINES zwlines.

• wenn die 1. Zeile die Spaltenüberschriften enthält...

SORT intern BY row col.

IF kzheader = 'X'.

LOOP AT intern.

fieldnames-title = intern-value.

APPEND fieldnames.

AT END OF row. " Ende der 1. Zeile

EXIT.

ENDAT.

ENDLOOP.

ELSE.

DO zwlines TIMES.

WRITE sy-index TO fieldnames-title.

APPEND fieldnames.

ENDDO.

ENDIF.

• Data_tab füllen ...

SORT intern BY row col.

LOOP AT intern.

IF kzheader = 'X'

AND intern-row = 1.

CONTINUE.

ENDIF.

tind = intern-col.

CONCATENATE 'DATA_TAB-VALUE_' tind INTO zwfeld.

ASSIGN (zwfeld) TO

Regards,

Amit Mishra