INCONSISTENT_PARAMETERS = 1 UPLOAD_OLE = 2 OTHERS = 3 . *Write result to list IF SY-SUBRC = 0. loop at itab. write: / itab-row,itab-col,itab-value. endloop. ENDIF.
upload_ole = 2 OTHERS = 3. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. <REMOVED BY MODERATOR> prarthan Edited by: Alvaro Tejada Galindo on Apr 14, 2008 4:28 PM Reply Former Member 2008 Apr ...
* Get EXCEL-Sheet in internal table CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE' EXPORTING filename = p_file i_begin_col = '1' i_begin_row = g_begin_row i_end_col = '11' i_end_row = g_end_row TABLES intern = git_temp EXCEPTIONS inconsistent_parameters = 1 upload_ole = 2 OTH...
FORMget_filddata.file='C:\Documents and Settings\maheswari.chegu\Desktop\Materialtype.XLS'.CALLFUNCTION'ALSM_EXCEL_TO_INTERNAL_TABLE'EXPORTINGfilename=filei_begin_col='1'i_begin_row='1'i_end_col='5'i_end_row='6000'TABLESintern=xcelEXCEPTIONSinconsistent_parameters=1upload_ole=2OTHERS=3.LOOP...
_EXCEL_TO_INTERNAL_TABLE' EXPORTING FILENAME = S_FILE I_BEGIN_COL = 1 I_BEGIN_ROW = 1 I_END_COL = 19 I_END_ROW = 19 TABLES INTERN = MYITAB EXCEPTIONS INCONSISTENT_PARAMETERS = 1 UPLOAD_OLE = 2 OTHERS = 3. IF SY-SUBRC <> . * MESSAGE ID SYMSGID TYPE SY-MSGTY NUMBER SY...
h_cell1 type ole2_object. data: ld_rc type i. MESSAGE DEFINATION define m_message. case sy-subrc. when 0. when 1. message id sy-msgid type sy-msgty number sy-msgno with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. when others. raise upload_ole. endcase. end-of-definition. PARAMET...
parameters = 1 upload_ole = 2 OTHERS =3. IF sy- EQ 0. LOOP ATt_file INTO wa_. ***This Block willcreate new areato store column wisedata.wa_temp> acts asa work areawhich is completely blank atstart of new row AT NEW row CREATE DATA new_2 LIKE LINE OF <dy_table...
upload_ole. endcase. END-OF-DEFINITION.* 检查参数是否满足条件 "检查起始行是否大于行 IF i_beginrow > i_end_row RAISEinconsistent_parameters ENDIF. "检查起始列是否结束列 IF i_begin_col> i_end_col. RAISE inconsistentparameters. ENDIF.* 获取模板字段的TAB标识,即换单元格,由于...
upload_ole = 2 OTHERS = 3. IF git_temp[] IS INITIAL. EXIT. ELSE. LOOP AT git_temp INTO gwa_temp. AT NEW row. CLEAR gwa_upload. ENDAT. CASE gwa_temp-col. WHEN '1'. gwa_upload-werks = gwa_temp-value. WHEN '2'. gwa_upload-root = gwa_temp-value. WHEN '3'. gwa_upload-ma...
(I_END_ROW) TYPE INT4 *" TABLES *" INTERN STRUCTURE ZALSMEX_TABLINE *" EXCEPTIONS *" INCONSISTENT_PARAMETERS *" UPLOAD_OLE *"--- *{ INSERT ED1K900010 1 DATA: excel_tab TYPE ty_t_sender. DATA: ld_separator TYPE c. DATA: application TYPE ole2_object, workbook TYPE ole2_object,...