注册 登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

黑山老妖的博客

 
 
 

日志

 
 
关于我

主要用来存放收集的资料,几乎都是转贴的东西!感谢原作者!

Upload & Download internal table to excel  

2008-08-27 11:39:11|  分类: ABAP |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

*&---------------------------------------------------------------------*

*& Report  Z_BARRY_UPLOAD_EXCEL

*&

*&---------------------------------------------------------------------*

*& 上传Excel文件到SAP内表

*& 除此方法,还可以使用FM: ALSM_EXCEL_TO_INTERNAL_TABLE

*&---------------------------------------------------------------------*

REPORT  z_barry_upload_excel.

TYPE-POOLS: truxs.

TYPES: BEGIN OF t_datatab,

      col1(30)    TYPE c,

      col2(30)    TYPE c,

      col3(30)    TYPE c,

      END OF t_datatab.

DATA: it_datatab TYPE STANDARD TABLE OF t_datatab,

      wa_datatab TYPE t_datatab.

DATA: it_raw TYPE truxs_t_text_data.

PARAMETERS: p_file TYPE  rlgrap-filename.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

  CALL FUNCTION 'F4_FILENAME'

    EXPORTING

      field_name = 'P_FILE'

    IMPORTING

      file_name  = p_file.

START-OF-SELECTION.

  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'

    EXPORTING

*     I_FIELD_SEPERATOR        =

      i_line_header            =  'X'

      i_tab_raw_data           =  it_raw       " WORK TABLE

      i_filename               =  p_file

    TABLES

      i_tab_converted_data     = it_datatab[]    "ACTUAL DATA

   EXCEPTIONS

      conversion_failed        = 1

      OTHERS                   = 2.

  IF sy-subrc <> 0.

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

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

  ENDIF.

  LOOP AT it_datatab INTO wa_datatab.

    WRITE:/ wa_datatab-col1,

            wa_datatab-col2,

            wa_datatab-col3.

  ENDLOOP.

 

如果有Excel内Cell内容过长情况,请参考:

http://blog.chinaunix.net/u1/40527/showart_1003904.html

 

 

以Excel格式下载内表到本机

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

Report z_export_excel.

 

PARAMETERS: p_file LIKE rlgrap-filename DEFAULT 'C:\test4.xls'.

DATA: t100_lines TYPE STANDARD TABLE OF t001 WITH DEFAULT KEY.

 

SELECT * FROM t001 INTO TABLE t100_lines.

CALL FUNCTION 'SAP_CONVERT_TO_XLS_FORMAT'

     EXPORTING

          i_filename     = p_file

     TABLES

          i_tab_sap_data = t100_lines.

  评论这张
 
阅读(286)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018