devbox
Gausst松鼠会
这个屌丝很懒，什么也没留下！
关注作者
热门标签
热门文章
当前位置:   article > 正文

SAP根据excel表格数据将数据导入表中_sap excel导入的几种方法

作者：Gausst松鼠会 | 2024-03-27 10:35:08

赞

踩

sap excel导入的几种方法

一、创建表

首先你得有一个表，如果没有那就新建一个。
事务代码SE11，输入表名，创建。
在这里插入图片描述
交付类选择C，客户表，选择允许显示和维护。
在这里插入图片描述
添加字段，数据元素可以选择已有的，也可以新建。
在这里插入图片描述
点击保存，如何激活。
数据类根据你的表类型来选，这里我选的是事务数据，透明表，大小范畴根据你的表数据来选。
在这里插入图片描述
点击保存。
在这里插入图片描述
然后激活表，报警告不用管他。
在这里插入图片描述
表建好了。

二、编写程序

首先这是我的excel格式。
在这里插入图片描述
关键的代码如下。

FORM GETEXCEL .
  G_FILE = P_FILE.  "注意两个文件用于不同的函数，所以类型不同

  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
  EXPORTING
    FILENAME    = G_FILE
    I_BEGIN_COL = 1
    I_BEGIN_ROW = 1
    I_END_COL   = 2
    I_END_ROW   = 10000
  TABLES
    INTERN      = ITAB[].

  DELETE ITAB WHERE ROW = 1.  "删除字段名行

  LOOP AT ITAB.
    ON CHANGE OF ITAB-ROW.
    IF SY-TABIX NE 1.
      APPEND WTAB.
      CLEAR WTAB.
    ENDIF.
    ENDON.
    ASSIGN COMPONENT ITAB-COL OF STRUCTURE WTAB TO <FS>.         "动态方法将值传到相应的内表
    <FS> = ITAB-VALUE.
  ENDLOOP.
  APPEND WTAB.   "这句不要忘记，要把最后一条APPEND到内表中
  SORT WTAB BY LIFNR.

ENDFORM.                    " GETEXCEL

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29

这段代码是获取excel表格里的数据，将其存入创建的内表里。

FORM USER_COMMAND USING RF_UCOMM    LIKE SY-UCOMM
      RS_SELFIELD TYPE SLIS_SELFIELD.                       "#EC CALLED

  CASE RF_UCOMM.
  WHEN '&PRT'.
*****插入数据
    DELETE FROM ZIF_MATLFN2SFWMS.
    COMMIT WORK AND WAIT.
    "去重防错
    DELETE ADJACENT DUPLICATES FROM WTAB COMPARING LIFNR.

    INSERT ZIF_MATLFN2SFWMS FROM TABLE WTAB." ACCEPTING DUPLICATE KEYS.
    DESCRIBE TABLE WTAB LINES COUNT.
    MESSAGE S001(00) WITH  '成功上传' COUNT '条'.
  ENDCASE.
ENDFORM.                   "USER_COMMAND

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16

点击上传按钮后，将数据上传到表里，设置了一个上传按钮，需要用户自己在GUI屏幕建一个按钮。
保存，激活程序，运行。
在这里插入图片描述
输入文件路径，会先显示excel表格里的数据，点击上传按钮后，将数据上传到透明表中。
在这里插入图片描述
使用事务代码SE16/SE16N/SE11，可以查看表结构和数据。
在这里插入图片描述
数据成功上传。

三、模板文件

上传excel表格数据时，需要严格按照excel的表格格式来设置数据，因为在调用函数获取excel数据时，就已经定义好了表格格式，所以需要一个模板文件，让用户知道怎么设置标准的表格格式。

FORM DOWNLOAD_DATA USING PDESCFILE  PMODELFILE .

*&---下载模板
  PERFORM FRM_GET_FULLPATH CHANGING GV_FULLPATH GV_PATH GV_NAME PMODELFILE.
*&---路径为空则退出
  IF GV_FULLPATH IS INITIAL.
    MESSAGE '用户取消操作' TYPE 'S'.
    RETURN.
  ENDIF.
  PERFORM FRM_DOWN USING GV_FULLPATH PMODELFILE.
ENDFORM.                    " DOWNLOAD_DATA

*&---------------------------------------------------------------------*
*&      Form  FRM_GET_FULLPATH
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_GV_FULLPATH  text
*      <--P_GV_PATH  text
*      <--P_GV_NAME  text
*----------------------------------------------------------------------*
FORM FRM_GET_FULLPATH   CHANGING PV_FULLPATH TYPE STRING
  PV_PATH     TYPE STRING
  PV_NAME     TYPE STRING
  PV_MODEL TYPE STRING.

  DATA: LV_INIT_PATH  TYPE STRING,
        LV_INIT_FNAME TYPE STRING,
        LV_PATH       TYPE STRING,
        LV_FILENAME   TYPE STRING,
        LV_FULLPATH   TYPE STRING.

