Error msg appearing while downloading Excel sheet in Pivot table format!!

Question

Hi All,
I received this error when the report outputted. I had to click okay twice, then the report populated correctly.
"Unable to get the Pivotfields property of the Pivot table class" was the error message that i got.
FORM start_excel .
  TYPES:
    BEGIN OF ls_table_out,
      ls_line(64000) TYPE x,
    END OF ls_table_out.
  DATA:
    fname TYPE string,
    atrname(128) TYPE C,
    ls_line_out(64000) TYPE x,
    ls_datasize TYPE i,
    ls_readsize TYPE i,
    lt_table_out TYPE TABLE OF ls_table_out WITH HEADER LINE.
*    excelf(200) TYPE c.
  data: oref type ref to CL_GUI_FRONTEND_SERVICES.
  CREATE OBJECT oref.
  ls_datasize = 0.
  ls_readsize = 0.
* if user indicated to get Template from Unix.
* Copy template to C:\Gap_Mandate_Training and then start template from
* there.  Otherwise start template from local directory indicated
  IF excelf CS '/'.   "if contains forward slash then unix file
    OPEN DATASET excelf FOR INPUT IN BINARY MODE.
    IF sy-subrc = 0.
      DO.
        READ DATASET excelf INTO ls_line_out LENGTH ls_readsize.
        IF sy-subrc <> 0.
          ls_datasize = ls_datasize + ls_readsize.
          lt_table_out-ls_line = ls_line_out.
          APPEND lt_table_out.
          EXIT.
        ENDIF.
        ls_datasize = ls_datasize + ls_readsize.
        lt_table_out-ls_line = ls_line_out.
        APPEND lt_table_out.
      ENDDO.
*   move c_txt_file_path to fname.
      CONCATENATE dir  '\mandated_training.xls' INTO templ_name.
      MOVE templ_name TO fname.
      atrname = fname.
*      CALL FUNCTION 'WS_FILE_ATTRIB'
*        EXPORTING
*          file   = atrname
*          attrib = 'R-'.
      data: filename type string,
            rc type i.
      filename = atrname.
      CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SET_ATTRIBUTES
        EXPORTING
          FILENAME             = filename
          READONLY             = ' '
        IMPORTING
          RC                   = rc
        EXCEPTIONS
          CNTL_ERROR           = 1
          ERROR_NO_GUI         = 2
          NOT_SUPPORTED_BY_GUI = 3
          WRONG_PARAMETER      = 4
          others               = 5.
      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
        bin_filesize                  = ls_datasize
        filename                      = fname
        filetype                      = 'BIN'
* IMPORTING
*   FILELENGTH                    =
      TABLES
        data_tab                      = lt_table_out
      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.
      atrname = fname.
      CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SET_ATTRIBUTES
        EXPORTING
          FILENAME             = filename
          READONLY             = 'X'
*         NORMAL               =
*         HIDDEN               =
*         ARCHIVE              =
        IMPORTING
          RC                   = rc
        EXCEPTIONS
          CNTL_ERROR           = 1
          ERROR_NO_GUI         = 2
          NOT_SUPPORTED_BY_GUI = 3
          WRONG_PARAMETER      = 4
          others               = 5.
      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 'WS_FILE_ATTRIB'
*        EXPORTING
*          file   = atrname
*          attrib = 'R+'.
    ELSE.
      MOVE 'UNIX-TEMPLATE-NOT-FOUND.XLS' TO templ_name.
    ENDIF.  "IF sy-subrc = 0
  ELSE.
    templ_name = excelf.
  ENDIF.  "if excelf CN '/'
* Now kick off the excel file
  DATA:
    startpath LIKE rlgrap-filename,
*    ls_comline(100) TYPE c,                    "Comment out for GHDK964062
    ls_comline type string,                     "Added for  GHDK964062
    lf_length TYPE i.
  CALL FUNCTION 'REGISTRY_GET'
    EXPORTING
      key     = 'protocol\StdFileEditing\server'
      section = 'ExcelWorksheet'
    IMPORTING
      value   = startpath.
  MOVE templ_name TO ls_comline.
CALL FUNCTION 'ZHR_LAUNCH_OFFICE_APPS'        "ADDED FOR GHDK964062
    EXPORTING
*     IV_WORD           =
      IV_EXCEL          =  'X'
*     IV_PWRPOINT       =
      IV_PATH           = ls_comline
*   CALL FUNCTION 'WS_EXECUTE'                  "Comment out for GHDK964062
*    EXPORTING
*      commandline        = ls_comline
*      program            = startpath
*    EXCEPTIONS
*      frontend_error     = 1
*      no_batch           = 2
*      prog_not_found     = 3
*      illegal_option     = 4
*      gui_refuse_execute = 5.
ENDFORM.                    " start_excel
Please help me to resolve this issue.Thanks.
Regards,
Arpita.

Answer 1

Hi,
Did you the use the GUO_download using the following values:
CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
    filename         = fullpath
    filetype         = 'ASC'
    codepage         = space
    write_bom        = 'X'
  TABLES