Download of logical file in MS-EXCEL format

[former_member434229]

Hi,

I have to download the content of a logical file in EXCEL file format on the presentation server.

Please let me know the procedure for the same.

TIA,

Nitin

[Former Member]

hi Nitin,

This is kiran kumar.G.I will send a sample code for this check it once ok...

code:

----

---

• Tables

----

---

TABLES: mara, "General Material Data

makt. "Material Descriptions

----

---

• Global Variables

----

---

DATA: gv_path TYPE string. "Hold Path Selection Information

----

---

• Internal Table

----

---

DATA : BEGIN OF gt_data OCCURS 0,

matnr(20), " Material Number

mbrsh(20), " Industry Sector

mtart(20), " Material Type

meins(20), " Base Unit Of Measure

maktx(20), " Material Description

END OF gt_data.

----

---

• Selection-Screen

----

---

SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETERS : p_file(90).

SELECTION-SCREEN : END OF BLOCK b1.

SELECTION-SCREEN : BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.

SELECT-OPTIONS : s_matnr FOR mara-matnr,

s_mbrsh FOR mara-mbrsh,

s_mtart FOR mara-mtart,

s_maktx FOR makt-maktx,

s_meins FOR mara-meins.

SELECTION-SCREEN : END OF BLOCK b2.

----

---

• Initialization

----

---

INITIALIZATION.

PERFORM initial.

----

---

• Placing A File In The Directory

----

---

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

PERFORM path_directory.

START-OF-SELECTION.

• Append Some Header Information To XLS File

PERFORM append_header.

----

---

• Fetching The Data

----

---

PERFORM fecth_data.

END-OF-SELECTION.

----

---

• GUI_DOWNLOAD

----

---

PERFORM gui_download.

&----

---

*& Form path_directory

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM path_directory .

CALL METHOD cl_gui_frontend_services=>directory_browse

EXPORTING

window_title = 'Download A File'

initial_folder = 'c:/'

CHANGING

selected_folder = gv_path

EXCEPTIONS

cntl_error = 1

error_no_gui = 2

not_supported_by_gui = 3

OTHERS = 4.

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 METHOD cl_gui_cfw=>flush

EXCEPTIONS

cntl_system_error = 1

cntl_error = 2

OTHERS = 3.

IF sy-subrc <> 0.

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

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

ENDIF.

p_file = gv_path.

CLEAR gv_path.

ENDFORM. " path_directory

&----

---

*& Form fecth_data

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM fecth_data .

SELECT a~matnr

a~mbrsh

a~mtart

a~meins

b~maktx

FROM mara AS a

INNER JOIN makt AS b ON a_{matnr = b}matnr

APPENDING TABLE gt_data

WHERE a~matnr IN s_matnr

AND a~mbrsh IN s_mbrsh

AND a~mtart IN s_mtart

AND b~maktx IN s_maktx

AND a~meins IN s_meins.

IF sy-subrc = 0.

MESSAGE s000.

ENDIF.

ENDFORM. " fecth_data

&----

---

*& Form gui_download

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM gui_download .

gv_path = p_file.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

• BIN_FILESIZE =

filename = gv_path

filetype = 'ASC'

• APPEND = ' '

write_field_separator = 'X'

• HEADER = '00'

• TRUNC_TRAILING_BLANKS = ' '

• WRITE_LF = 'X'

• COL_SELECT = ' '

• COL_SELECT_MASK = ' '

• DAT_MODE = ' '

• IMPORTING

• FILELENGTH =

TABLES

data_tab = gt_data

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.

ENDIF.

ENDFORM. " gui_download

&----

---

*& Form append_header

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM append_header .

REFRESH : gt_data.

CLEAR : gt_data.

gt_data-matnr = 'MATERIAL NUMBER'.

gt_data-mbrsh = 'INDUSTRY SECTOR'.

gt_data-mtart = 'MATERIAL TYPE'.

gt_data-maktx = 'MATERIAL DESCRIPTION'.

gt_data-meins = 'BASE UNIT OF MEASURE'.

APPEND gt_data.

CLEAR gt_data.

ENDFORM. " append_header

&----

---

*& Form initial

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM initial .

s_matnr-sign = 'I'.

s_matnr-option = 'BT'.

s_matnr-low = '800'.

s_matnr-high = '100-200'.

APPEND s_matnr.

s_mbrsh-sign = 'I'.

s_mbrsh-option = 'BT'.

s_mbrsh-low = 'M'.

s_mbrsh-high = ''.

APPEND s_mbrsh.

s_mtart-sign = 'I'.

s_mtart-option = 'BT'.

s_mtart-low = 'FERT'.

s_mtart-high = 'HALB'.

APPEND s_mtart.

s_maktx-sign = 'I'.

s_maktx-option = 'BT'.

s_maktx-low = 'IRON'.

