download the data into an excel sheet on the prese...

Former Member · ‎06-24-2007

hi ,

how to download the data into an excel sheet on the

presentation server and also on the application server .

praveen

Former Member · ‎06-24-2007

Check the links -

Thanks

Seshu

Former Member · ‎06-24-2007

Refer

http://www.sapdevelopment.co.uk/file/file_updownpop.htm

http://www.sapdevelopment.co.uk/programs/custom/zdownempdata.htm

http://www.sapdevelopment.co.uk/file/file_upexcel.htm

http://www.sapdevelopment.co.uk/file/file_updown.htm

Regards,

Santosh

Former Member · ‎06-24-2007

Hi Praveeen,

To download in excel on presentation server look at the link below.

https://www.sdn.sap.com/irj/sdn/wiki in ABAP General section.

You can't download in excel sheet on application server. better download in CSV format on application server using OPEN DATASET.

Reward points if useful.

Regards,

Atish

Former Member · ‎06-25-2007

hi,

presentaion server:

REPORT ZSR_BDC_DOWNLOAD.

TABLES : LFA1.

SELECT-OPTIONS : S_LIFNR FOR LFA1-LIFNR.

DATA : BEGIN OF ITAB OCCURS 0,

LIFNR LIKE LFA1-LIFNR,

LAND1 LIKE LFA1-LAND1,

END OF ITAB.

SELECT LIFNR LAND1 FROM LFA1 INTO TABLE ITAB WHERE LIFNR IN S_LIFNR.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

BIN_FILESIZE =

FILENAME = 'c:\d.xls'

FILETYPE = 'ASC'

APPEND = ' '
WRITE_FIELD_SEPARATOR = ' '
HEADER = '00'
TRUNC_TRAILING_BLANKS = ' '
WRITE_LF = 'X'
COL_SELECT = ' '
COL_SELECT_MASK = ' '
DAT_MODE = ' '
CONFIRM_OVERWRITE = ' '
NO_AUTH_CHECK = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
WRITE_BOM = ' '
TRUNC_TRAILING_BLANKS_EOL = 'X'
WK1_N_FORMAT = ' '
WK1_N_SIZE = ' '
WK1_T_FORMAT = ' '
WK1_T_SIZE = ' '
IMPORTING
FILELENGTH =

TABLES

DATA_TAB = ITAB

FIELDNAMES =

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

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

WRITE 😕 'not downloaded'.

ENDIF.

application server:

&----

*& Report ZSR_BDC_OPEN1

*&

&----

*&

&----

REPORT ZSR_BDC_OPEN1.

.

TABLES : LFA1.

PARAMETERS : FILE(200) TYPE C.

*select-options : s_lifnr for lfa1-lifnr.

DATA : BEGIN OF ITAB OCCURS 0,

LIFNR LIKE LFA1-LIFNR,"16) TYPE C

KTOKK LIKE LFA1-KTOKK,"(4) TYPE C

NAME1 LIKE LFA1-NAME1,"(35) TYPE C,

SORTL LIKE LFA1-SORTL,"(10) TYPE C,"

LAND1 LIKE LFA1-LAND1,"(3) TYPE C

SPRAS LIKE LFA1-SPRAS,"(2) TYPE C,"

END OF ITAB.

OPEN DATASET FILE FOR INPUT IN TEXT MODE ENCODING DEFAULT.

DO.

READ DATASET FILE INTO ITAB.

IF SY-SUBRC <> 0.

WRITE 😕 'not'.

EXIT.

ENDIF.

ENDDO.

CLOSE DATASET FILE.

LOOP AT ITAB.

WRITE 😕 ITAB-LAND1.

ENDLOOP.

Former Member · ‎06-29-2007

<b>1.Downloading fiel to Presentation server in excel sheet with colunm and rows .</b>

report zrrewr .
TYPE-POOLS: truxs.
TYPES:
  BEGIN OF ty_Line,
    vbeln LIKE vbap-vbeln,
    posnr LIKE vbap-posnr,
  END OF ty_Line.
types  :  ty_Lines TYPE STANDARD TABLE of ty_Line WITH DEFAULT KEY.
DATA: itab   TYPE ty_Lines.
DATA: itab1  TYPE truxs_t_text_data.


    DATA: ld_filename TYPE string,
        ld_path TYPE string,
        ld_fullpath TYPE string,
        ld_result TYPE i.
SELECT
  vbeln
  posnr
  UP TO 10 ROWS
  FROM vbap
  INTO TABLE itab.




* Display save dialog window
  CALL METHOD cl_gui_frontend_services=>file_save_dialog
    EXPORTING
*      window_title      = ' '
      DEFAULT_EXTENSION = 'XLS'
      default_file_name = 'test1'
      INITIAL_DIRECTORY = 'C:Documents and Settingsc5091828Desktop'
    CHANGING
      filename          = ld_filename
      path              = ld_path
      fullpath          = ld_fullpath
      user_action       = ld_result.

* Check user did not cancel request
  CHECK ld_result EQ '0'.

  CALL FUNCTION 'GUI_DOWNLOAD'
   EXPORTING
        filename         = ld_fullpath
        filetype         = 'ASC'
*       APPEND           = 'X'
        write_field_separator = 'X'
*       CONFIRM_OVERWRITE = 'X'
   TABLES
        data_tab         = itab     "need to declare and populate
   EXCEPTIONS
        file_open_error  = 1
        file_write_error = 2
        OTHERS           = 3.

<b>2. for donwloading file into Applcation server in Excel format with Column & Row</b>....

report zrrewr .
TYPE-POOLS: truxs.
TYPES:
  BEGIN OF ty_Line,
    vbeln LIKE vbap-vbeln,
    posnr LIKE vbap-posnr,
  END OF ty_Line.
types  :  ty_Lines TYPE STANDARD TABLE of ty_Line WITH DEFAULT KEY.
DATA: itab   TYPE ty_Lines.
DATA: itab1  TYPE truxs_t_text_data.


    DATA: ld_filename TYPE string,
        ld_path TYPE string,
        ld_fullpath TYPE string,
        ld_result TYPE i.
SELECT
  vbeln
  posnr
  UP TO 10 ROWS
  FROM vbap
  INTO TABLE itab.




* Display save dialog window
  CALL METHOD cl_gui_frontend_services=>file_save_dialog
    EXPORTING
*      window_title      = ' '
      DEFAULT_EXTENSION = 'XLS'
      default_file_name = 'test1'
      INITIAL_DIRECTORY = 'C:Documents and Settingsc5091828Desktop'
    CHANGING
      filename          = ld_filename
      path              = ld_path
      fullpath          = ld_fullpath
      user_action       = ld_result.

* Check user did not cancel request
  CHECK ld_result EQ '0'.

  CALL FUNCTION 'DOWNLOAD'
   EXPORTING
        filename         = ld_fullpath
        filetype         = 'ASC'
*       APPEND           = 'X'
        write_field_separator = 'X'
*       CONFIRM_OVERWRITE = 'X'
   TABLES
        data_tab         = itab     "need to declare and populate
   EXCEPTIONS
        file_open_error  = 1
        file_write_error = 2
        OTHERS           = 3.

reward points if it is usefull ...

Girish

download the data into an excel sheet on the presentation & application