excel数据导入内表示例 .

转载 2013年12月05日 16:56:31
  1. *& Report  ZEXCEL_TO_INTERNAL_TABLE  
  2. *&  
  3. *&---------------------------------------------------------------------*  
  4. *&做一个excel模版,模版头分别是 物料编号 工厂 库位,按顺序对应以下定义的内表IEXCEL  
  5. *&  
  6. *&---------------------------------------------------------------------*  
  7.   
  8. REPORT  ZEXCEL_TO_INTERNAL_TABLE.  
  9. DATA:BEGIN OF IEXCEL OCCURS 0,  
  10.   MATNR LIKE MARD-MATNR,  
  11.   WERKS LIKE MARD-WERKS,  
  12.   LGORT LIKE MARD-LGORT,  
  13.   END OF IEXCEL.  
  14. SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.  
  15.   PARAMETERS: P_FILE TYPE RLGRAP-FILENAME.  
  16.   SELECTION-SCREEN END OF BLOCK B1.  
  17.   AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.  
  18. *    取得文件名称  
  19.     PERFORM GET_FILENAME USING P_FILE.  
  20.   START-OF-SELECTION.  
  21. *  上载文件  
  22. PERFORM UPLOAD_FILE TABLES IEXCEL USING P_FILE.  
  23. PERFORM SHOWDATA.  
  24. *&---------------------------------------------------------------------*  
  25. *&      Form  GET_FILENAME  
  26. *&---------------------------------------------------------------------*  
  27. *       text  
  28. *----------------------------------------------------------------------*  
  29. *      -->P_P_FILE  text  
  30. *----------------------------------------------------------------------*  
  31. FORM GET_FILENAME  USING P_FILE.  
  32. CALL FUNCTION 'F4_FILENAME'  
  33.  EXPORTING  
  34.    PROGRAM_NAME        = SYST-CPROG  
  35.    DYNPRO_NUMBER       = SYST-DYNNR  
  36.    FIELD_NAME          = 'P_FILE'  
  37.  IMPORTING  
  38.    FILE_NAME           = P_FILE  
  39.           .  
  40.   
  41. ENDFORM.                    " GET_FILENAME  
  42. *&---------------------------------------------------------------------*  
  43. *&      Form  UPLOAD_FILE  
  44. *&---------------------------------------------------------------------*  
  45. *       text  
  46. *----------------------------------------------------------------------*  
  47. *      -->P_IEXCEL  text  
  48. *      -->P_P_FILE  text  
  49. *----------------------------------------------------------------------*  
  50. FORM UPLOAD_FILE  TABLES   IEXCEL  
  51.                              "插入正确名称 <...>  
  52.                   USING    P_FILE.  
  53.   TYPE-POOLS:TRUXS.  
  54.   DATA IT_RAW TYPE TRUXS_T_TEXT_DATA.  
  55.   CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'  
  56.     EXPORTING  
  57. *     I_FIELD_SEPERATOR          =  
  58.      I_LINE_HEADER              = 'X'  
  59.       I_TAB_RAW_DATA             = IT_RAW  
  60.       I_FILENAME                 = P_FILE  
  61.     TABLES  
  62.       I_TAB_CONVERTED_DATA       = IEXCEL  
  63. *   EXCEPTIONS  
  64. *     CONVERSION_FAILED          = 1  
  65. *     OTHERS                     = 2  
  66.             .  
  67.   IF SY-SUBRC <> 0.  
  68. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO  
  69. *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  
  70.   ENDIF.  
  71.   
  72.   
  73.   
  74. ENDFORM.                    " UPLOAD_FILE  
  75. *&---------------------------------------------------------------------*  
  76. *&      Form  SHOWDATA  
  77. *&---------------------------------------------------------------------*  
  78. *       text  
  79. *----------------------------------------------------------------------*  
  80. *  -->  p1        text  
  81. *  <--  p2        text  
  82. *----------------------------------------------------------------------*  
  83. FORM SHOWDATA .  
  84.   WRITE:/ '物料编号','工厂','库位'.  
  85.   LOOP AT IEXCEL.  
  86.     WRITE:/ IEXCEL-MATNR,IEXCEL-WERKS,IEXCEL-LGORT.  
  87.   ENDLOOP.  
  88. ENDFORM.                    " SHOWDATA  

相关文章推荐

excel数据导入内表示例

*&---------------------------------------------------------------------**& Report ZEXCEL_TO_INTERNA...

Excel数据透视表示例

  • 2014年08月25日 09:11
  • 854KB
  • 下载

大数据量高效导入数据库(以excel导入sqlserver为例)

首先想到的就是insert,采用连接Excel对象的Microsoft.ACE.OLEDB.12.0接口引擎连接到excel,然后读取到DataTable中然后每次读取一个Row,insert到数据库...

大数据量高效导入数据库(以excel导入sqlserver为例)

最近正在做一个项目,要把excel中的数据导入到sqlserver数据库中,首先想到的就是insert,采用连接Excel对象的Microsoft.ACE.OLEDB.12.0接口引擎连接到excel...

数据库导入excel数据

  • 2015年07月28日 17:33
  • 2.71MB
  • 下载

Linux下将excel数据导入到mssql数据库中的方法

本文为大家讲解的是在linux把excel文件导入到sql server数据库中的方法,感兴趣的同学参考下。 在Linux下把excel数据导入到mssql数据库中,这实在是很搞笑的一个活动!几...

java将数据导入的excel

  • 2015年10月13日 11:02
  • 4KB
  • 下载

Excel数据导入SQl数据库

  • 2015年10月22日 17:42
  • 1.23MB
  • 下载

EXCEL数据导入TIPTOP ERP 系统

测试系统TIPTOP GP 3.0 主要用到DDE API 函数 描述 DDEConnect This function opens a DDE connection...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:excel数据导入内表示例 .
举报原因:
原因补充:

(最多只允许输入30个字)