s_maktx-high = 'STEEL'.

APPEND s_maktx.

s_meins-sign = 'I'.

s_meins-option = 'BT'.

s_meins-low = 'CM'.

s_meins-high = 'KG'.

APPEND s_meins.

ENDFORM. " initial

Award Points if helpful.

Kiran Kumar.G

Have a Nice Day..

[former_member434229]

Hi Kiran,

Thanks for the reply.

I think I haven't put my requirement very clearly.

Through one program I am writing data of my internal table to a logical file separated by comma(,).

In second program, I have to download the content of the logical file (not report) and process it further.

I want to know the procedure for the same.

Regards,

Nitin

[Former Member]

hi,

check this code

REPORT zmm_basic_data .

************************************************************************

Report to View Detail Of Material Master BASIC DATA.

Start Date 07.05.2007

Request No.-GR3K931783

************************************************************************

TABLES: mara,marc,makt.

DATA: gi_mara LIKE mara OCCURS 1 WITH HEADER LINE,

gi_marc LIKE marc OCCURS 1 WITH HEADER LINE,

gi_makt LIKE makt OCCURS 1 WITH HEADER LINE.

DATA: BEGIN OF gi_download OCCURS 1,

matnr LIKE mara-matnr,"material no

maktx LIKE makt-maktx,"material description

matkl LIKE mara-matkl,"material group

werks LIKE marc-werks,"plant

ekgrp LIKE marc-ekgrp,"purchasing group

spart LIKE mara-spart,"division

meins LIKE mara-meins,"base uit of measure

bismt LIKE mara-bismt,"old material no.

prdha LIKE mara-prdha,"product hierarchy

brgew LIKE mara-brgew,"gross weight

ntgew LIKE mara-ntgew,"net weight

gewei LIKE mara-gewei,"weight unit

volum LIKE mara-volum,"volume

voleh LIKE mara-voleh,"volume unit

zeinr LIKE mara-zeinr,"document no.

zeiar LIKE mara-zeiar,"document type

zeivr LIKE mara-zeivr,"document version

zeifo LIKE mara-zeifo,"page format of document

blanz LIKE mara-blanz,"number of sheets

spras LIKE makt-spras,"language key

END OF gi_download.

DATA: BEGIN OF gi_fieldnames OCCURS 1,

mandt(50),

END OF gi_fieldnames.

*file path and file name data declaration.

DATA: stripped_name LIKE rlgrap-filename,

file_path LIKE rlgrap-filename.

DATA: inpath LIKE ltran-path01,

file LIKE ltran-file01,

outpath LIKE ltran-path02.

Field Symbols ************

FIELD-SYMBOLS <mara> LIKE gi_mara.

FIELD-SYMBOLS <marc> LIKE gi_marc.

FIELD-SYMBOLS <makt> LIKE gi_makt.

FIELD-SYMBOLS <download> LIKE gi_download.

SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECTION-SCREEN: SKIP.

SELECT-OPTIONS: s_werks FOR marc-werks.

SELECT-OPTIONS: s_ekgrp FOR marc-ekgrp.

SELECT-OPTIONS: s_matnr FOR mara-matnr.

SELECT-OPTIONS: s_matkl FOR mara-matkl.

SELECT-OPTIONS: s_spart FOR mara-spart.

SELECTION-SCREEN: SKIP.

PARAMETER fnm TYPE rlgrap-filename OBLIGATORY.

SELECTION-SCREEN: SKIP.

SELECTION-SCREEN: END OF BLOCK b1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR fnm.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

EXPORTING

static = 'X'

CHANGING

file_name = fnm

EXCEPTIONS

mask_too_long = 1

OTHERS = 2.

IF sy-subrc 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

*For fetching the baisc data.

START-OF-SELECTION.

*******************************************************************

*Getting the general data based on material no,division and material

*group.

*******************************************************************

SELECT * FROM mara INTO TABLE gi_mara

WHERE matnr IN s_matnr

AND spart IN s_spart

AND matkl IN s_matkl.

*******************************************************************

*Getting the plant data based on material no,plant and purchasing

*group.

*******************************************************************

IF NOT gi_mara[] IS INITIAL.

SELECT * FROM marc INTO TABLE gi_marc

FOR ALL ENTRIES IN gi_mara

WHERE matnr EQ gi_mara-matnr

AND werks IN s_werks

AND ekgrp IN s_ekgrp.

ENDIF.

***********************************************************

*Getting the material description based on material no

***********************************************************

IF NOT gi_mara[] IS INITIAL.

SELECT * FROM makt INTO TABLE gi_makt

FOR ALL ENTRIES IN gi_mara

WHERE matnr = gi_mara-matnr.

ENDIF.

Fetching all data into single internal table ********

SORT gi_mara BY matnr.

SORT gi_makt BY matnr.

SORT gi_marc BY matnr.

