1 *&---------------------------------------------------------------------*
2 *& FORM FRM_UPDATA_EXCEL
3 *&---------------------------------------------------------------------*
4 * TEXT
5 *----------------------------------------------------------------------*
6 * --> P1 TEXT
7 * <-- P2 TEXT
8 *----------------------------------------------------------------------*
9 FORM FRM_UPDATA_EXCEL .
10 IF P_FILE IS INITIAL.
11 MESSAGE '请输入导入文件的路径' TYPE 'I'.
12 LEAVE TO TRANSACTION SY-TCODE.
13 ENDIF.
14
15 DATA: BEGIN OF I_EXCEL OCCURS 0.
16 INCLUDE STRUCTURE ALSMEX_TABLINE.
17 DATA: END OF I_EXCEL.
18
19 DATA: L_ANSWER(1) TYPE C,
20 L_COLUMN TYPE I.
21
22 FIELD-SYMBOLS: <FS>.
23 DATA: L_PATHNAME LIKE RLGRAP-FILENAME.
24 DATA:
25 C_BEGIN_ROW TYPE I VALUE 3, "Beginning row of excel file
26 C_BEGIN_COL TYPE I VALUE 1, "Beginning column of excel file
27 C_END_ROW TYPE I VALUE 10000, "Ending row of excel file
28 C_END_COL TYPE I VALUE 4. "Ending column of excel file
29
30 MOVE P_FILE TO L_PATHNAME.
31
32 CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
33 EXPORTING
34 FILENAME = L_PATHNAME
35 I_BEGIN_COL = C_BEGIN_COL
36 I_BEGIN_ROW = C_BEGIN_ROW
37 I_END_COL = C_END_COL
38 I_END_ROW = C_END_ROW
39 TABLES
40 INTERN = I_EXCEL
41 EXCEPTIONS
42 INCONSISTENT_PARAMETERS = 1
43 UPLOAD_OLE = 2
44 OTHERS = 3.
45 IF SY-SUBRC <> 0.
46 MESSAGE '打开EXCEL文件出错!' TYPE 'E'.
47 ELSE.
48 IF I_EXCEL[] IS INITIAL.
49 CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
50 EXPORTING
51 DIAGNOSETEXT1 = '数据为空！'
52 TEXTLINE1 = '请检查文件是否正确'
53 TITEL = '警告'
54 IMPORTING
55 ANSWER = L_ANSWER.
56 LEAVE TO TRANSACTION SY-TCODE.
57 ELSE.
58
59 DELETE I_EXCEL WHERE ROW = '0001'.
60 SORT I_EXCEL BY ROW COL.
61 LOOP AT I_EXCEL.
62 MOVE I_EXCEL-COL TO L_COLUMN.
63 ASSIGN COMPONENT L_COLUMN OF STRUCTURE IW_ANLA TO <FS>.
64 MOVE I_EXCEL-VALUE TO <FS>.
65 AT END OF ROW.
66 APPEND IW_ANLA TO IT_ANLA.
67 CLEAR IW_ANLA.
68 ENDAT.
69 ENDLOOP.
70 ENDIF.
71 ENDIF.
72
73 ENDFORM. "FRM_UPDATA_EXCEL
