ABAP OLE快速下载excel

在海边看星星

于 2025-04-17 14:17:19 发布

阅读量560

点赞数 19

文章标签： excel 开发语言

本文链接：https://blog.youkuaiyun.com/he799241448/article/details/147305290

版权

DATA: BEGIN OF lt_line OCCURS 0,
          line(2200),
        END OF lt_line.
  DATA: BEGIN OF lt_excel_out OCCURS 0,
          ebelp TYPE zmms0001-ebelp,
          matnr TYPE zmms0001-matnr,
          maktx TYPE zmms0001-maktx,
          menge TYPE zmms0001-menge,
          meins TYPE zmms0001-meins,
          eindt TYPE zmms0001-eindt,
          netpr TYPE zmms0001-netpr,
          peinh TYPE char30,
          text1 TYPE zmms0001-text1,
          kbetr TYPE zmms0001-kbetr,
        END OF lt_excel_out.
  DATA: l_row   TYPE sy-tabix,
        l_col   TYPE sy-tabix,
        l_rc    TYPE sy-tabix,
        lv_str1 TYPE string.
  CONSTANTS: l_sep TYPE c VALUE cl_abap_char_utilities=>horizontal_tab.
  FIELD-SYMBOLS: <fs_field> TYPE any.

  DATA:gv_line_cntr TYPE i,
       lv_str       TYPE string,
       lt_out1      LIKE  TABLE OF zmms0001,
       lt_out       LIKE  TABLE OF zmms0001,
       ls_out       LIKE zmms0001,
       lwa_alv      LIKE LINE OF gt_alv,
       lwa_header   LIKE LINE OF gt_header.
  DATA: lt_poitem LIKE TABLE OF bapimepoitem WITH HEADER LINE.
  DATA: lt_poschedule LIKE TABLE OF bapimeposchedule WITH HEADER LINE.
  DATA:zname TYPE string,
       num   TYPE i.
  CLEAR num .
  LOOP AT gt_alv INTO lwa_alv WHERE sel = 'X'.
*    num = num + 1 .
*       "下载Excel
*    zname = text-006 && num .
    PERFORM frm_down_excel USING text-012 lwa_alv-ebeln  CHANGING lc_file.
    " 创建excel应用程序
    PERFORM create_application.
    "打开Excel 第一个页签
    PERFORM open_excel1 USING lc_file  p_num  'Sheet1'."Sheet1 为页签名字

    LOOP AT gt_header INTO lwa_header WHERE ebeln = lwa_alv-ebeln.

      lv_str1 = '供应商名称 Supplier Name：' && lwa_header-name1_vendor.
      PERFORM fill_cell USING 5 1  1 lv_str1."供应商
      lv_str1 = '采购单号Purchase order number：' && lwa_header-ebeln.
      PERFORM fill_cell USING 5 5  1 lv_str1 ."po
      lv_str1 = '联系人 Contact：' && lwa_header-name1_llr.
      PERFORM fill_cell USING 6 1  1 lv_str1."联络人
      lv_str1 = '采购日期 Purchase Date：' && lwa_header-bedat.
      PERFORM fill_cell USING 6 5  1 lv_str1 ."采购日期
      lv_str1 = '电话 Telephone：' && lwa_header-mob_number.
      PERFORM fill_cell USING 7 1  1 lv_str1 ."电话
      lv_str1 = '币种Currency：' && lwa_header-waers.
      PERFORM fill_cell USING 7 5  1 lv_str1."币种
      lv_str1 = '传真 Fax：' && lwa_header-fax_number.
      P