*&---初始名称(输出的文件名称)
*  concatenate 'Material_Doc_' SY-DATUM '.xslx' into L_INIT_FNAME.
  LV_INIT_FNAME = PV_MODEL.

* 获取桌面路径
  CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_DESKTOP_DIRECTORY
  CHANGING
    DESKTOP_DIRECTORY    = LV_INIT_PATH
  EXCEPTIONS
    CNTL_ERROR           = 1
    ERROR_NO_GUI         = 2
    NOT_SUPPORTED_BY_GUI = 3
    OTHERS               = 4.
  IF SY-SUBRC <> 0.
    EXIT.
  ENDIF.

*&---用户选择名称、路径
  CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
  EXPORTING
    WINDOW_TITLE         = PV_NAME
    DEFAULT_EXTENSION    = 'XLSX'
    DEFAULT_FILE_NAME    = LV_INIT_FNAME
*     FILE_FILTER          = CL_GUI_FRONTEND_SERVICES=>FILETYPE_EXCEL
*     FILE_FILTER          = CL_GUI_FRONTEND_SERVICES=>FILETYPE_WORD
    INITIAL_DIRECTORY    = LV_INIT_PATH
    PROMPT_ON_OVERWRITE  = 'X'
  CHANGING
    FILENAME             = LV_FILENAME
    PATH                 = LV_PATH
    FULLPATH             = LV_FULLPATH
*     USER_ACTION          =
*     FILE_ENCODING        =
  EXCEPTIONS
    CNTL_ERROR           = 1
    ERROR_NO_GUI         = 2
    NOT_SUPPORTED_BY_GUI = 3
    OTHERS               = 4.
  IF SY-SUBRC = 0.
    PV_FULLPATH = LV_FULLPATH.
    PV_PATH     = LV_PATH.
  ENDIF.
ENDFORM.                    " FRM_GET_FULLPATH

*--------------------------------------------------------------------*
*       下载文件
*--------------------------------------------------------------------*
FORM FRM_DOWN  USING PR_FILENAME PMUBAN.
  DATA: LV_OBJDATA     LIKE WWWDATATAB,
        LV_MIME        LIKE W3MIME,
        LV_DESTINATION LIKE RLGRAP-FILENAME,
        LV_OBJNAM      TYPE STRING,
        LV_RC          LIKE SY-SUBRC,
        LV_ERRTXT      TYPE STRING.

  DATA: LV_FILENAME TYPE STRING,
        LV_RESULT,
        LV_SUBRC    TYPE SY-SUBRC.

  DATA: LV_OBJID TYPE WWWDATATAB-OBJID .


  LV_OBJID = PMUBAN.  "上传的模版名称

*&---查找文件是否存在。
  SELECT SINGLE RELID OBJID
  FROM WWWDATA
  INTO CORRESPONDING FIELDS OF LV_OBJDATA
  WHERE SRTF2    = 0
  AND   RELID    = 'MI'
  AND   OBJID    = LV_OBJID.

*&---判断模版不存在则报错
  IF SY-SUBRC NE 0 OR LV_OBJDATA-OBJID EQ SPACE.
    CONCATENATE '模板文件：' LV_OBJID '不存在，请用TCODE：SMW0进行加载'
    INTO LV_ERRTXT.
    MESSAGE LV_ERRTXT TYPE 'E'.
  ENDIF.

  LV_FILENAME = PR_FILENAME.

  "判断本地地址是否已经存在此文件。
  CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_EXIST
  EXPORTING
    FILE                 = LV_FILENAME
    RECEIVING
    RESULT               = LV_RESULT
  EXCEPTIONS
    CNTL_ERROR           = 1
    ERROR_NO_GUI         = 2
    WRONG_PARAMETER      = 3
    NOT_SUPPORTED_BY_GUI = 4
    OTHERS               = 5.
  IF SY-SUBRC <> 0.
    CASE SY-SUBRC.
    WHEN 1.
    WHEN 2.
    WHEN OTHERS.
    ENDCASE.
  ENDIF.

  IF LV_RESULT EQ 'X'.  "如果存在则删除原始文件，重新覆盖
    CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_DELETE
    EXPORTING
      FILENAME             = LV_FILENAME
    CHANGING
      RC                   = LV_SUBRC
    EXCEPTIONS
      FILE_DELETE_FAILED   = 1
      CNTL_ERROR           = 2
      ERROR_NO_GUI         = 3
      FILE_NOT_FOUND       = 4
      ACCESS_DENIED        = 5
      UNKNOWN_ERROR        = 6
      NOT_SUPPORTED_BY_GUI = 7
      WRONG_PARAMETER      = 8
      OTHERS               = 9.

    IF SY-SUBRC <> 0.
      CASE SY-SUBRC.
      WHEN 1.
      WHEN 2.
      WHEN OTHERS.
      ENDCASE.
    ENDIF.

    IF LV_SUBRC <> 0. "如果删除失败，则报错。
      CONCATENATE '同名EXCEL文件已打开' '请关闭该EXCEL后重试。'
      INTO LV_ERRTXT.
      MESSAGE LV_ERRTXT TYPE 'E'.
    ENDIF.
  ENDIF.

  LV_DESTINATION   = PR_FILENAME.

