zde_html.txt

abap下载到html格式

*&---------------------------------------------------------------------*
*& Report  ZDE_HTML                                                    *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  zde_html.

TABLES:makt.
DATA: BEGIN OF htmlview OCCURS 0,
        matnr LIKE mara-matnr,
        maktx LIKE makt-maktx,
      END OF htmlview.
*----------------------------------------------------------------------*
* PARAMETERS AND SELECT-OPTION                                         *
*----------------------------------------------------------------------*
SELECT-OPTIONS:
   s_matnr FOR makt-matnr.
*----------------------------------------------------------------------*
* START-OF-SELECTION                                                   *
*----------------------------------------------------------------------*
START-OF-SELECTION.
  PERFORM f_getdata .
  PERFORM downloadhtml .
  PERFORM showhtml .
*&---------------------------------------------------------------------*
*&      Form  f_getdata
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM f_getdata .
  SELECT *
    INTO CORRESPONDING FIELDS OF TABLE htmlview
    FROM makt
   WHERE matnr IN s_matnr
     AND spras EQ sy-langu.
ENDFORM.                    " f_getdata
*&--------------------------------------------------------------------*
*&      Form  downloadhtml
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM downloadhtml.
  CALL FUNCTION 'WS_DOWNLOAD'
    EXPORTING
      filename = 'C:\TABLEVIEW.HTM'
    TABLES
      data_tab = htmlview.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDFORM.                    "downloadhtml
***************************************************************
FORM showhtml.
  CALL FUNCTION 'WS_EXECUTE'
    EXPORTING
      commandline = 'c:\tableview.htm'
      program     = 'C:\PROGRA~1\INTERN~1\IEXPLORE.EXE'.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDFORM.                    "showhtml