excel通过转成xml格式模板，下载成excel文件

源代码：
report ztest_down_excel.data: begin of i_file occurs 0,val(255) type c,end of i_file.data begin of gt_test occurs 0.
data matnr like mara-matnr.
data maktx like makt-maktx.
data end of gt_test.data v_filestr type string.
data v_filename type string.
data v_path type string.
data v_fn type string.
data v_len type i.select mara~matnrmakt~maktxinto corresponding fields of table gt_testfrom marainner join makt on  mara~matnr eq makt~matnrwhere makt~spras eq '1'."将内表转换为xml
call transformation ztest_down_excelsource table = gt_test[]
*              head = v_head   "由于Transformation中不能出现中文，表头中文以结构变量传入
       result xml  v_filestr."获取保存路径及保存文件名
call method cl_gui_frontend_services=>file_save_dialogexportingwindow_title         = 'Download Files'  "窗口标题default_extension    = 'xls' default_file_name    = 'Download Test'   "初始化文件名file_filter          = '(电子表格EXCEL)'changingfilename             = v_filename    "文件名path                 = v_path       "路径(除了文件名)fullpath             = v_fn         "完整路径（包含文件名）
  exceptionscntl_error           = 1error_no_gui         = 2not_supported_by_gui = 3others               = 4.clear i_file[].
call function 'SCMS_STRING_TO_FTEXT'exportingtext      = v_filestrimportinglength    = v_lentablesftext_tab = i_file.call function 'GUI_DOWNLOAD'exportingfilename = v_fnfiletype = 'BIN'tablesdata_tab = i_file[].if sy-subrc eq 0.write 'Download successful!'.
else.write 'Download failed!'.
endif.

excel文件变成xml：

Exce转换XMl注意：
1、单元格格式类型全部改为：string。
2、不能出现中文，全部改为对应的英文，
3、Worksheet 下table行列条件删除。<…ss:ExpandeRowCount="30"…>
4、XML文件转换loop循环后：
<Row ss:Index="6">  这里出现在循环后面不能限定index值，应删除
5、自动换行参数<Row ss:AutoFitHeight="1"……>
6、loop循环属性一样的空行直接删除
XML导出EXCEL纸张方向控制：<PageSetup><Layout x:Orientation="Landscape"/>    ''横向<Header x:Margin="0.31458333333333333"/><Footer x:Margin="0.31458333333333333"/><PageMargins x:Bottom="0.63888888888888884" x:Left="0.52986111111111112"x:Right="0.5" x:Top="0.37986111111111109"/></PageSetup>
XML导出EXCEL打印缩放比例控制：<Print><ValidPrinterInfo/><PaperSizeIndex>9</PaperSizeIndex><Scale>77</Scale><HorizontalResolution>300</HorizontalResolution><VerticalResolution>300</VerticalResolution></Print>
XML导出 EXCEL单元格文本自动换行：
<Style ss:ID="m79594592"><Alignment ss:Horizontal="Center" ss:Vertical="Center" ss:WrapText="1"/><Borders><Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="2"/><Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="2"/><Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="2"/><Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="2"/></Borders><Font ss:FontName="Tahoma" x:CharSet="134" ss:Size="10.5" ss:Color="#000000"/>
</Style>Transformation源码：<?sap.transform simple?>
<tt:transform xmlns:tt="http://www.sap.com/transformation-templates"><tt:root name="TABLE"/>
<tt:root name="HEAD"/><tt:template><?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<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"><DocumentProperties xmlns="urn:schemas-microsoft-com:office:office"><Created>2006-09-16T00:00:00Z</Created><LastSaved>2014-12-25T10:26:33Z</LastSaved><Version>14.00</Version></DocumentProperties><OfficeDocumentSettings xmlns="urn:schemas-microsoft-com:office:office"><AllowPNG/><RemovePersonalInformation/></OfficeDocumentSettings><ExcelWorkbook xmlns="urn:schemas-microsoft-com:office:excel"><WindowHeight>7980</WindowHeight><WindowWidth>14805</WindowWidth><WindowTopX>240</WindowTopX><WindowTopY>135</WindowTopY><ProtectStructure>False</ProtectStructure><ProtectWindows>False</ProtectWindows></ExcelWorkbook><Styles><Style ss:ID="Default" ss:Name="Normal"><Alignment ss:Vertical="Bottom"/><Borders/><Font ss:FontName="Tahoma" x:CharSet="134" ss:Size="11" ss:Color="#000000"/><Interior/><NumberFormat/><Protection/></Style><Style ss:ID="s17"><Alignment ss:Horizontal="Left" ss:Vertical="Bottom"/><Font ss:FontName="Tahoma" x:CharSet="134" x:Family="Swiss" ss:Color="#000000"/></Style><Style ss:ID="s18"><Alignment ss:Horizontal="Left" ss:Vertical="Bottom"/><Font ss:FontName="Tahoma" x:CharSet="134" x:Family="Swiss" ss:Color="#000000"/><Interior/></Style><Style ss:ID="s19"><Alignment ss:Vertical="Center"/></Style></Styles><Worksheet ss:Name="SHEET1"><Table  x:FullColumns="1"x:FullRows="1" ss:StyleID="s17" ss:DefaultColumnWidth="76.5"ss:DefaultRowHeight="16.3125">        <!-- ---删除限制行/列数量语句--><Column ss:StyleID="s18" ss:AutoFitWidth="0"/><Column ss:Index="6" ss:StyleID="s18" ss:AutoFitWidth="0" ss:Span="2"/><Column ss:Index="10" ss:StyleID="s18" ss:AutoFitWidth="0" ss:Span="7"/><Column ss:Index="20" ss:StyleID="s18" ss:AutoFitWidth="0" ss:Span="3"/><Column ss:Index="24" ss:StyleID="s18" ss:AutoFitWidth="0" ss:Width="114.75"/><Column ss:StyleID="s18" ss:AutoFitWidth="0" ss:Span="3"/><Row ss:Height="13.5" ss:StyleID="s19"><Cell><Data ss:Type="String"><tt:value ref="head.h001"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h002"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h003"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h004"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h005"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h006"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h007"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h008"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h009"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h010"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h011"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h012"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h013"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h014"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h015"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h016"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h017"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h018"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h019"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h020"/></Data></Cell>
<!--    <Cell><Data ss:Type="String"><tt:value ref="head.h021"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h022"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h023"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="head.h024"/></Data></Cell>--></Row>
<tt:loop ref=".table"><Row ss:Height="13.5" ss:StyleID="s19"><Cell><Data ss:Type="String"><tt:value ref="ZART"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="PASTRTERM"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="ZWEEK"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="PRUEFLOS"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="SELMATNR"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="MAKTX"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="NORMT"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="ZSCQY"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="LOSMENGE"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="MENGENEINH"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="KOSCH"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="ZPZWH"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="RAUBE"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="CHARG"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="ZMM_LICHA"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="ZMM_HSDAT"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="ZMM_VFDAT"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="LAGORTCHRG"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="LGOBE"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="LGPBE"/></Data></Cell>
<!--    <Cell><Data ss:Type="String"><tt:value ref="ZYHFF"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="ZZLZK"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="UNAME"/></Data></Cell><Cell><Data ss:Type="String"><tt:value ref="UDATE"/></Data></Cell>--></Row></tt:loop></Table><WorksheetOptions xmlns="urn:schemas-microsoft-com:office:excel"><PageSetup><Header x:Margin="0.3"/><Footer x:Margin="0.3"/><PageMargins x:Bottom="0.75" x:Left="0.7" x:Right="0.7" x:Top="0.75"/></PageSetup><Unsynced/><Print><ValidPrinterInfo/><PaperSizeIndex>9</PaperSizeIndex><HorizontalResolution>600</HorizontalResolution><VerticalResolution>600</VerticalResolution></Print><Selected/><Panes><Pane><Number>3</Number><ActiveRow>6</ActiveRow><ActiveCol>1</ActiveCol></Pane></Panes><ProtectObjects>False</ProtectObjects><ProtectScenarios>False</ProtectScenarios></WorksheetOptions></Worksheet>
</Workbook></tt:template></tt:transform>

转载于:https://www.cnblogs.com/caizjian/p/6160117.html

excel通过转成xml格式模板，下载成excel文件相关推荐

将大量有规律txt文本数据转换成xml格式，在导入excel，生成excel文件，在导入spass中，对数据进行分析
[文本数据 2.txt]下面是其中两条 Title-题名: 供应链竞争力内涵与模型构建研究 Author-作者: 余晖;张文杰; Organ-单位: 北京交通大学经济管理学院; Source-文献来源 ...
golang中结构体转成xml格式
本文主要介绍结构体与xml格式的字符串进行相互转换,Go自带xml包,所以进行格式转换非常的方便. 一.结构体转成xml格式 1.转成不需要排版的xml格式字符串,可直接使用Marshal()方法 f ...
EXCEL表格转化为XML格式文件
EXCEL表格转化为XML格式文件这里给出一个例子: 将get_1.csv文件转化为xml格式文件. 同时将里面的正文部分用jieba进行切词,使得正文每一个词都带有id和词性: from xml. ...
JAVA实现map转成XML格式
JAVA实现map集合转成XML格式 import java.util.HashMap; import java.util.List; import java.util.Map; import jav ...
List集合转换成xml格式
List集合转换成xml格式 java代码: public String listToXML(List<Log> logs, String regId) {StringBuffer nod ...
实体类转换成Xml格式实例
最近在家公司实习,接触到了报关系统,有些海关报文是需要Xml格式来进行拼接的,所以就开始学起了将实体类转换成Xml格式的写法. 具体Xml是什么大家可以从这个链接点进去了解:Xml教程我们在进行数据 ...
php 生成zip并下载,PHP 实现文件打包成zip格式并下载
PHP 文件打包并下载有个这样的需求,将多个文件打包成zip格式并下载到本地可根据 ZipArchive这个类来实现此功能我自己也研究了一下,然后把搞出来了 ,经测试绝对好用话不多说直接上代码 ...
【Python 实操】labelImg标注的xml格式转换为yolo的txt文件
[Python 实操]labelImg标注的xml格式转换为yolo的txt文件背景 YOLO家族开枝散叶(尤其是YOLOv5)的广泛应用就涉及到图像的标注与文件格式转换,常用的标注工具有 Labe ...
python 会计专用格式_excel会计专用格式模板下载|excel会计专用格式模板680个最新版下载 - 巴士下载站...
680个excel会计专用格式模板里面包含了很多种类别的Excel表格模板,专门供给财务使用,主要是帮你自动生成表格,节省了你不少时间,欢迎在WWW.11684.COM 下载! 软件特色 1.涵盖了常 ...

excel通过转成xml格式模板，下载成excel文件

excel通过转成xml格式模板，下载成excel文件相关推荐

最新文章

热门文章