ABAP 导出EXCEL自动生成一维码

第一步:首先需要在原先 EXCEL模板中第一宏

EXCEL => 视图=>宏 

 

第二步:将编辑好的EXCEL模板 上传至SAP OAOR 

第三步:在ABAP程序中调用EXCEL宏 

           调用代码:

    CALL METHOD document->execute_macro
    EXPORTING
      macro_string = 'SAP1.MACRO'
    IMPORTING
      error        = errors
      retcode      = retcode.

   CALL METHOD document->execute_macro
    EXPORTING
      macro_string = '模块1.BARCODE'
    IMPORTING
      error        = errors
      retcode      = retcode.

 

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
ABAP可以使用函数模块GUI_DOWNLOAD和ALSM_EXCEL_TO_INTERNAL_TABLE来动态导出Excel表。 首先,使用ALSM_EXCEL_TO_INTERNAL_TABLE函数将数据导入到内部表中。以下是一个简单的例子: ``` DATA: it_data TYPE STANDARD TABLE OF mara, wa_data TYPE mara. SELECT * FROM mara INTO TABLE it_data. CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE' EXPORTING filename = 'example.xlsx' i_begin_col = 'A' i_begin_row = 1 i_end_col = 'D' i_end_row = 1000 TABLES intern = it_data EXCEPTIONS inconsistent_parameters = 1 upload_ole = 2 others = 3. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. ``` 然后,使用函数模块GUI_DOWNLOAD将内部表中的数据导出Excel文件中。以下是一个简单的例子: ``` DATA: it_data TYPE STANDARD TABLE OF mara, wa_data TYPE mara. SELECT * FROM mara INTO TABLE it_data. CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE' EXPORTING filename = 'example.xlsx' i_begin_col = 'A' i_begin_row = 1 i_end_col = 'D' i_end_row = 1000 TABLES intern = it_data EXCEPTIONS inconsistent_parameters = 1 upload_ole = 2 others = 3. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. CALL FUNCTION 'GUI_DOWNLOAD' EXPORTING filename = 'example.xlsx' filetype = 'ASC' write_field_separator = ' ' TABLES data_tab = it_data EXCEPTIONS file_write_error = 1 no_batch = 2 gui_refuse_filetransfer = 3 invalid_type = 4 no_authority = 5 unknown_error = 6 header_not_allowed = 7 separator_not_allowed = 8 filesize_not_allowed = 9 header_too_long = 10 dp_error_create = 11 dp_error_send = 12 dp_error_write = 13 unknown_dp_error = 14 access_denied = 15 dp_out_of_memory = 16 disk_full = 17 dp_timeout = 18 file_not_found = 19 dataprovider_exception = 20 control_flush_error = 21 others = 22. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. ``` 在这些例子中,使用了内部表mara来存储数据,将数据导入到Excel文件中。你可以根据需要更改内部表和字段名称。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值