Solved: NEED TO DOWNLOAD DATA FROM INTERNAL TABLE TO EXCEL

Former Member · ‎03-19-2009

Hi All,

I have a problem in transfering data from internal table into the excel. Problem is before transferring data I have to transfer the header line then transfer the data. How do I do it.

I created to internal tables for header and data, both have different length of records. is it possible to transfer the header first then data into the excel.

Thanks

Ravi

Edited by: Julius Bussche on Mar 19, 2009 9:24 PM

Please dont use CAPS-LOCK. It is generally interpreted as SHOUTING

awin_prabhu · ‎03-20-2009

Hi,

Add one more parameter in header 'GUI_DOWNLOAD'.

Header data:

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

write_field_separator = 'X'.

U will get in separate columns.

Former Member · ‎03-19-2009

HI,

Use the GUI_DOWNLOAD FM


TYPES: BEGIN OF ty_head, "Structure for header
             h(10) TYPE c,
             END OF ty_head.
DATA: it_head  TYPE TABLE OF ty_head WITH HEADER LINE.
 
"Adding header details
it_head-h = 'Field1'.
APPEND it_head.
 
it_head-h = 'Field2'.
APPEND it_head.
 
it_head-h = 'Field3'.
APPEND it_head.
 
it_head-h = 'Field4'.
APPEND it_head.


CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
    filename                = filepath
    filetype                = 'DAT'
  TABLES
    data_tab                = itab
    fieldnames              = it_head  
  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.

Edited by: Avinash Kodarapu on Mar 20, 2009 12:14 AM

Former Member · ‎03-19-2009

Hi Avinash,

I tried yours but it is throughing some debug error while calling the function module. if running with out eheader it is working fine. I created the header as you suggested but still creating problem. can you suggest what may be reason.

Ravi

Former Member · ‎03-19-2009

Avinash,

I given the code as follows

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

filename = filename

filetype = 'DAT'

TABLES

data_tab = itab

fieldnames = itab_header

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.

I am getting dump as

Error analysis

The call to the function module "GUI_DOWNLOAD" is incorrect:

The function module interface allows you to specify only fields

of a particular type under "FILENAME". The field "FILENAME" specified here

has a different field type.

Ravi

faisal_altaf2 · ‎03-19-2009

Hi, Ravi

Test the Sample Code Bellow it will work for you. i have tested and it is working fine for me, it will create abc.xls on the local Drive C Please Check this Excel File.

TYPES: BEGIN OF ty_it1,
  mm(15),
  amount1 TYPE i,
  amount2 TYPE i,
  END OF ty_it1.
TYPES: BEGIN OF ty_heading,
  h(15),
  END OF ty_heading.

DATA: it TYPE STANDARD TABLE OF ty_it1 WITH HEADER LINE,
      it_heading TYPE STANDARD TABLE OF ty_heading WITH HEADER LINE.


it-mm = 'AAA'. it-amount1 = 123. it-amount2 = 321. APPEND it.
it-mm = 'BBB'. it-amount1 = 213. it-amount2 = 211. APPEND it.
it-mm = 'CCC'. it-amount1 = 543. it-amount2 = 332. APPEND it.

it_heading-h = 'Name'.APPEND it_heading. it_heading-h = 'Amount 1'.APPEND it_heading. it_heading-h = 'Amount 2'. APPEND it_heading.

CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
    filename                = 'c:\abc.xls'
    filetype                = 'DAT'
  TABLES
    data_tab                = it[]
    fieldnames              = it_heading
  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.

Best Regards,

Faisal

former_member585060 · ‎03-19-2009

Hi,

Use function module GUI_DOWNLOAD

2 times,

1)for header table

2)same file name with item table with I_APPEND = 'X'.

or try with

FM '*XXL_FULL_API*'

CALL FUNCTION 'XXL_FULL_API'
  EXPORTING
*   DATA_ENDING_AT          = 54
*   DATA_STARTING_AT        = 5
   filename                = 'TESTFILE'
   header_1                = header1
   header_2                = header2
   no_dialog               = 'X'
   no_start                = ' '
    n_att_cols              = 6
    n_hrz_keys              = 1
    n_vrt_keys              = 4
   sema_type               = 'X'