*****Transfering the data into gi_download*******

IF s_werks] IS INITIAL and s_ekgrp[ IS INITIAL.

LOOP AT gi_mara ASSIGNING <mara>.

MOVE-CORRESPONDING <mara> TO gi_download.

READ TABLE gi_marc ASSIGNING <marc>

WITH KEY matnr = <mara>-matnr

BINARY SEARCH.

IF sy-subrc = 0.

MOVE <marc>-werks TO gi_download-werks.

MOVE <marc>-ekgrp TO gi_download-ekgrp.

ENDIF.

READ TABLE gi_makt ASSIGNING <makt>

WITH KEY matnr = <mara>-matnr

BINARY SEARCH.

IF sy-subrc = 0.

MOVE <makt>-maktx TO gi_download-maktx.

MOVE <makt>-spras TO gi_download-spras.

ENDIF.

APPEND gi_download.

CLEAR gi_download.

ENDLOOP.

ELSE.

LOOP AT gi_marc ASSIGNING <marc>.

READ TABLE gi_mara ASSIGNING <mara>

WITH KEY matnr = <marc>-matnr

BINARY SEARCH.

IF sy-subrc = 0.

MOVE-CORRESPONDING <mara> TO gi_download.

ENDIF.

READ TABLE gi_makt ASSIGNING <makt>

WITH KEY matnr = <marc>-matnr

BINARY SEARCH.

IF sy-subrc = 0.

MOVE <makt>-maktx TO gi_download-maktx.

MOVE <makt>-spras TO gi_download-spras.

ENDIF.

MOVE <marc>-werks TO gi_download-werks.

MOVE <marc>-ekgrp TO gi_download-ekgrp.

APPEND gi_download.

CLEAR gi_download.

ENDLOOP.

ENDIF.

IF gi_download[] IS INITIAL.

MESSAGE i001(sa) WITH 'Data not found'.

LEAVE LIST-PROCESSING.

ENDIF.

*******Downloading the basic data********

gi_fieldnames-mandt = 'Material no'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames.

gi_fieldnames-mandt = 'Material description'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames.

gi_fieldnames-mandt = 'Material group'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames.

gi_fieldnames-mandt = 'Plant'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames.

gi_fieldnames-mandt = 'Purchasing group'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames.

gi_fieldnames-mandt = 'Division'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames.

gi_fieldnames-mandt = 'Base uit of measure'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames.

gi_fieldnames-mandt = 'Old material no.'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames.

gi_fieldnames-mandt = 'Product hierarchy'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames.

gi_fieldnames-mandt = 'Gross weight'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames.

gi_fieldnames-mandt = 'Net weight'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames.

gi_fieldnames-mandt = 'Weight unit'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames.

gi_fieldnames-mandt = 'Volume'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames.

gi_fieldnames-mandt = 'Volume unit'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames.

gi_fieldnames-mandt = 'Document no.'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames.

gi_fieldnames-mandt = 'Document type'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames.

gi_fieldnames-mandt = 'Document version'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames.

gi_fieldnames-mandt = 'Page format of document'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames.

gi_fieldnames-mandt = 'Number of sheets'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames.

gi_fieldnames-mandt = 'Language key'.

APPEND gi_fieldnames.

CLEAR gi_fieldnames. CALL FUNCTION 'SO_SPLIT_FILE_AND_PATH'

EXPORTING

full_name = fnm

IMPORTING

stripped_name = stripped_name

file_path = file_path

EXCEPTIONS

x_error = 1

OTHERS = 2.

IF sy-subrc 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CLEAR fnm.

CONCATENATE file_path stripped_name INTO fnm.

CLEAR: inpath,file,stripped_name,file_path,outpath.

CALL FUNCTION 'WS_DOWNLOAD'

EXPORTING

filename = fnm

filetype = 'DAT'

TABLES

data_tab = gi_download

fieldnames = gi_fieldnames

EXCEPTIONS

file_open_error = 1

file_write_error = 2

invalid_filesize = 3

invalid_type = 4

no_batch = 5

unknown_error = 6

invalid_table_width = 7

gui_refuse_filetransfer = 8

customer_error = 9

OTHERS = 10.

IF sy-subrc 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ELSE.

MESSAGE i003(sa) WITH 'File downloaded successfuly' fnm.

ENDIF.

REFRESH: gi_download,gi_mara,gi_marc,gi_makt.

CLEAR: gi_download,gi_mara,gi_marc,gi_makt.

Reward if useful.

[Former Member]

Hi,

Check the following link:

http://sap-img.com/abap/download-to-excel-with-format-border-color-cell-etc.htm

Regards,

Bhaskar

[former_member386202]

Hi,

Use FM GUI_DOWNLOAD to download the data to excel sheet on presentation server.

Regards,

Prashant

[former_member434229]

Solved