*&---下载模版。
  CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
  EXPORTING
    KEY         = LV_OBJDATA
    DESTINATION = LV_DESTINATION
  IMPORTING
    RC          = LV_RC.
  IF LV_RC NE 0.
    CONCATENATE '模板文件' '下载失败' INTO LV_ERRTXT.
    MESSAGE LV_ERRTXT TYPE 'E'.
  ENDIF.
ENDFORM.                    "frm_down

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
  • 113
  • 114
  • 115
  • 116
  • 117
  • 118
  • 119
  • 120
  • 121
  • 122
  • 123
  • 124
  • 125
  • 126
  • 127
  • 128
  • 129
  • 130
  • 131
  • 132
  • 133
  • 134
  • 135
  • 136
  • 137
  • 138
  • 139
  • 140
  • 141
  • 142
  • 143
  • 144
  • 145
  • 146
  • 147
  • 148
  • 149
  • 150
  • 151
  • 152
  • 153
  • 154
  • 155
  • 156
  • 157
  • 158
  • 159
  • 160
  • 161
  • 162
  • 163
  • 164
  • 165
  • 166
  • 167
  • 168
  • 169
  • 170
  • 171
  • 172
  • 173
  • 174
  • 175
  • 176
  • 177
  • 178
  • 179

要先将模板文件添加到事务代码SMW0中。
在这里插入图片描述
选择二进制数据，输入包，然后执行。
在这里插入图片描述
点左上角创建新的对象。
在这里插入图片描述
输入对象名称和描述，对象名称就是我们在程序里设置的。

CASE SSCRFIELDS-UCOMM.

WHEN 'BT1'.
  L_FILENAME = 'ZIF_MATLFN2SFWMS.xlsx'.
  L_MUBAN = 'ZIF_MATLFN2SFWMS'.
  PERFORM DOWNLOAD_DATA USING L_FILENAME L_MUBAN.
ENDCASE.

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7

L_FILENAME是下载模板文件时默认的文件名，L_MUBAN就是我们需要的对象名。
导入模板文件，记得把excel表格关闭，要不然会报错，然后选择包和请求，创建成功。
在这里插入图片描述
回到程序，点击模板下载，发现模板下载成功。
在这里插入图片描述

四、传输表和数据

表传输直接添加到请求就可以了，但是要注意这样只会传输表，而不会传输数据。
可以在生产环境运行程序，重新生产表格数据，也可以通过事务代码SM30来传输数据，这里我们试一下第二种方法。
进入SM30表维护，输入表名，选中全部数据。
在这里插入图片描述
左上角表视图，选择传输，选择请求将数据传输过去就可以了。
不过要记得表要设置为允许显示和和维护，否则不能使用表维护。
传输完请求后，来的生产环境，打开表，查看数据是否传输成功了。
在这里插入图片描述
传输成功。
然后我们再看一下程序运行后模板是否下载成功。
在这里插入图片描述
下载成功。

五、完整代码

*&---------------------------------------------------------------------*
*& Report  ZSF_WMS_LIFNR
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZSF_WMS_LIFNR.

TABLES:ZIF_MATLFN2SFWMS,SSCRFIELDS.
*
*定义内表类型
*
TYPES: BEGIN OF W_ITAB,
  LIFNR LIKE ZIF_MATLFN2SFWMS-LIFNR," 供应商
  NAME1 LIKE ZIF_MATLFN2SFWMS-NAME1," 供应商名称
END OF W_ITAB.

FIELD-SYMBOLS: <FS>.

DATA:
      FILETAB TYPE FILETABLE WITH HEADER LINE,
      RC TYPE I,
      G_FILE TYPE RLGRAP-FILENAME,
      ITAB TYPE TABLE OF ALSMEX_TABLINE WITH HEADER LINE.
DATA: WTAB TYPE TABLE OF W_ITAB WITH HEADER LINE.
DATA: COUNT TYPE I.
DATA:STDATUM LIKE SY-DATUM,
      STUZEIT LIKE SY-UZEIT.