*   SO_TITLE                = ' '
  TABLES
    data                    = t_sflight
    hkey                    = t_hkey
    online_text             = t_online
    print_text              = t_print
    sema                    = t_sema
    vkey                    = t_vkey
 EXCEPTIONS
   cancelled_by_user       = 1
   data_too_big            = 2
   dim_mismatch_data       = 3
   dim_mismatch_sema       = 4
   dim_mismatch_vkey       = 5
   error_in_hkey           = 6
   error_in_sema           = 7
   file_open_error         = 8
   file_write_error        = 9
   inv_data_range          = 10
   inv_winsys              = 11
   inv_xxl                 = 12
   OTHERS                  = 13
          .
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

Regards

Bala Krishna

Edited by: Bala Krishna on Mar 20, 2009 12:24 AM

faisal_altaf2 · ‎03-19-2009

Hi, Ravi,

Please don't use ALL CAPS in your Subject next time

you can use CALL METHOD cl_gui_frontend_services=>gui_download too.

Best Regards,

Faisal

I355602 · ‎03-20-2009

Hi,

Refer this link:

https://www.sdn.sap.com/irj/scn/wiki?path=/display/abap/downloading%252binternal%252btables%252bto%2...

Hope this helps you.

Regards,

Tarun

awin_prabhu · ‎03-20-2009

Hi

Do two changes.

1. Declare 'filename' as data type string.

2. Change filetype to either 'ASC' or 'BIN'.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

filename = filename <---- 'filename' type string.

filetype = 'DAT' <----- 'ASC' or 'BIN'

TABLES

data_tab = itab

fieldnames = itab_header

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.

Former Member · ‎03-20-2009

Hi Ravi,

The error is because the data type of the variable filename that you are passing is different from the interface parameter in the function module. Make sure that the datatype for both is same.The filename should be of type string. If you are using as type rlgrap-filenmae pass this into a string variable and then pass that to the function module.

Hope this helps.

Regards,

Sachin

Former Member · ‎03-20-2009

REPORT ZOLE_ABAP.

INCLUDE ole2incl.

&----

*& TYPES *

&----

TYPES: BEGIN OF ty_spfli,

kunnr TYPE kna1-kunnr,

land1 TYPE kna1-land1,

NAME1 TYPE KNA1-NAME1,

ORT01 TYPE KNA1-ORT01,

REGIO TYPE KNA1-REGIO,

ADRNR TYPE KNA1-ADRNR,

END OF ty_spfli.

TYPES: BEGIN OF ty_titles,

title(20) TYPE c,

field(20) TYPE c,

END OF ty_titles.

&----

*& INTERNAL TABLES *

&----

DATA: t_spfli TYPE STANDARD TABLE OF ty_spfli,

t_titles TYPE STANDARD TABLE OF ty_titles.

&----

*& FIELD-SYMBOLS *

&----

FIELD-SYMBOLS: <fs_spfli> LIKE LINE OF t_spfli,

<fs_titles> LIKE LINE OF t_titles,

<fs> TYPE ANY.

&----

*& VARIABLES *

&----

DATA: w_tabix TYPE sy-tabix,

w_titles TYPE sy-tabix,

w_line TYPE sy-tabix,

w_field TYPE string,

filename TYPE string,

path TYPE string,

fullpath TYPE string.

DATA: data_titles TYPE REF TO data.

DATA: e_sheet TYPE ole2_object,

e_activesheet TYPE ole2_object,

e_newsheet TYPE ole2_object,

e_appl TYPE ole2_object,

e_work TYPE ole2_object,

e_cell TYPE ole2_object,

e_color TYPE ole2_object,

e_bold TYPE ole2_object.

&----

*& SELECTION-SCREEN *

&----

SELECTION-SCREEN BEGIN OF BLOCK b1.

PARAMETERS: p_file TYPE rlgrap-filename.

SELECTION-SCREEN END OF BLOCK b1.

&----

*& START-OF-SELECTION *

&----

START-OF-SELECTION.

PERFORM get_titles.

PERFORM get_data.

PERFORM create_excel.

&----

*& AT SELECTION-SCREEN *

&----

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

CALL METHOD cl_gui_frontend_services=>file_save_dialog

EXPORTING

window_title = 'Select archivo'

default_extension = 'xls'

file_filter = '*.xls'

CHANGING

filename = filename

path = path

fullpath = fullpath.

IF sy-subrc EQ 0.

p_file = fullpath.

ENDIF.

&----

*& Form get_titles *

&----

FORM get_titles.

CREATE DATA data_titles TYPE ty_titles.

ASSIGN data_titles->* TO <fs_titles>.

<fs_titles>-title = 'Customer Number 1'.

<fs_titles>-field = 'KUNNR'.