【ABAP系列】SAP ABAP下载带密码的Excel文件

公众号：SAP Technical

本文作者：matinal

原文出处：http://www.cnblogs.com/SAPmatinal/

原文链接：【ABAP系列】SAP ABAP下载带密码的Excel文件

 

前言部分

大家可以关注我的公众号，公众号里的排版更好，阅读更舒适。

正文部分

REPORT ztest.

DATA : BEGIN OF li_makt OCCURS ,
         matnr TYPE matnr,
         maktx TYPE maktx,
       END OF li_makt.

DATA: BEGIN OF li_head OCCURS ,
        field() TYPE c,
      END OF li_head.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-.
PARAMETERS:
  p_file TYPE rlgrap-filename OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b2.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  PERFORM browse_file CHANGING p_file.

START-OF-SELECTION.

  REFRESH li_head.

  DEFINE mc_head.
    li_head-field = &.
    APPEND li_head.
  END-OF-DEFINITION.

  SELECT matnr maktx INTO TABLE li_makt FROM makt UP TO  ROWS WHERE spras = sy-langu .

  mc_head : 'Material No', 'Material Description'.

  CALL FUNCTION 'EXCEL_OLE_STANDARD_DAT'
    EXPORTING
      file_name                 = p_file
      create_pivot              =
      data_sheet_name           = 'Data Material'
      pivot_sheet_name          = ' '
      password                  = 'plazapp'
      password_option           =
    TABLES
      data_tab                  = li_makt
      fieldnames                = li_head
    EXCEPTIONS
      file_not_exist            =
      filename_expected         =
      communication_error       =
      ole_object_method_error   =
      ole_object_property_error =
      invalid_filename          =
      invalid_pivot_fields      =
      download_problem          =
      OTHERS                    = .
  IF sy-subrc <> .
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

FORM browse_file CHANGING p_file LIKE rlgrap-filename.
  DATA: filetab   TYPE filetable,
        rc        TYPE i,
        lv_offset TYPE i.

  FREE filetab.
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = 'Choose File'
      default_extension       = '*.*'
      default_filename        = 'c:\*.xls'
    CHANGING
      file_table              = filetab
      rc                      = rc
    EXCEPTIONS
      file_open_dialog_failed =
      cntl_error              =
      error_no_gui            =
      OTHERS                  = .
  IF sy-subrc = .
    READ TABLE filetab INTO p_file INDEX .
  ENDIF.
ENDFORM. " browse_file