DATA:L_FILENAME TYPE STRING,L_MUBAN TYPE STRING.
DATA:GV_FULLPATH TYPE STRING,GV_PATH TYPE STRING,GV_NAME TYPE STRING.

DATA:RUNNERCNT TYPE I,
      SUMRCNT TYPE I.
DATA:PDATE TYPE SY-DATUM.
*&---------------------------------------------------------------------*
*& 选择界面
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TXT1 .

  PARAMETER: P_FILE  TYPE STRING.
  SELECTION-SCREEN SKIP.
  SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN PUSHBUTTON 5(30) BUT1 USER-COMMAND BT1.
*  SELECTION-SCREEN PUSHBUTTON 40(30) but2 USER-COMMAND bt2.
  SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK BLK1.

SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK DESC WITH FRAME TITLE BLKTEXT1.
  SELECTION-SCREEN COMMENT 1(78) TXT11.
  SELECTION-SCREEN SKIP.
*  SELECTION-SCREEN COMMENT 1(78) TXT2.
*  SELECTION-SCREEN SKIP.
*  SELECTION-SCREEN COMMENT 1(78) TXT3.
*  SELECTION-SCREEN SKIP.
*  SELECTION-SCREEN COMMENT 1(78) TXT4.
*  SELECTION-SCREEN SKIP.
  SELECTION-SCREEN COMMENT 1(78) TXT5.
SELECTION-SCREEN END OF BLOCK DESC.

INITIALIZATION.
TXT1 = '请输入条件'.
CALL FUNCTION 'ICON_CREATE'
EXPORTING
  NAME                  = ICON_BW_REF_STRUCTURE_SAP
  TEXT                  = '模板下载'
  INFO                  = '模板下载'
IMPORTING
  RESULT                = BUT1
EXCEPTIONS
  ICON_NOT_FOUND        = 1
  OUTPUTFIELD_TOO_SHORT = 2
  OTHERS                = 3.


PDATE = 20200222.CLEAR SUMRCNT.
PERFORM GETRUNSTATIC(ZPRT_FI_SCCB1L) USING PDATE SY-REPID CHANGING RUNNERCNT SUMRCNT.
TXT5 = '运行情况：总共' && RUNNERCNT && '用户运行了' && SUMRCNT && '次，'.
PDATE = SY-DATUM.PDATE+4(4) = '0101'.CLEAR SUMRCNT.
PERFORM GETRUNSTATIC(ZPRT_FI_SCCB1L) USING PDATE SY-REPID CHANGING RUNNERCNT SUMRCNT.
TXT5 = TXT5 && '本年度总共' && RUNNERCNT && '用户运行了' && SUMRCNT && '次，'.
PDATE = SY-DATUM.PDATE+6(2) = '01'.CLEAR SUMRCNT.
PERFORM GETRUNSTATIC(ZPRT_FI_SCCB1L) USING PDATE SY-REPID CHANGING RUNNERCNT SUMRCNT.
TXT5 = TXT5 && '本月度总共' && RUNNERCNT && '用户运行了' && SUMRCNT && '次'.

AT SELECTION-SCREEN.

CASE SSCRFIELDS-UCOMM.

WHEN 'BT1'.
  L_FILENAME = 'ZIF_MATLFN2SFWMS.xlsx'.
  L_MUBAN = 'ZIF_MATLFN2SFWMS'.
  PERFORM DOWNLOAD_DATA USING L_FILENAME L_MUBAN.
ENDCASE.

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

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
EXPORTING
  DEFAULT_FILENAME = P_FILE
CHANGING
  RC               = RC
  FILE_TABLE       = FILETAB[].

READ TABLE  FILETAB INDEX  1.
IF SY-SUBRC EQ 0.
  P_FILE = FILETAB-FILENAME.
ENDIF.

START-OF-SELECTION.

STDATUM = SY-DATUM.
STUZEIT = SY-UZEIT.
IF P_FILE <> ''.
  PERFORM GETEXCEL."EXCEL数据获取
ELSE.
  PERFORM GETDATA."获取版本描述表中数据
ENDIF.
PERFORM WRITERPTRUNRECORD.
PERFORM DISPLAY."数据ALV输出

END-OF-SELECTION.

*&---------------------------------------------------------------------*
*&      Form  WRITERPTRUNRECORD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM WRITERPTRUNRECORD.
  GET TIME.
  CALL FUNCTION 'ZSYS_RPT_RUNRECORD'
  EXPORTING
    TCODE     = SY-TCODE
    PROGRAMM  = SY-CPROG
