如何在后台运行模式生成Excel格式文件
发布网友
发布时间：2022-04-27 06:17
共1个回答
热心网友
时间：2022-06-27 13:07
program来产生Excel格式的XML文件，所以用这个方法产生的XLS文档还不是纯正的Excel二进制格式的文档，不过已经可以在大多数需要Excel格式的场合使用了，而且可以很方便的添加各种格式，比如字体大小、单元格颜色，，等等
需要注意的几点：
1、兼容一般的OpenOffice
2、Office2000之前的版本可能会打不开
3、如果包含图片、图表等，导出可能有困难
REPORT
z_barry_test.
DATA:BEGIN
OF
itab
OCCURS
0
,
matnr
LIKE
makt-matnr
,
maktx
LIKE
makt-maktx
,
END
OF
itab.
DATA:
xmlstr
TYPE
string,
xml_table
TYPE
STANDARD
TABLE
OF
string,
wa_xml
LIKE
LINE
OF
xml_table.
DATA:dname(120)
TYPE
c.
START-OF-SELECTION.
SELECT
matnr
maktx
INTO
TABLE
itab
FROM
makt
UP
TO
20
ROWS
WHERE
spras
=
'1'.
CALL
TRANSFORMATION
ztestexcel
SOURCE
table
=
itab[]
RESULT
XML
xmlstr.
REPLACE
FIRST
OCCURRENCE
OF
'encoding="utf-16"'
IN
xmlstr
WITH
'encoding="gbk"'.
APPEND
xmlstr
TO
xml_table.
CALL
FUNCTION
'GUI_DOWNLOAD'
EXPORTING
filename
=
'c:\xmlexcel.xls'
codepage
=
'8400'
filetype
=
'ASC'
TABLES
data_tab
=
xml_table.
*
dname
=
'/usr/sap/TZK/DVEBMGS00/work/xmlexcel.xls'.
*
OPEN
DATASET
dname
FOR
OUTPUT
IN
TEXT
MODE
ENCODING
DEFAULT
.
*
IF
sy-subrc
NE
0.
EXIT.
ENDIF.
*
LOOP
AT
xml_table
INTO
wa_xml.
*
TRANSFER
wa_xml
TO
dname.
*
ENDLOOP.
*
CLOSE
DATASET
dname.
ztestexcel内容：
<?sap.transform
simple?>
<?mso-application
progid="Excel.Sheet"?>
<tt:transform
xmlns:tt="http://www.sap.com/transformation-templates">
<tt:root
name="table"/>
<tt:template>
<Workbook
xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:html="http://www.w3.org/TR/REC-html40">
<ExcelWorkbook
xmlns="urn:schemas-microsoft-com:office:excel">
</ExcelWorkbook>
<Worksheet
ss:Name="Sheet1">
<Table
ss:ExpandedColumnCount="3"
ss:ExpandedRowCount="25"
x:FullColumns="1"
x:FullRows="1">
<Column
ss:Width="120"/>
<Column
ss:Width="220"/>
<tt:loop
ref=".table">
<Row>
<Cell>
<Data
ss:Type="String">
<tt:value
ref="MATNR"/>
</Data>
</Cell>
<Cell>
<Data
ss:Type="String">
<tt:value
ref="MAKTX"/>
</Data>
</Cell>
</Row>
</tt:loop>
</Table>
</Worksheet>
</Workbook>
</tt:template>
</tt:transform>
注：如果要生成UTF-8的XML文件，可以更改CALL
TRANSFORMATION的参数
