SAP Word 生成

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.