*     bukrs     = '1000'
    "werks  = werks
    DATUMRST  = STDATUM
    UZEITRST  = STUZEIT
    BATCH     = SY-BATCH
    DATUMREND = SY-DATUM
    UZEITREND = SY-UZEIT
    DATUMC    = '20221219'
    RUNNER    = SY-UNAME
    RPTSRC    = 'xxx'.
ENDFORM.                    "WRITERPTRUNRECORD
*&---------------------------------------------------------------------*
*&      Form  DOWNLOAD_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM DOWNLOAD_DATA USING PDESCFILE  PMODELFILE .

*&---下载模板
  PERFORM FRM_GET_FULLPATH CHANGING GV_FULLPATH GV_PATH GV_NAME PMODELFILE.
*&---路径为空则退出
  IF GV_FULLPATH IS INITIAL.
    MESSAGE '用户取消操作' TYPE 'S'.
    RETURN.
  ENDIF.
  PERFORM FRM_DOWN USING GV_FULLPATH PMODELFILE.
ENDFORM.                    " DOWNLOAD_DATA

*&---------------------------------------------------------------------*
*&      Form  FRM_GET_FULLPATH
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_GV_FULLPATH  text
*      <--P_GV_PATH  text
*      <--P_GV_NAME  text
*----------------------------------------------------------------------*
FORM FRM_GET_FULLPATH   CHANGING PV_FULLPATH TYPE STRING
  PV_PATH     TYPE STRING
  PV_NAME     TYPE STRING
  PV_MODEL TYPE STRING.

  DATA: LV_INIT_PATH  TYPE STRING,
        LV_INIT_FNAME TYPE STRING,
        LV_PATH       TYPE STRING,
        LV_FILENAME   TYPE STRING,
        LV_FULLPATH   TYPE STRING.

*&---初始名称(输出的文件名称)
*  concatenate 'Material_Doc_' SY-DATUM '.xslx' into L_INIT_FNAME.
  LV_INIT_FNAME = PV_MODEL.

* 获取桌面路径
  CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_DESKTOP_DIRECTORY
  CHANGING
    DESKTOP_DIRECTORY    = LV_INIT_PATH
  EXCEPTIONS
    CNTL_ERROR           = 1
    ERROR_NO_GUI         = 2
    NOT_SUPPORTED_BY_GUI = 3
    OTHERS               = 4.
  IF SY-SUBRC <> 0.
    EXIT.
  ENDIF.

*&---用户选择名称、路径
  CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
  EXPORTING
    WINDOW_TITLE         = PV_NAME
    DEFAULT_EXTENSION    = 'XLSX'
    DEFAULT_FILE_NAME    = LV_INIT_FNAME
*     FILE_FILTER          = CL_GUI_FRONTEND_SERVICES=>FILETYPE_EXCEL
*     FILE_FILTER          = CL_GUI_FRONTEND_SERVICES=>FILETYPE_WORD
    INITIAL_DIRECTORY    = LV_INIT_PATH
    PROMPT_ON_OVERWRITE  = 'X'
  CHANGING
    FILENAME             = LV_FILENAME
    PATH                 = LV_PATH
    FULLPATH             = LV_FULLPATH
*     USER_ACTION          =
*     FILE_ENCODING        =
  EXCEPTIONS
    CNTL_ERROR           = 1
    ERROR_NO_GUI         = 2
    NOT_SUPPORTED_BY_GUI = 3
    OTHERS               = 4.
  IF SY-SUBRC = 0.
    PV_FULLPATH = LV_FULLPATH.
    PV_PATH     = LV_PATH.
  ENDIF.
ENDFORM.                    " FRM_GET_FULLPATH

*--------------------------------------------------------------------*
*       下载文件
*--------------------------------------------------------------------*
FORM FRM_DOWN  USING PR_FILENAME PMUBAN.
  DATA: LV_OBJDATA     LIKE WWWDATATAB,
        LV_MIME        LIKE W3MIME,
        LV_DESTINATION LIKE RLGRAP-FILENAME,
        LV_OBJNAM      TYPE STRING,
        LV_RC          LIKE SY-SUBRC,
        LV_ERRTXT      TYPE STRING.

  DATA: LV_FILENAME TYPE STRING,
        LV_RESULT,
        LV_SUBRC    TYPE SY-SUBRC.

  DATA: LV_OBJID TYPE WWWDATATAB-OBJID .


  LV_OBJID = PMUBAN.  "上传的模版名称

*&---查找文件是否存在。
  SELECT SINGLE RELID OBJID
  FROM WWWDATA
  INTO CORRESPONDING FIELDS OF LV_OBJDATA
  WHERE SRTF2    = 0
  AND   RELID    = 'MI'
  AND   OBJID    = LV_OBJID.

