主页 > 云主机 > > 正文

百度云_阿里云平台_学生机

来源:胜利云 发布时间:2021-08-25 12:37 标签:阿里生机百度平台
浏览:

百度云_阿里云平台_学生机

In SRM we cannot use many functional modules which we have used in ECC ( GUI_UPLOAD / ALSM_EXCEL …) to read excel data to internal table .

I will show the coding where we can pass excel date to internal table by reading column by column and row by row .

DATA : gv_fname1 TYPE string.

CONSTANTS: tabu TYPE x VALUE 9. FIELD-SYMBOLS: . DATA: sep(1). DATA : v_len TYPE i, v_uscore TYPE c VALUE ‘_’, v_bukrs_chk TYPE string, v_bukrs_len TYPE string, v_cat_strlen TYPE i, cnt TYPE i VALUE 0, v_char TYPE c, v_flag TYPE i, v_delimit(50) TYPE c VALUE ‘~!@#$%^&*()_+-={}|[]\:"/;?,.’, v_deliv_pad(10) TYPE n, v_asset(8) TYPE n, v_sep(1) TYPE c VALUE ‘/’, v_message TYPE string, v_temp TYPE sy–tabix, lx_user TYPE usr02, lv_htype LIKE dd01v–datatype.

SELECTION-SCREEN  BEGIN OF BLOCK b1 WITH FRAME TITLE text–001. SELECTION-SCREEN SKIP 1. PARAMETERS:  p_file1 LIKE rlgrap–filename OBLIGATORY. SELECTION-SCREEN  END   OF BLOCK b1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file1. PERFORM get_filename USING p_file1.

START-OF-SELECTION. IF NOT p_file1 IS INITIAL. gv_fname1  = p_file1. PERFORM call_excel TABLES lt_data USING gv_fname1 1 1 9999 100. ENDIF.

*&———————————————————————* *&      Form  GET_FILENAME *&———————————————————————* *       text *———————————————————————-* *      –>P_P_FILE1  text *———————————————————————-* FORM get_filename  USING    lv_file . "p_p_file1.

CALL FUNCTION ‘WS_FILENAME_GET’ EXPORTING def_filename     = space def_path         = space mask             = ‘,*.*,*.*.’ mode             = space title            = space IMPORTING filename         = lv_file *          RC               = EXCEPTIONS inv_winsys       = 1 no_batch         = 2 selection_cancel = 3 selection_error  = 4 OTHERS           = 5. ENDFORM.                    " GET_FILENAME

*&———————————————————————* *&      Form  CALL_EXCEL *&———————————————————————* *       text *———————————————————————-* *      –>P_LT_DATA  text *      –>P_GV_FNAME1  text *      –>P_1      text *      –>P_1      text *      –>P_9999   text *      –>P_100    text *———————————————————————-* FORM call_excel  TABLES   lt_data USING value(arch) value(fila_1) value(col_1) value(fila_2) value(col_2).

DATA: excel_line(4096) OCCURS 10 WITH HEADER LINE. DATA: app TYPE obj_record, workbook TYPE obj_record, worksheet TYPE obj_record, cell_1  TYPE obj_record, cell_2 TYPE obj_record, range TYPE obj_record.

CREATE OBJECT app ‘EXCEL.APPLICATION’. IF sy–subrc NE 0. " error. EXIT. ENDIF.

CALL METHOD OF app ‘WORKBOOKS’ = workbook. CALL METHOD OF workbook ‘OPEN’ EXPORTING #1 = arch.

IF sy–subrc NE 0. WRITE:/ ‘Error en excel’. ENDIF.

GET PROPERTY OF app ‘ACTIVESHEET’ = worksheet.

CALL METHOD OF worksheet ‘Cells’ = cell_1 EXPORTING #1 = fila_1 #2 = col_1.

CALL METHOD OF worksheet ‘Cells’ = cell_2 EXPORTING #1 = fila_2 #2 = col_2.

CALL METHOD OF worksheet ‘RANGE’ = range EXPORTING #1 = cell_1 #2 = cell_2.

CALL METHOD OF range ‘SELECT’. CALL METHOD OF range ‘COPY’.

CALL FUNCTION ‘CLPB_IMPORT’ TABLES data_tab   = excel_line EXCEPTIONS clpb_error = 1 OTHERS     = 2. ASSIGN sep TO TYPE ‘X’. = tabu.

