📄 zupload_excel.html
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<html>
<head>
<title>ZUPLOAD_EXCEL</title>
</head>
<body bgcolor="#FFFFE0">
<font size="3" face = "Arial" color="#000000"><b>Code listing for: ZUPLOAD_EXCEL</b></font>
<br>
<font size="3" face = "Arial" color="#000000"><b>Description: 上传Excel文件到SAP服务器</b></font>
<hr>
<pre width="100">
<font color ="#0000FF">********************************************************************</font>
<font color ="#0000FF">* 事务代码：ZUPLOAD_EXCEL *</font>
<font color ="#0000FF">* 程序名称：ZUPLOAD_EXCEL *</font>
<font color ="#0000FF">* 程序目的：EXCEL文件上传程序 *</font>
<font color ="#0000FF">* 使用变式： *</font>
<font color ="#0000FF">* 使用档案： *</font>
<font color ="#0000FF">* 设 计 人：李佳 *</font>
<font color ="#0000FF">* 设计时间：2006-05-21 *</font>
<font color ="#0000FF">* 序 修改时间 修改人 修改说明 *</font>
<font color ="#0000FF">********************************************************************</font>
REPORT Z_LIJIA_06 .
DATA: fname TYPE rlgrap-filename,
ftype TYPE rlgrap-filetype,
fsize TYPE i.
data: fname_p type string,
fname_n type string.
data: sfname_p type string .
data: sfname like RCGIEDIAL-IEFILE.
sfname_p = '/usr/sap/trans/excel/'."上传报表模板文件路径
data: r(1) type c.
DATA: DATA_TAB LIKE RCGREPFILE OCCURS 10 WITH HEADER LINE.
DATA: LINES TYPE I.
CALL FUNCTION 'UPLOAD'
EXPORTING
<font color ="#0000FF">* codepage = 'IBM'</font>
filename = 'C:\EXCEL_DATA'
filetype = 'BIN'
<font color ="#0000FF">* filemask_mask = '*.XLS'</font>
<font color ="#0000FF">* FILESMASK_TEXT = 'XLS'</font>
FILETYPE_NO_CHANGE = 'X'
<font color ="#0000FF">* SILENT = 'X'</font>
<font color ="#0000FF">* item = ''</font>
IMPORTING
filesize = fsize
act_filename = fname
act_filetype = ftype
TABLES
data_tab = data_tab
EXCEPTIONS
conversion_error = 1
invalid_table_width = 2
invalid_type = 3.
fname_n = fname.
do.
split fname_n at '\' into fname_p fname_n.
search fname_n for '\'.
if sy-subrc = 4.
exit.
endif.
enddo.
fname_p = fname.
shift fname_p right deleting trailing fname_n.
shift fname_p left deleting leading space.
<font color ="#0000FF">*write:/,'fname_p=',fname_p,'|',</font>
<font color ="#0000FF">* /,'fname_n=',fname_n,'|'.</font>
concatenate sfname_p fname_n into sfname.
<font color ="#0000FF">*write:/,'sfname=',sfname,'|'.</font>
DESCRIBE TABLE DATA_TAB LINES LINES.
CALL FUNCTION 'C13Z_RAWDATA_WRITE'
EXPORTING
I_FILE = sfname
I_FILE_SIZE = fsize
I_LINES = LINES
TABLES
I_RCGREPFILE_TAB = DATA_TAB
EXCEPTIONS
NO_PERMISSION = 1
OPEN_FAILED = 2
OTHERS = 3.
<font color ="#0000FF">*IF sy-subrc NE 0.</font>
<font color ="#0000FF">* MESSAGE s000 WITH 'UPLOAD SUCC'.</font>
<font color ="#0000FF">*ENDIF.</font>
WRITE: 'SY-SUBRC:', sy-subrc,
/ '上载的本地文件名:', (60) fname,
/ '上载的远程文件名:',(60) sfname,
/ '文件类型:', ftype,
/ '文件大小:', fsize.
SKIP.
</pre>
<hr>
<font size="2" face = "Sans Serif">Extracted by Direct Download Enterprise version 1.3.1 - E.G.Mellodew. 1998-2005 UK. Sap Release 700
</font>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -