ABAP下载excel-方法XML

已于 2022-08-23 17:45:21 修改
阅读量903 收藏 8
点赞数 1
分类专栏： SAP/ABAP记录 文章标签： xml 经验分享
于 2022-08-23 17:42:56 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_55593130/article/details/126488768
版权

背景：下载excel方法很多，这个xml方法下载速度快，支持excel比较复杂多样的格式

  • 下载功能，报表代码

1、alv的user_command

FORM frm_user_command USING r_ucomm  LIKE sy-ucomm
                            selfield TYPE slis_selfield.

  DATA lo_grid TYPE REF TO cl_gui_alv_grid.

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = lo_grid.

  CASE r_ucomm.
    WHEN 'EXCEL'.
      PERFORM frm_excel_download.
  ENDCASE.

  selfield-refresh = 'X'.

ENDFORM.

2、FORM：frm_excel_download

FORM frm_excel_download .

  "使用xml的下载方式

  DATA: lv_path TYPE rlgrap-filename.
  DATA: lt_xml_table TYPE STANDARD TABLE OF string,
        lv_xmlstr    TYPE string.
  DATA: lv_count TYPE n LENGTH 10.
  FIELD-SYMBOLS: <fs_value> TYPE any.

  "弹出窗口选择保存路径
  PERFORM frm_save_path CHANGING lv_path.
    

********关键代码部分*****************************************
    DESCRIBE TABLE gt_alv_out LINES lv_count.
    lv_count = lv_count + 3.

    CALL TRANSFORMATION zfir045_1
    SOURCE root = gt_alv_out[]
    RESULT XML lv_xmlstr.

  REPLACE FIRST OCCURRENCE OF 'encoding="utf-16"' IN lv_xmlstr WITH 'encoding="gbk"'."显示中文
  REPLACE FIRST OCCURRENCE OF 'cs_count' IN lv_xmlstr WITH lv_count."行数，替代xml文件里的cs_count
  APPEND lv_xmlstr TO lt_xml_table.

********关键代码部分*****************************************

  DATA: lv_file TYPE string.
  lv_file = lv_path.

  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      filename                = lv_file
      filetype                = 'ASC'
    TABLES
      data_tab                = lt_xml_table
    EXCEPTIONS
      file_write_error        = 1
      no_batch                = 2
      gui_refuse_filetransfer = 3
      invalid_type            = 4
      OTHERS                  = 5.

  MESSAGE '数据下载成功！' TYPE 'S'.


ENDFORM.

 3、FORM 弹出窗口选择保存路径

FORM frm_save_path CHANGING pv_path TYPE rlgrap-filename.
  DATA:lv_filename TYPE string,
       lv_path     TYPE string.
  "名字指定
  IF p_mx = 'X'.
    CONCATENATE '进耗存报表_明细_' sy-datum '.XLS' INTO lv_filename.
  ELSEIF p_hz = 'X'.
    CONCATENATE '进耗存报表_汇总_' sy-datum '.XLS' INTO lv_filename.
  ENDIF.

  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_filename     = lv_filename
      def_path         = 'D:W'
      mask             = '.XLS'
      mode             = 'S'
      title            = 'DOWNLOAD'
    IMPORTING
      filename         = pv_path
*     RC               =
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.
  IF pv_path IS INITIAL.   "选择取消的情况
    MESSAGE e000(su) WITH '已取消操作!'.
  ENDIF.
ENDFORM.

4、CALL TRANSFORMATION zfir045_1

这个是重点！

1）需要事务码：strans，创建转换：zfir045_1

2）需要对xml进行编辑处理(以下xml处理细节仅供参考，并非以上程序中涉及的代码)

（1）<tt:loop ref=".ROOT">  该标签可以实现循环数据行功能，将 root 表中的数据，循环写入模板

（2）ss:ExpandedRowCount="cs_count"，这个属性值，改为"cs_count"，会默认为excel模板行数，需要我们自己编辑

<?sap.transform simple?>
<tt:transform xmlns:tt="http://www.sap.com/transformation-templates">

  <tt:root name="ROOT"/>

  <tt:template>
    <?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">
        <Author>马宇</Author>
        <LastAuthor>马宇</LastAuthor>
        <Created>2019-07-29T09:17:10Z</Created>
        <LastSaved>2019-07-29T09:41:41Z</LastSaved>
        <Version>16.00</Version>
      </DocumentProperties>
      <OfficeDocumentSettings xmlns="urn:schemas-microsoft-com:office:office">
        <AllowPNG/>
      </OfficeDocumentSettings>
      <ExcelWorkbook xmlns="urn:schemas-microsoft-com:office:excel">
        <WindowHeight>7500</WindowHeight>
        <WindowWidth>20490</WindowWidth>
        <WindowTopX>32767</WindowTopX>
        <WindowTopY>32767</WindowTopY>
        <ProtectStructure>False</ProtectStructure>
        <ProtectWindows>False</ProtectWindows>
      </ExcelWorkbook>
      <Styles>
        <Style ss:ID="Default" ss:Name="Normal">
          <Alignment ss:Vertical="Center"/>
          <Borders/>
          <Font ss:Color="#000000" ss:FontName="等线" ss:Size="11" x:CharSet="134"/>
          <Interior/>
          <NumberFormat/>
          <Protection/>
        </Style>
        <Style ss:ID="s62">
          <Alignment ss:Vertical="Top"/>
        </Style>
        <Style ss:ID="s63">
          <Alignment ss:Vertical="Top"/>
          <NumberFormat ss:Format="@"/>
        </Style>
        <Style ss:ID="s64">
          <Alignment ss:Horizontal="Right" ss:Vertical="Top"/>
          <NumberFormat ss:Format="#,##0.000"/>
        </Style>
        <Style ss:ID="s65">
          <Alignment ss:Horizontal="Right" ss:Vertical="Top"/>
          <NumberFormat ss:Format="[$-F400]h:mm:ss\ AM/PM"/>
        </Style>
        <Style ss:ID="s66">
          <Alignment ss:Horizontal="Right" ss:Vertical="Top"/>
          <NumberFormat ss:Format="Short Date"/>
        </Style>
        <Style ss:ID="s67">
          <Alignment ss:Vertical="Top"/>
          <Borders>
            <Border ss:LineStyle="Continuous" ss:Position="Bottom" ss:Weight="1"/>
            <Border ss:LineStyle="Continuous" ss:Position="Left" ss:Weight="1"/>
            <Border ss:LineStyle="Continuous" ss:Position="Right" ss:Weight="1"/>
            <Border ss:LineStyle="Continuous" ss:Position="Top" ss:Weight="1"/>
          </Borders>
          <Interior ss:Color="#C0C0C0" ss:Pattern="Solid"/>
        </Style>
      </Styles>
      <Worksheet ss:Name="Sheet1">
        <Table ss:DefaultColumnWidth="54" ss:DefaultRowHeight="14.25" ss:ExpandedColumnCount="29" ss:ExpandedRowCount="cs_count" x:FullColumns="1" x:FullRows="1">
          <Row>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">计划日期</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">线别</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">生产顺序</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">工厂</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">客户</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">客户名称</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">成品料号</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">品名</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">原计划订单</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">订单</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">订单总数量</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">订单累计数量</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">计划数量</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">物料</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">单台用量倍率</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">订单开始日期</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">订单开始时间</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">订单结束日期</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">订单结束时间</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">交货日期</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">交货时间</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">交货数量</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">物料描述</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">物料组描述</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">供应商</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">供应商描述</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">采购组</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">采购组描述</Data>
            </Cell>
            <Cell ss:StyleID="s67">
              <Data ss:Type="String">备注</Data>
            </Cell>
          </Row>
          <tt:loop ref=".ROOT">
            <Row>
              <Cell ss:StyleID="s66">
                <Data ss:Type="String"><tt:value ref='PSTTR'/></Data>
              </Cell>
              <Cell ss:StyleID="s62">
                <Data ss:Type="String"><tt:value ref='FEVOR'/></Data>
              </Cell>
              <Cell ss:StyleID="s62">
                <Data ss:Type="String"><tt:value ref='APRIO'/></Data>
              </Cell>
              <Cell ss:StyleID="s62">
                <Data ss:Type="String"><tt:value ref='WERKS'/></Data>
              </Cell>
              <Cell ss:StyleID="s62">
                <Data ss:Type="String"><tt:value ref='KUNNR'/></Data>
              </Cell>
              <Cell ss:StyleID="s62">
                <Data ss:Type="String"><tt:value ref='NAME1_KH'/></Data>
              </Cell>
              <Cell ss:StyleID="s62">
                <Data ss:Type="String"><tt:value ref='MATNR'/></Data>
              </Cell>
              <Cell ss:StyleID="s62">
                <Data ss:Type="String"><tt:value ref='WGBEZ'/></Data>
              </Cell>
              <Cell ss:StyleID="s62">
                <Data ss:Type="String"><tt:value ref='ZPLNUM'/></Data>
              </Cell>
              <Cell ss:StyleID="s62">
                <Data ss:Type="String"><tt:value ref='AUFNR'/></Data>
              </Cell>
              <Cell ss:StyleID="s64">
                <Data ss:Type="String"><tt:value ref='GAMNG'/></Data>
              </Cell>
              <Cell ss:StyleID="s64">
                <Data ss:Type="String"><tt:value ref='GSMNG_TJ'/></Data>
              </Cell>
              <Cell ss:StyleID="s64">
                <Data ss:Type="String"><tt:value ref='GSMNG'/></Data>
              </Cell>
              <Cell ss:StyleID="s62">
                <Data ss:Type="String"><tt:value ref='IDNRK'/></Data>
              </Cell>
              <Cell ss:StyleID="s64">
                <Data ss:Type="String"><tt:value ref='MNGKO'/></Data>
              </Cell>
              <Cell ss:StyleID="s66">
                <Data ss:Type="String"><tt:value ref='GSTRP'/></Data>
              </Cell>
              <Cell ss:StyleID="s65">
                <Data ss:Type="String"><tt:value ref='GSUZP'/></Data>
              </Cell>
              <Cell ss:StyleID="s66">
                <Data ss:Type="String"><tt:value ref='GLTRP'/></Data>
              </Cell>
              <Cell ss:StyleID="s65">
                <Data ss:Type="String"><tt:value ref='GLUZP'/></Data>
              </Cell>
              <Cell ss:StyleID="s62">
                <Data ss:Type="String"><tt:value ref='EEIND'/></Data>
              </Cell>
              <Cell ss:StyleID="s65">
                <Data ss:Type="String"><tt:value ref='TIME_JH'/></Data>
              </Cell>
              <Cell ss:StyleID="s64">
                <Data ss:Type="String"><tt:value ref='GSMNG_JH'/></Data>
              </Cell>
              <Cell ss:StyleID="s62">
                <Data ss:Type="String"><tt:value ref='MAKTX'/></Data>
              </Cell>
              <Cell ss:StyleID="s62">
                <Data ss:Type="String"><tt:value ref='WGBEZ1'/></Data>
              </Cell>
              <Cell ss:StyleID="s62">
                <Data ss:Type="String"><tt:value ref='LIFNR'/></Data>
              </Cell>
              <Cell ss:StyleID="s62">
                <Data ss:Type="String"><tt:value ref='NAME1_CS'/></Data>
              </Cell>
              <Cell ss:StyleID="s63">
                <Data ss:Type="String"><tt:value ref='EKGRP'/></Data>
              </Cell>
              <Cell ss:StyleID="s62">
                <Data ss:Type="String"><tt:value ref='EKNAM'/></Data>
              </Cell>
              <Cell ss:StyleID="s62">
                <Data ss:Type="String"><tt:value ref='REMARK'/></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>
          <Selected/>
          <Panes>
            <Pane>
              <Number>3</Number>
              <ActiveRow>4</ActiveRow>
              <ActiveCol>1</ActiveCol>
            </Pane>
          </Panes>
          <ProtectObjects>False</ProtectObjects>
          <ProtectScenarios>False</ProtectScenarios>
        </WorksheetOptions>
      </Worksheet>
    </Workbook>

  </tt:template>

</tt:transform>

 END.

Cici_Leee
关注
  • 1
    点赞
  • 踩
  • 8
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
ABAP Excel处理-内表导出为Excel文件
heng0757的专栏
03-23 718
5. Transformation 生成xml格式的Excel(.XLS)6. ABAP2XLSX 和 XLSX Workbench。3. 生成文本形式的Excel（.xls或.csv）4. 标准方法输出Excel文件流（用作接口或后台）1. OLE下载内表数据为Excel文件。2. DOI下载内表数据为Excel文件。二、内表导出为Excel文件的实现。
ABAP EXCEL DOWNLOAD下载 直接可以用的
xunmeng07的博客
02-04 656
"-----检查系统是否纯在模板 DATA: lv_objname TYPE wwwdata-objid. DATA: ls_objdata TYPE wwwdatatab. DATA:lv_ret TYPE abap_bool, lv_answer. "-----弹出选择存放的路径. DATA: lv_window_title TYPE string VALUE '文件下载', lv_default_extension TYPE str
sap ALV数据导出成EXCEL
最新发布
月阴荒的博客
05-16 111
https://www.cnblogs.com/zs-chenkang/p/14338081.html
ABAP读取Excel方法大全
u012232542的博客
11-20 3080
前言 ABAP读取Excel文件可以使用多种方式实现，OLE是最常用的技术，但速度及兼容性较差；也可以使用DOI接口读取，最新的技术则通过XML技术进行解析，采用最新的面向对象编程，容易理解，且兼容性较好。 方法 标准函数 函数名 说明 TEXT_CONVERT_XLS_TO_SAP 基于OLE，需要内表结构与Exce列顺序一致 ALSM_EXCEL_TO_INTERNAL_TABL 基于OLE,按单元读取出来，最长只支持50个字符 UPLOAD_XLS_FILE_2_ITAB （尚
SAP Abap复杂Xml处理 - 关于Xml转Abap内表
NeLoveFy的博客
09-15 725
Xml转ABAP内表
ABAP XML填充Excel表单
xunmeng07的博客
09-07 558
填充Excel表单的方式有很多，例如常见的OLE、函数、DOI，今天来分享一种不常见的xml的填充表单的方式
SAP ABAP OPENXML生成Excel
gui951的博客
08-01 627
SAP ABAP OPENXML生成Excel
2022.05.14 【ABAP随笔】-SAP后台server读取Excel方案的想法
m0_37461511的博客
05-14 1079
读取Excel方案的研究 我之前在文章(Excel批量导入)中提到过使用CL_XLSX_DOCUMENT来处理excel，此时EXCEL文件被当作多个xml文件来出了，速度和效率上有了很大的提升。 但是需要使用cl_ehfnd_xlsx这个类来得到EXCEL的单元格的值，发现很多客户还在使用ERP ECC6.0 ON HANA 的架构，所以系统里面没有这个类。 我们可以看到这个类是属于该S4的...
ABAP: 内表到xml，以excel形式发送邮件 - 分段解析
初心者
11-06 2273
内表拼成xml文件，并以excel形式作为邮件附件发送
SAP ABAP（一个简单的excel模板下载与数据导入demo）
ABAP开发程序员
11-08 438
excel模板下载与数据上传处理demo
ABAP EXCEL通用类
06-20
它利用了SAP NetWeaver的开放XML技术，通过XML格式来生成和解析Excel数据，这使得在ABAP环境中处理Excel文件变得相对高效且灵活。 1. **创建Excel文件** 使用ZCL_EXCEL类，你可以创建新的Excel文件，定义工作表...
SAP ABAP ZALSM-EXCEL-TO-INTERNAL-TABLE 完整实施附件（源代码、说明）
01-06
在 SAP ABAP 开发环境中，处理 Excel 文件是常见的任务，特别是在数据导入导出或批量处理场景下。ZALSM_EXCEL_TO_INTERNAL_TABLE 是一个自定义增强函数，它提供了将 Excel 数据转换为 SAP 内部表的功能，使得开发...
abap2xlsx:从ABAP生成专业的Excel电子表格
05-14
abap2xlsx-使用ABAP读取并生成Excel电子表格有关一般信息，请参阅博客系列和。 请参阅官方Wiki以获取。讨论板我们使用作为讨论板。 您可以在发布新问题之前。 您还可以来限制搜索。 当您要时，请使用此链接，标签...
abap2xlsx-main git 开源项目
05-23
2. Excel文件格式：XLSX是Microsoft Office Excel 2007及以后版本使用的文件格式，基于Open XML标准。abap2xlsx库允许开发者直接在ABAP环境中创建符合此标准的文件，无需通过ODBC、JDBC或其他接口与Excel交互。 3. ...
xtt：ABAP的Xml模板工具包
02-06
**xtt：ABAP的XML模板工具包** `xtt`是ABAP（Advanced Business Application Programming）中的一个强大工具，用于处理XML模板，它简化了在SAP系统中生成XML文档的过程。通过使用XML模板，开发人员可以更高效地创建...
ABAP SCREEN/选择屏幕/RADIO BUTTON
weixin_55593130的博客
06-08 3141
ABAP SCREEN
abap面试题
weixin_55593130的博客
03-21 2020
1、报表 （1）程序性能优化（内表取数链接时注意点） （2）查看性能事务码：se30 （3）事件包含哪几个，权限对象 （4）filedcat，layout区别，控制哪些属性 2、接口 （1）用的什么中间件，对接的外围系统是什么 （2）接口技术？webservice大概步骤、事务码？ 3、打印，smartforms；打印如何调试 4、dialog程序，CHAIN-INPUT，CHAIN-REQUEST的区别 5、录屏事务码：SHDB；几种模式 6、增强：几代，常用的，事务码，2、3代增强
VBAP 字段增强/VA02 屏幕增强
weixin_55593130的博客
03-02 1931
1、VBAP 字段增强（其他标准表字段增强同理） 2、VA02 屏幕增强 目的：将表 VBAP 的增强字段，显示在前台 点击：系统-状态 输入框的命名：VBAP 中的新增结构-新增字段名称，会提示连接到对应表，自动对应到VBAP-ZSPARE9的值 ...
ABAP XML转换EXCEL并下载到指定路径
04-05
以下是将XML转换为Excel并下载到指定路径的ABAP代码示例： DATA: xml_string TYPE string, xml_table TYPE STANDARD TABLE OF xml_tab, excel_data TYPE STANDARD TABLE OF tab512, excel_file TYPE string, ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值