PERFORM delimit_columns TABLES excel_line lt_data USING sep.

SET PROPERTY OF app ‘CutCopyMode’ = 0.

CALL METHOD OF app ‘QUIT’. FREE OBJECT app.

ENDFORM.                    " CALL_EXCEL *&———————————————————————* *&      Form  DELIMIT_COLUMNS *&———————————————————————* *       text *———————————————————————-* *      –>P_EXCEL_LINE  text *      –>P_LT_DATA  text *      –>P_SEP  text *———————————————————————-* FORM delimit_columns   TABLES excel_line itab USING sep. DATA: BEGIN OF xls OCCURS 5, value(1024), END OF xls. DATA: len TYPE i. LOOP AT excel_line. SHIFT excel_line LEFT DELETING LEADING sep. SHIFT excel_line LEFT DELETING LEADING ‘ ‘. CONDENSE excel_line. len = STRLEN( excel_line ).

IF len EQ 0. CONTINUE. ENDIF.

SPLIT excel_line AT sep INTO TABLE xls. LOOP AT xls. ASSIGN COMPONENT sy–tabix OF STRUCTURE itab TO . = xls–value. ENDLOOP. APPEND itab. CLEAR itab. REFRESH xls. *  ENDIF. ENDLOOP.

ENDFORM.                    " DELIMIT_COLUMNS

,易淘客,永久免费自助建站平台,游戏返利,人工智能软件下载,免费的数据分析软件
发表评论
验证码: 点击我更换图片

注:网友评论仅供其表达个人看法,并不代表本站立场。

热门文章

  • 域名备案_阿里云销售顾问_最新活动
    <strong>域名备案_阿里云销售顾问_最新活动</strong>

    域名备案_阿里云销售顾问_最新活动

    高速互联网和功能强大的应用程序使得几乎所有有办公桌工作的人都可以在家工作。然而今天,大多数公司仍然坚持要求员工忍受有时令人心碎的上下班路...

  • 数据库_分布式消息中间件实践pdf_免费领
    <strong>数据库_分布式消息中间件实践pdf_免费领</strong>

    数据库_分布式消息中间件实践pdf_免费领

    作者:马库斯·瓦纳关于2017年趋势的讨论正在迅速而激烈地展开,职场也不例外。随着新的一年即将到来,职场趋势专家们正在为2017年列出自己的预测清单...

  • 域名注册_自考数据库_免费6个月
    <strong>域名注册_自考数据库_免费6个月</strong>

    域名注册_自考数据库_免费6个月

    正如Facebook和Twitter首席运营官(COO)上周在美国国会作证时所说,出现的一个突出主题是,这些公司在保护其平台免受网络攻击方面所扮演的角色。这些公...

  • 域名解析_阿里云是什么意思_怎么买
    <strong>域名解析_阿里云是什么意思_怎么买</strong>

    域名解析_阿里云是什么意思_怎么买

    类别工作日新闻与文化财务人力资源规划技术创新分析与见解客户和社区行业金融服务政府保健高等教育款待媒体和娱乐专业和商业服务零售技术更多播客...

  • 网站服务器_王者荣耀服务器未响应_限时
    网站服务器_王者荣耀服务器未响应_限时

    网站服务器_王者荣耀服务器未响应_限时

    日本甲骨文公司今天宣布,ISOU项目采用甲骨文区块链平台管理一种本币的发行和消费。日本甲骨文公司是ISOU项目的支持公司,该项目旨在解决人口稀少地...

云储存

更多 >
  • <strong>数据库_电脑怎么连接云服务器_代金券</strong>
    数据库_电脑怎么连接云服务器_代金券

    本周早些时候,我对拉尔夫·纳德(ralphnader)关于自动驾驶汽车的评论表示异议。纳德先生说,他们是下一个"高速公路上的危险"。他的立场是,无人驾驶...

  • <strong>香港带宽_青海企业网站建设_新注册优惠</strong>
    香港带宽_青海企业网站建设_新注册优惠

    如果你曾经住院过,你就会知道护理人员会定期到你的床边进行一系列常规观察——通常是每小时一次。这些通常包括测量和记录你的血压、体温、心率和...

云储存谷歌云_wps百度云_排行榜
云储存金山云_锁链战记数据库_限时特惠
云储存大带宽_云服务器建网站_年度促销
云储存数据库服务器_剑灵无法连接服务器_最新
云储存企业网站_数据库sql_优惠券