*&----------------------------------------------------------------------*
*& FUNCTION: GUI_UPLOAD 对csv 文件操作 Excel
*& CSV文件格式: CN,430514,bank,170,wuhan,wuchang1
*& CN,430514,bank,170,wuhan,wuchang1
*& 此程序是正解.
*& Line-cont 23(10) 括号里的头不能大于外面的数.
*& End-Of-Page 会正确执行
*&----------------------------------------------------------------------*
REPORT zdev00912 NO STANDARD PAGE HEADING
LINE-SIZE 170
LINE-COUNT 30(10).
DATA: BEGIN OF st_up,
record(500) TYPE c,
END OF st_up.
DATA: it LIKE TABLE OF st_up WITH HEADER LINE,
st LIKE TABLE OF st_up WITH HEADER LINE.
DATA: country(10) TYPE c,
key(10) TYPE c,
name(10) TYPE c,
region(10) TYPE c,
street(10) TYPE c,
city(10) TYPE c.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = 'D:/1.CSV'
TABLES
data_tab = it.
LOOP AT it.
SPLIT it AT ',' INTO country key name
region street city.
WRITE: / country, key, name, region, street, city.
ENDLOOP.
RESERVE sy-linct LINES.
TOP-OF-PAGE.
WRITE: /20 'REPORT HEADER' COLOR 6.
END-OF-PAGE.
WRITE: /20 'REPORT END' COLOR 1.