*&---判断模版不存在则报错
  IF SY-SUBRC NE 0 OR LV_OBJDATA-OBJID EQ SPACE.
    CONCATENATE '模板文件：' LV_OBJID '不存在，请用TCODE：SMW0进行加载'
    INTO LV_ERRTXT.
    MESSAGE LV_ERRTXT TYPE 'E'.
  ENDIF.

  LV_FILENAME = PR_FILENAME.

  "判断本地地址是否已经存在此文件。
  CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_EXIST
  EXPORTING
    FILE                 = LV_FILENAME
    RECEIVING
    RESULT               = LV_RESULT
  EXCEPTIONS
    CNTL_ERROR           = 1
    ERROR_NO_GUI         = 2
    WRONG_PARAMETER      = 3
    NOT_SUPPORTED_BY_GUI = 4
    OTHERS               = 5.
  IF SY-SUBRC <> 0.
    CASE SY-SUBRC.
    WHEN 1.
    WHEN 2.
    WHEN OTHERS.
    ENDCASE.
  ENDIF.

  IF LV_RESULT EQ 'X'.  "如果存在则删除原始文件，重新覆盖
    CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_DELETE
    EXPORTING
      FILENAME             = LV_FILENAME
    CHANGING
      RC                   = LV_SUBRC
    EXCEPTIONS
      FILE_DELETE_FAILED   = 1
      CNTL_ERROR           = 2
      ERROR_NO_GUI         = 3
      FILE_NOT_FOUND       = 4
      ACCESS_DENIED        = 5
      UNKNOWN_ERROR        = 6
      NOT_SUPPORTED_BY_GUI = 7
      WRONG_PARAMETER      = 8
      OTHERS               = 9.

    IF SY-SUBRC <> 0.
      CASE SY-SUBRC.
      WHEN 1.
      WHEN 2.
      WHEN OTHERS.
      ENDCASE.
    ENDIF.

    IF LV_SUBRC <> 0. "如果删除失败，则报错。
      CONCATENATE '同名EXCEL文件已打开' '请关闭该EXCEL后重试。'
      INTO LV_ERRTXT.
      MESSAGE LV_ERRTXT TYPE 'E'.
    ENDIF.
  ENDIF.

  LV_DESTINATION   = PR_FILENAME.

*&---下载模版。
  CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
  EXPORTING
    KEY         = LV_OBJDATA
    DESTINATION = LV_DESTINATION
  IMPORTING
    RC          = LV_RC.
  IF LV_RC NE 0.
    CONCATENATE '模板文件' '下载失败' INTO LV_ERRTXT.
    MESSAGE LV_ERRTXT TYPE 'E'.
  ENDIF.
ENDFORM.                    "frm_down
*&---------------------------------------------------------------------*
*&      FORM  DISPLAY
*&---------------------------------------------------------------------*
*       TEXT 数据展示
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM DISPLAY .
  DATA: IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
        IS_VARIANT LIKE DISVARIANT,
        IT_EVENTS   TYPE SLIS_T_EVENT,
        IS_LAYOUT   TYPE SLIS_LAYOUT_ALV,
        TITLE       TYPE LVC_TITLE,
        I_CALLBACK_PROGRAM TYPE SY-REPID,
        IT_SORT     TYPE SLIS_T_SORTINFO_ALV WITH HEADER LINE
        .
  PERFORM FIELDCAT_INIT USING IT_FIELDCAT.
  PERFORM LAYOUT_INIT USING IS_LAYOUT.
  I_CALLBACK_PROGRAM = SY-REPID.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    I_CALLBACK_PROGRAM       = I_CALLBACK_PROGRAM
    I_GRID_TITLE             = TITLE
    IS_LAYOUT                = IS_LAYOUT
    I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
    I_CALLBACK_USER_COMMAND  = 'USER_COMMAND'
    IT_FIELDCAT              = IT_FIELDCAT
    IT_EVENTS                = IT_EVENTS
  TABLES
    T_OUTTAB                 = WTAB[]
  EXCEPTIONS
    PROGRAM_ERROR            = 1
    OTHERS                   = 2.
  IF SY-SUBRC <> 0.
  ENDIF.

ENDFORM.                    " DISPLAY

*&--------------------------------------------------------------------- *
*&      FORM  G_STATUS_FORM 调用自定义屏幕
*&---------------------------------------------------------------------
FORM SET_PF_STATUS  USING RT_EXTAB TYPE SLIS_T_EXTAB.
  SET PF-STATUS 'STANDARD' EXCLUDING RT_EXTAB.
ENDFORM.                    "SET_PF_STATUS

