SAP Word 生成

最新推荐文章于 2025-07-08 19:27:39 发布

原创最新推荐文章于 2025-07-08 19:27:39 发布 · 370 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#SAP #abap #Word

SAP 同时被 2 个专栏收录

433 篇文章

订阅专栏

Function

23 篇文章

订阅专栏

report ztest126
       no standard page heading line-size 255.
data: begin of wa_html,
        zhtml(255),
      end of wa_html,
      gt_html like table of wa_html.

data: v_str type string.

define appd_html.
wa_html-zhtml = &1.
append wa_html to gt_html.
clear wa_html.
end-of-definition.

appd_html: '<table style="width:100%;border:1px black solid;font-size:10px; border-collapse:collapse;font-family:Arial Unicode MS;">',
           '<tr>',
           '<td align="center" style="border:1px black solid;">1111111111</td>',
           '<td align="center" style="border:1px black solid;">2222222222</td>',
           '</tr>',
           '<tr>',
           '<td align="center" style="border:1px black solid;">1111111111</td>',
           '<td align="center" style="border:1px black solid;">2222222222</td>',
           '</tr>',
           '<tr>',
           '<td align="center" style="border:1px black solid;">1111111111</td>',
           '<td align="center" style="border:1px black solid;">2222222222</td>',
           '</tr>',
           '</table>'.

call method cl_gui_frontend_services=>gui_download
exporting
filename = 'c:\a.doc'
changing
data_tab = gt_html.

call function 'CALL_INTERNET_ADRESS' "打开Word
exporting
    pi_adress     = 'c:\a.doc'
*   PI_TECHKEY    = ''
exceptions
    no_input_data = 1
    others        = 2.

if sy-subrc eq 0.
write 'OK'.
else.
write 'ER'.
endif.