05-08-2006 3:08 PM
Hi,
Can any one help me in getting Function module
for uploading Excel data.
Other than WS_*.
Thanks,
zia.
05-08-2006 3:11 PM
hi zakhir,
use fm ALSM_EXCEL_TO_INTERNAL_TABLE
hope this helps,
priya.
05-08-2006 3:11 PM
hi zakhir,
use fm ALSM_EXCEL_TO_INTERNAL_TABLE
hope this helps,
priya.
05-08-2006 3:11 PM
Hi Zakir,
This may help you "ALSM_EXCEL_TO_INTERNAL_TABLE".
Thanks and Regards,
Bharat Kumar Reddy.V
05-08-2006 3:11 PM
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
05-08-2006 3:11 PM
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
05-08-2006 3:16 PM
05-08-2006 3:18 PM
Use
call method CL_GUI_FRONTEND_SERVICES=>gui_upload
exporting
FILENAME = 'C:/test.xls'
FILETYPE = 'ASC'
CHANGING
DATA_TAB = DATA_TAB.
Regards,
Ravi
05-08-2006 3:23 PM
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