*&---------------------------------------------------------------------*
*&      FORM  FIELDCAT_INIT
*&---------------------------------------------------------------------*
*       TEXT 定义输出项
*----------------------------------------------------------------------*
*      -->P_IT_FIELDCAT  TEXT
*----------------------------------------------------------------------*
FORM FIELDCAT_INIT  USING  IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
  DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
  DATA:LOC_REPID LIKE SY-REPID.
  LOC_REPID = SY-REPID.

  LS_FIELDCAT-FIELDNAME = 'LIFNR'.
  LS_FIELDCAT-REPTEXT_DDIC  = '供应商'.
  APPEND LS_FIELDCAT TO IT_FIELDCAT.
  CLEAR LS_FIELDCAT.

  LS_FIELDCAT-FIELDNAME = 'NAME1'.
  LS_FIELDCAT-REPTEXT_DDIC  = '供应商名称'.
  APPEND LS_FIELDCAT TO IT_FIELDCAT.
  CLEAR LS_FIELDCAT.

ENDFORM.                    "FIELDCAT_INIT
" FIELDCAT_INIT
*&---------------------------------------------------------------------*
*&      FORM  LAYOUT_INIT
*&---------------------------------------------------------------------*
*       TEXT  LAYOUT属性设置，双击响应字段设置
*----------------------------------------------------------------------*
*      -->P_IS_LAYOUT  TEXT
*----------------------------------------------------------------------*
FORM LAYOUT_INIT  USING    IS_LAYOUT TYPE SLIS_LAYOUT_ALV.
  IS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
ENDFORM.                    " LAYOUT_INIT
**&--------------------------------------------------------------------*
**&      FORM  USER_COMMAND
**&--------------------------------------------------------------------*
**       TEXT
**---------------------------------------------------------------------*
**      -->RF_UCOMM   TEXT
**      -->RS_SELFIELDTEXT
**---------------------------------------------------------------------*
FORM USER_COMMAND USING RF_UCOMM    LIKE SY-UCOMM
      RS_SELFIELD TYPE SLIS_SELFIELD.                       "#EC CALLED

  CASE RF_UCOMM.
  WHEN '&PRT'.
*****插入数据
    DELETE FROM ZIF_MATLFN2SFWMS.
    COMMIT WORK AND WAIT.
    "去重防错
    DELETE ADJACENT DUPLICATES FROM WTAB COMPARING LIFNR.

    INSERT ZIF_MATLFN2SFWMS FROM TABLE WTAB." ACCEPTING DUPLICATE KEYS.
    DESCRIBE TABLE WTAB LINES COUNT.
    MESSAGE S001(00) WITH  '成功上传' COUNT '条'.
  ENDCASE.
ENDFORM.                   "USER_COMMAND
*&---------------------------------------------------------------------*
*&      FORM  GETEXCEL
*&---------------------------------------------------------------------*
*       TEXT 获取上传EXCEL文件内相关数据
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM GETEXCEL .
  G_FILE = P_FILE.  "注意两个文件用于不同的函数，所以类型不同

  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
  EXPORTING
    FILENAME    = G_FILE
    I_BEGIN_COL = 1
    I_BEGIN_ROW = 1
    I_END_COL   = 2
    I_END_ROW   = 10000
  TABLES
    INTERN      = ITAB[].

  DELETE ITAB WHERE ROW = 1.  "删除字段名行

  LOOP AT ITAB.
    ON CHANGE OF ITAB-ROW.
    IF SY-TABIX NE 1.
      APPEND WTAB.
      CLEAR WTAB.
    ENDIF.
    ENDON.
    ASSIGN COMPONENT ITAB-COL OF STRUCTURE WTAB TO <FS>.         "动态方法将值传到相应的内表
    <FS> = ITAB-VALUE.
  ENDLOOP.
  APPEND WTAB.   "这句不要忘记，要把最后一条APPEND到内表中
  SORT WTAB BY LIFNR.

ENDFORM.                    " GETEXCEL
*&---------------------------------------------------------------------*
*&      FORM  GETDATA
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM GETDATA .

  SELECT ZIF_MATLFN2SFWMS~LIFNR"工厂
  ZIF_MATLFN2SFWMS~NAME1"版本
  INTO CORRESPONDING FIELDS OF TABLE WTAB
  FROM ZIF_MATLFN2SFWMS.
  SORT WTAB BY LIFNR.

