upload file to application server

[Former Member]

hi how to load a ecel file to application server

[Former Member]

hi

REPORT ZSD_EXCEL2.

types: begin of ttab ,

fld1(30) type c,

fld2(30) type c,

fld3(30) type c,

fld4(30) type c,

fld5(30) type c,

end of ttab.

data: itab type table of ttab with header line.

selection-screen skip 1.

parameters: p_file type localfile default

'C:\test.xls'.

selection-screen skip 1.

at selection-screen on value-request for p_file.

call function 'KD_GET_FILENAME_ON_F4'

exporting

static = 'X'

changing

file_name = p_file.

start-of-selection.

clear itab. refresh itab.

perform upload_data.

loop at itab.

write:/ itab-fld1, itab-fld2, itab-fld3, itab-fld4, itab-fld5.

endloop.

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

• Upload_Data

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

form upload_data.

data: file type rlgrap-filename.

data: xcel type table of alsmex_tabline with header line.

file = p_file.

call function 'ALSM_EXCEL_TO_INTERNAL_TABLE'

exporting

filename = file

i_begin_col = '1'

i_begin_row = '1'

i_end_col = '200'

i_end_row = '5000'

tables

intern = xcel

exceptions

inconsistent_parameters = 1

upload_ole = 2

others = 3.

loop at xcel.

case xcel-col.

when '0001'.

itab-fld1 = xcel-value.

when '0002'.

itab-fld2 = xcel-value.

when '0003'.

itab-fld3 = xcel-value.

when '0004'.

itab-fld4 = xcel-value.

when '0005'.

itab-fld5 = xcel-value.

endcase.

at end of row.

append itab.

clear itab.

endat.

endloop.

endform.

*CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'

• EXPORTING

• DEFAULTOPTION = 'N'

• TEXTLINE1 = 'The selected report already exists, do you'

• TEXTLINE2 = LC_LINE2

• TITEL = 'Report already exists'

• CANCEL_DISPLAY = SPACE

• IMPORTING

• ANSWER = LC_ANSWER

• EXCEPTIONS

• OTHERS = 1.

• ELSE.

• LC_ANSWER = 'J'.

• ENDIF.

[Former Member]

hi rahul

you can do one thing

copy the excel file to notepad.

import the notepad into a bdc session program, data are separated by a tab. then call function modules bdc_open_group, bdc_insert,and bdc_close_group.import the notepad in insert function module.

declare the type as 'DAT'.

please award me points.

thanks

devashish

[Former Member]

hi

Just give the file extension as .xsl in GUI_UPLOAD parameter and run the BDC program...

Regards,

James