ENDFORM.                    " GETDATA

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
  • 113
  • 114
  • 115
  • 116
  • 117
  • 118
  • 119
  • 120
  • 121
  • 122
  • 123
  • 124
  • 125
  • 126
  • 127
  • 128
  • 129
  • 130
  • 131
  • 132
  • 133
  • 134
  • 135
  • 136
  • 137
  • 138
  • 139
  • 140
  • 141
  • 142
  • 143
  • 144
  • 145
  • 146
  • 147
  • 148
  • 149
  • 150
  • 151
  • 152
  • 153
  • 154
  • 155
  • 156
  • 157
  • 158
  • 159
  • 160
  • 161
  • 162
  • 163
  • 164
  • 165
  • 166
  • 167
  • 168
  • 169
  • 170
  • 171
  • 172
  • 173
  • 174
  • 175
  • 176
  • 177
  • 178
  • 179
  • 180
  • 181
  • 182
  • 183
  • 184
  • 185
  • 186
  • 187
  • 188
  • 189
  • 190
  • 191
  • 192
  • 193
  • 194
  • 195
  • 196
  • 197
  • 198
  • 199
  • 200
  • 201
  • 202
  • 203
  • 204
  • 205
  • 206
  • 207
  • 208
  • 209
  • 210
  • 211
  • 212
  • 213
  • 214
  • 215
  • 216
  • 217
  • 218
  • 219
  • 220
  • 221
  • 222
  • 223
  • 224
  • 225
  • 226
  • 227
  • 228
  • 229
  • 230
  • 231
  • 232
  • 233
  • 234
  • 235
  • 236
  • 237
  • 238
  • 239
  • 240
  • 241
  • 242
  • 243
  • 244
  • 245
  • 246
  • 247
  • 248
  • 249
  • 250
  • 251
  • 252
  • 253
  • 254
  • 255
  • 256
  • 257
  • 258
  • 259
  • 260
  • 261
  • 262
  • 263
  • 264
  • 265
  • 266
  • 267
  • 268
  • 269
  • 270
  • 271
  • 272
  • 273
  • 274
  • 275
  • 276
  • 277
  • 278
  • 279
  • 280
  • 281
  • 282
  • 283
  • 284
  • 285
  • 286
  • 287
  • 288
  • 289
  • 290
  • 291
  • 292
  • 293
  • 294
  • 295
  • 296
  • 297
  • 298
  • 299
  • 300
  • 301
  • 302
  • 303
  • 304
  • 305
  • 306
  • 307
  • 308
  • 309
  • 310
  • 311
  • 312
  • 313
  • 314
  • 315
  • 316
  • 317
  • 318
  • 319
  • 320
  • 321
  • 322
  • 323
  • 324
  • 325
  • 326
  • 327
  • 328
  • 329
  • 330
  • 331
  • 332
  • 333
  • 334
  • 335
  • 336
  • 337
  • 338
  • 339
  • 340
  • 341
  • 342
  • 343
  • 344
  • 345
  • 346
  • 347
  • 348
  • 349
  • 350
  • 351
  • 352
  • 353
  • 354
  • 355
  • 356
  • 357
  • 358
  • 359
  • 360
  • 361
  • 362
  • 363
  • 364
  • 365
  • 366
  • 367
  • 368
  • 369
  • 370
  • 371
  • 372
  • 373
  • 374
  • 375
  • 376
  • 377
  • 378
  • 379
  • 380
  • 381
  • 382
  • 383
  • 384
  • 385
  • 386
  • 387
  • 388
  • 389
  • 390
  • 391
  • 392
  • 393
  • 394
  • 395
  • 396
  • 397
  • 398
  • 399
  • 400
  • 401
  • 402
  • 403
  • 404
  • 405
  • 406
  • 407
  • 408
  • 409
  • 410
  • 411
  • 412
  • 413
  • 414
  • 415
  • 416
  • 417
  • 418
  • 419
  • 420
  • 421
  • 422
  • 423
  • 424
  • 425
  • 426
  • 427
  • 428
  • 429
  • 430
  • 431
  • 432
  • 433
  • 434
  • 435
  • 436
  • 437
  • 438
  • 439
  • 440
  • 441
  • 442
  • 443
  • 444
  • 445
  • 446
  • 447
  • 448
  • 449
  • 450
  • 451
  • 452
  • 453
  • 454
  • 455
  • 456
  • 457
  • 458
  • 459
  • 460
  • 461
  • 462
  • 463
  • 464
  • 465
  • 466
  • 467
  • 468
  • 469
  • 470
  • 471
  • 472
  • 473
  • 474
  • 475
  • 476
  • 477
  • 478
  • 479
  • 480
  • 481
  • 482
  • 483
  • 484
  • 485
  • 486
  • 487
  • 488
  • 489
  • 490
  • 491
  • 492
  • 493
  • 494
  • 495
  • 496
声明：本文内容由网友自发贡献，不代表【wpsshop博客】立场，版权归原作者所有，本站不承担相应法律责任。如您发现有侵权的内容，请联系我们。转载请注明出处：https://www.wpsshop.cn/w/Gausst松鼠会/article/detail/323747
推荐阅读
相关标签

Copyright © 2003-2013 www.wpsshop.cn 版权所有，并保留所有权利。

  

闽ICP备14008679号