Export internal table to Excel during debugging.

Hi Experts
I have put a debugger( old debugger ) on a certain line of code where we are checking the data of an internal table having around 10000 entries and I want to export this internal table data to an excel for analysis during debugging itself.
Is there a way to export this ? The new debugger does not work in IFD. ( 6.40)
Regards
Sukanya.

Hi
In application menu follow the path
Select the internal table then
Goto->Display Data Object -> Structure Editor
This will show only part of the internal.
Goto List-> Display entire list.
You can print the list or send it to excel sheet.
Regards
Navneet

Similar Messages

Export internal table to Excel file pressing a new button created in ALV

Hello, I am trying to implement the functionality to export to excel file inside a button that i have created into my ALV. I don't want to use FileDownload UI.
The code I have set for event handler of this button is the following:
METHOD attach_files .
TYPES:
    BEGIN OF tipo_alv_tab,
      tipod    TYPE objid,
      descd   TYPE p1000-stext,
      begda   TYPE begdatum,
      endda   TYPE enddatum,
      pernr     TYPE pernr_d,
      nombre TYPE ad_namefir,
      email     TYPE ad_smtpadr,
      posicion TYPE p1000-stext,
      uodesc   TYPE p1000-stext,
    END OF tipo_alv_tab.
DATA:
    i_alv_tab    TYPE TABLE OF tipo_alv_tab,
    conv_out     TYPE REF TO cl_abap_conv_out_ce,
    content      TYPE xstring,
    lv_filename TYPE string,
    xml_out      TYPE string.
Fill values from memory
IMPORT name1 TO i_alv_tab FROM MEMORY ID 'ZCA'.
Build XML file with internal table information
CALL TRANSFORMATION ('ID') SOURCE tab = i_alv_tab[] RESULT XML xml_out.
Build XSTRING with XML
CALL FUNCTION 'CRM_IC_XML_STRING2XSTRING'
    EXPORTING
      instring   = xml_out
    IMPORTING
      outxstring = content.
Format XSTRING
conv_out = cl_abap_conv_out_ce=>create( encoding = 'UTF-8' ).
Convert data
conv_out->convert( EXPORTING data = xml_out IMPORTING buffer = content ).
Save file
CALL METHOD cl_wd_runtime_services=>attach_file_to_response
    EXPORTING
      i_filename      = 'Excel File.xls'
      i_content       = content
      i_mime_type     = 'application/msexcel'
      i_in_new_window = i_in_new_window
      i_inplace       = i_inplace.
ENDMETHOD.
When pressing the button, the file created is without extension, and with a rare name. When trying to open the file, it seems to be corrupted.
Does anyone know what am I doing wrong???
Please, help is really really appreciated!!!!

Hi Jorge,
The export data to excel functionality is available inbuilt in ALV and you dont have to write any implementation. However, if you want to create your own button for it, you can do so as below.
data:
lr_button type ref to cl_salv_wd_fe_button,
lr_function type ref to cl_salv_wd_function.
CREATE OBJECT lr_button.
lr_button->set_text( 'Export to excel' ).
lr_button->set_tooltip( 'Export data to excel' ).
lr_function = l_alv_model->if_salv_wd_function_settings~create_function( id = 'EXCEL' ).
lr_function->set_function_std( IF_SALV_WD_C_STD_FUNCTIONS=>EXPORT_EXCEL ).
lr_function->set_editor( lr_button ).
Now, you have created your own button, created a user defined function for the ALV and set this button as editor for the function. And using the set_function_std method, we have just mapped the functionality of your new button to the existing export to excel functionality in ALV.
Hope this is what you are looking for.
Regards
Nithya

Export internal table to excel...

Hello everyone!
I have an ALV with one column like this:
netwr LIKE vbrp-netwr
In the ALV Catalog, i allready tried this options:
CLEAR fieldcat_linha.
fieldcat_linha-fieldname = 'NETWR'.
* fieldcat_linha-ref_tabname = 'VBRP'.
* fieldcat_linha-ref_fieldname = 'NETWR'.
fieldcat_linha-reptext_ddic = text-126.
fieldcat_linha-decimals_out = '2'.
APPEND fieldcat_linha TO fieldcat_tab.
The problem is, when i export this to an excel file, i get 2 decimals only in values like this: '1.000,00'
If the value is '200,00' the export returns only '200' in the excel file. Does anyone know how to round this problem?
Thank you.
Message was edited by: Nuno Santos

I dont think this is the problem with ABAP. Try changing the customising settings for excel from control panel.
Ankur Bhandari
p.s Rewqard appropriate points if the answer helped
Message was edited by: Ankur Bhandari

Downloding Internal Table to Excel Issue

Hi guys,
I want to know how can i download an internal table to excel, in which i have only one field declare as string. The values in the string are delimiter by # and i want to separated it in the excel in columns.
Ej.
DATA: BEGIN OF t_asc_file OCCURS 100,
        string TYPE string,
      END OF t_asc_file,
      it_asc_file LIKE t_asc_file OCCURS 0,
      wa_asc_file like line of it_asc_file.
CONCATENATE wa_asc_file-string '#Importe#Mon.Soc.PA#Base Emisora %' INTO wa_asc_file-string.
APPEND wa_asc_file TO it_asc_file.
CALL METHOD cl_gui_frontend_services=>gui_download
    EXPORTING
*      BIN_FILESIZE              = BIN_FILESIZE
      filename                = fullpath
      filetype                = 'ASC'
*      APPEND                    = APPEND
      WRITE_FIELD_SEPARATOR = 'X' "CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB
*      HEADER                    = HEADER
*      TRUNC_TRAILING_BLANKS     = TRUNC_TRAILING_BLANKS
*      WRITE_LF                  = WRITE_LF
*      COL_SELECT                = COL_SELECT
*      COL_SELECT_MASK           = COL_SELECT_MASK
*      DAT_MODE                  = DAT_MODE
*      CONFIRM_OVERWRITE         = CONFIRM_OVERWRITE
*      NO_AUTH_CHECK             = NO_AUTH_CHECK
*      CODEPAGE                  = '1160' "CODEPAGE
*      IGNORE_CERR               = IGNORE_CERR
*      REPLACEMENT               = '#'
*      WRITE_BOM                 = WRITE_BOM
*      TRUNC_TRAILING_BLANKS_EOL = TRUNC_TRAILING_BLANKS_EOL
    IMPORTING
      filelength              = wa_filelength
    CHANGING
      data_tab                = it_asc_file
    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
      not_supported_by_gui    = 22
      error_no_gui            = 23
      OTHERS                  = 24.
This code only downloads all the information into the first column of excel.
Thanks in advance.
Eric

Hi Guys,
I know that the GUI_DOWNLOAD automatically creates the fields in separated columns when you have the internal table already separated by the fields you need.
In this case the fields that i need to download will vary from time to time, so i thought it was better to declare my internal table with one field as string. I debug the download option that has SAP in transaction KEU5, and it does work. This transaction has an internal table with one field declare as string, and each field is separated by "#".
I don't see the reason why it works in the standard and not for me, but in order to save time, i will create generic fields to my internal table.
Regards,
Eric
PD. If somebody knows how to resolve this problem would be highly apreciated.

Gui_download for transferring the data from internal table to excel sheet.

hi all,
i am using gui_download for transferring the data from internal table to excel sheet.
I have a internal table with 3 columns col1,col2,col3 and I am getting the file at the specified path,but my problem is that,in the excel sheet(path specified) all the 3 columns values are printed in one column.Please help me.
Thanks in advance.

Hi Venkata,
plz use FM 'SAP_CONVERT_TO_XLS_FORMAT' :
call function 'SAP_CONVERT_TO_XLS_FORMAT'
 exporting
* I_FIELD_SEPERATOR =
* I_LINE_HEADER =
 i_filename = p_file
* I_APPL_KEEP = ' '
 tables
 i_tab_sap_data = t_mbew
* CHANGING
* I_TAB_CONVERTED_DATA =
* EXCEPTIONS
* CONVERSION_FAILED = 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.
Hope this helps,
Erwan

Function Module to Download Internal table in EXCEL

Hi All,
I need a Function Module to download the Internal table to Excel File.
I Have used SAP_CONVERT_TO_XLS_FORMAT,
but this function modules are using GUI_Download indirectly.
I dont want to use GUI_DOWNLOAD as i am going to call this Function Module in Portal.
So pls anybody has this type of function module.
Thanks & Regards,
Dhruv Shah

Hello Dhruv.
In Agreement with Deniz.
It is required to Export the query as an excel file.
[SAP HELP Library - Standard Reference - Exporting as a CSV File / MS Excel 2000 File|http://help.sap.com/saphelp_nw04/helpdata/en/d2/11a28fc26d4042a6d230a9783152f2/content.htm]
[SDN - Reference - Error in "Export to Microsoft Excel" from Portal|Error in "Export to Microsoft Excel" from Portal;
Hope this works out well.
Good Luck & Regards.
Harsh Dave

Download internal table to Excel sheet

Hi,
I am trying a sampole program to download an internal table to excel and am
uisng the Fm GUI_DOWNLOAD for the same. But how do I ensure that each column
of internal will be aligned as columns in the excel sheet to. I a trying to do
that with a separator but I am not able to figure out.
Below is my code.
REPORT z_excel_download.
DATA : it_mara TYPE STANDARD TABLE OF mara WITH HEADER LINE.
DATA : BEGIN OF it_file OCCURS 0,
 data(2000),
 END OF it_file.
SELECT * FROM mara INTO TABLE it_mara UP TO 100 ROWS.
LOOP AT it_mara.
CONCATENATE it_mara-matnr
 it_mara-ersda
 it_mara-ernam
 it_mara-pstat
 it_mara-mtart
 it_mara-mbrsh INTO it_file-data SEPARATED BY '/t'.
APPEND it_file.
ENDLOOP.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
BIN_FILESIZE =
 filename = 'C:\Documents and Settings\XXXXXX\Desktop\test.xls'
TABLES
 data_tab = it_file
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Thanks.

Hi Varun,
On SDN are plenty of post where you can find the answer to your problem.
Please try the following code that I found here several years ago to resolve your problem.
Regards,
Eric
REPORT Excel.
TABLES:
sflight.
* header data................................
DATA :
header1 LIKE gxxlt_p-text VALUE 'Suresh',
header2 LIKE gxxlt_p-text VALUE 'Excel sheet'.
* Internal table for holding the SFLIGHT data
DATA BEGIN OF t_sflight OCCURS 0.
 INCLUDE STRUCTURE sflight.
DATA END OF t_sflight.
* Internal table for holding the horizontal key.
DATA BEGIN OF t_hkey OCCURS 0.
 INCLUDE STRUCTURE gxxlt_h.
DATA END OF t_hkey .
* Internal table for holding the vertical key.
DATA BEGIN OF t_vkey OCCURS 0.
 INCLUDE STRUCTURE gxxlt_v.
DATA END OF t_vkey .
* Internal table for holding the online text....
DATA BEGIN OF t_online OCCURS 0.
 INCLUDE STRUCTURE gxxlt_o.
DATA END OF t_online.
* Internal table to hold print text.............
DATA BEGIN OF t_print OCCURS 0.
 INCLUDE STRUCTURE gxxlt_p.
DATA END OF t_print.
* Internal table to hold SEMA data..............
DATA BEGIN OF t_sema OCCURS 0.
 INCLUDE STRUCTURE gxxlt_s.
DATA END OF t_sema.
* Retreiving data from sflight.
SELECT * FROM sflight
 INTO TABLE t_sflight.
* Text which will be displayed online is declared here....
t_online-line_no = '1'.
t_online-info_name = 'Created by'.
t_online-info_value = 'SURESH KUMAR PARVATHANENI'.
APPEND t_online.
* Text which will be printed out..........................
t_print-hf = 'H'.
t_print-lcr = 'L'.
t_print-line_no = '1'.
t_print-text = 'This is the header'.
APPEND t_print.
t_print-hf = 'F'.
t_print-lcr = 'C'.
t_print-line_no = '1'.
t_print-text = 'This is the footer'.
APPEND t_print.
* Defining the vertical key columns.......
t_vkey-col_no = '1'.
t_vkey-col_name = 'MANDT'.
APPEND t_vkey.
t_vkey-col_no = '2'.
t_vkey-col_name = 'CARRID'.
APPEND t_vkey.
t_vkey-col_no = '3'.
t_vkey-col_name = 'CONNID'.
APPEND t_vkey.
t_vkey-col_no = '4'.
t_vkey-col_name = 'FLDATE'.
APPEND t_vkey.
* Header text for the data columns................
t_hkey-row_no = '1'.
t_hkey-col_no = 1.
t_hkey-col_name = 'PRICE'.
APPEND t_hkey.
t_hkey-col_no = 2.
t_hkey-col_name = 'CURRENCY'.
APPEND t_hkey.
t_hkey-col_no = 3.
t_hkey-col_name = 'PLANETYPE'.
APPEND t_hkey.
t_hkey-col_no = 4.
t_hkey-col_name = 'SEATSMAX'.
APPEND t_hkey.
t_hkey-col_no = 5.
t_hkey-col_name = 'SEATSOCC'.
APPEND t_hkey.
t_hkey-col_no = 6.
t_hkey-col_name = 'PAYMENTSUM'.
APPEND t_hkey.
* populating the SEMA data..........................
t_sema-col_no = 1.
t_sema-col_typ = 'STR'.
t_sema-col_ops = 'DFT'.
APPEND t_sema.
t_sema-col_no = 2.
APPEND t_sema.
t_sema-col_no = 3.
APPEND t_sema.
t_sema-col_no = 4.
APPEND t_sema.
t_sema-col_no = 5.
APPEND t_sema.
t_sema-col_no = 6.
APPEND t_sema.
t_sema-col_no = 7.
APPEND t_sema.
t_sema-col_no = 8.
APPEND t_sema.
t_sema-col_no = 9.
APPEND t_sema.
t_sema-col_no = 10.
t_sema-col_typ = 'NUM'.
t_sema-col_ops = 'ADD'.
APPEND t_sema.
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.

Downloding from internal table to excel

Hi All,
I am using ole concept to download data from internal table to excel because i want to fill few records with colors and few with bold etc.
But this ole concept is downloading to excel line by line and taking much time.
How can i improve the performance in this concept or is there any other concept please let me know.
i am using fallowng logic to download to excel.
*Generating the Excel report in the foreground
data: h_excel type ole2_object, " Excel object
h_mapl type ole2_object, " list of workbooks
h_map type ole2_object, " workbook
start Excel
create object h_excel 'EXCEL.APPLICATION'.
set property of h_excel 'Visible' = 1.
get list of workbooks, initially empty
call method of h_excel 'Workbooks' = h_mapl.
perform err_hdl.
add a new workbook
call method of h_mapl 'Add' = h_map.
perform err_hdl.
output column headings to active Excel sheet
perform fill_cell using 1 1 1 000 'Job Name'(001).
perform fill_cell using 1 2 1 000 'Variant'(002).
perform fill_cell using 1 3 1 000 'Description'(003).
perform fill_cell using 1 4 1 000 'Run Date'(004).
perform fill_cell using 1 5 1 000 'Run Time'(005).
perform fill_cell using 1 6 1 000 'Duration'(006).
perform fill_cell using 1 7 1 000 'Spool'(007).
perform fill_cell using 1 8 1 000 'Records Upl'(008).
perform fill_cell using 1 9 1 000 'Error'(009).
perform fill_cell using 1 10 1 000 'Total'(010).
perform fill_cell using 1 11 1 000 'Action'(011).
perform fill_cell using 1 12 1 000 'ReRun'(012).
loop at t_final.
copy datato active EXCEL sheet
h = sy-tabix + 1.
perform fill_cell using h 1 0 000 t_final-jobname.
perform fill_cell using h 2 0 000 t_final-variant.
perform fill_cell using h 3 0 000 t_final-description.
perform fill_cell using h 4 0 000 t_final-strtdate.
perform fill_cell using h 5 0 000 t_final-strttime.
perform fill_cell using h 6 0 000 t_final-duration.
perform fill_cell using h 7 0 000 t_final-listident.
perform fill_cell using h 8 0 000 t_final-rec_upl.
perform fill_cell using h 9 0 000 t_final-rec_err.
perform fill_cell using h 10 0 000 t_final-rec_tot.
if t_final-comment eq 'job did not run'.
perform fill_cell using h 11 0 200 t_final-comment.
elseif t_final-rec_err eq 0.
perform fill_cell using h 11 0 000 t_final-comment.
else.
perform fill_cell using h 11 0 200 t_final-comment.
endif.
perform fill_cell using h 12 0 000 t_final-rerun.
endloop.
CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
call method of h_excel 'Worksheets' = h_mapl." EXPORTIN G #1 = 2.
perform err_hdl.
add a new workbook
call method of h_mapl 'Add' = h_map exporting #1 = 2.
perform err_hdl.
tell user what is going on
set property of h_map 'NAME' = 'COPY'.
loop at t_final.
copy flights to active EXCEL sheet
h = sy-tabix + 1.
perform fill_cell using h 1 0 000 t_final-jobname.
perform fill_cell using h 2 0 000 t_final-variant.
perform fill_cell using h 3 0 000 t_final-description.
perform fill_cell using h 4 0 000 t_final-strtdate.
perform fill_cell using h 5 0 000 t_final-strttime.
perform fill_cell using h 6 0 000 t_final-duration.
perform fill_cell using h 7 0 000 t_final-listident.
perform fill_cell using h 8 0 000 t_final-rec_upl.
perform fill_cell using h 9 0 000 t_final-rec_err.
perform fill_cell using h 10 0 000 t_final-rec_tot.
if t_final-comment eq 'job did not run'.
perform fill_cell using h 11 0 200 t_final-comment.
elseif t_final-rec_err eq 0.
perform fill_cell using h 11 0 000 t_final-comment.
else.
perform fill_cell using h 11 0 200 t_final-comment.
endif.
perform fill_cell using h 12 0 000 t_final-rerun.
endloop.
free object h_excel.
perform err_hdl.
*& Form ERR_HDL
outputs OLE error if any *
form err_hdl.
if sy-subrc <> 0.
write: / 'Batch Job Automation Carried Out Succesfully'.
stop.
endif.
endform. " ERR_HDL .
FORM FILL_CELL *
sets cell at coordinates i,j to value val boldtype bold *
form fill_cell using i j bold col val.
call method of h_excel 'Cells' = h_zl exporting #1 = i #2 = j.
perform err_hdl.
set property of h_zl 'Value' = val .
perform err_hdl.
get property of h_zl 'Font' = h_f.
perform err_hdl.
set property of h_f 'Bold' = bold .
perform err_hdl.
set property of h_f 'Color' = col.
perform err_hdl.
endform. "FILL_CELL

Hi,
You are populating the Cells one by one from the internal table, and all of them are coloured and font is bold. the method is OK, but when the amount of data is huge - it is going to take a longer time. May be the performance will improve a little if you turn the visibility off.
I ll suggest you to use ALV_XXL_CALL, it can color the key columns, at the same time you can have colored headings - and the performance is good. It is the same function module called when you do a "Export to Excel" from an ALV grid. But you can compain about the Font characteristics - as this does not change the Font size etc.
Your code has got a lot of freedom as long as the formatting is concerned - for bigger data - i ll suggest you to use a WS_DOWNLOAD kind of a function module to get the data at once in the presentation server and then call Excel methods and do the formatting.

Send An Internal Table Via Excel File As An Attachment of E-mail

Hi,
I've sent my internal table via Excel file as an attachment of email but all records of internal table are in a row of sended excel file.
How can i send an internal table via excel file , records of internal table for each rows of excel file,as an attachment of email correctly?
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
       EXPORTING
            document_data              = w_doc_data
            put_in_outbox              = 'X'
            sender_address             = ld_sender_address
            sender_address_type        = ld_sender_address_type
            commit_work                = 'X'
       IMPORTING
            sent_to_all                = w_sent_all
       TABLES
            packing_list               = t_packing_list     "   t_packing_list-doc_type   = 'XLS'.
            contents_bin               = pit_attach " this is a normal internal table.
            contents_txt               = pit_message
            receivers                  = t_receivers
       EXCEPTIONS
            too_many_receivers         = 1
            document_not_sent          = 2
            document_type_not_exist    = 3
            operation_no_authorization = 4
            parameter_error            = 5
            x_error                    = 6
            enqueue_error              = 7
            OTHERS                     = 8.

Hi,
CLASS CL_ABAP_CHAR_UTILITIES DEFINITION LOAD.
CONSTANTS:
CON_TAB TYPE C VALUE CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB,
CON_CRET TYPE C VALUE CL_ABAP_CHAR_UTILITIES=>CR_LF.
      LOOP AT T_FINAL INTO WA_T_FINAL.
        CONCATENATE WA_T_FINAL-PERNR
                    WA_T_FINAL-NAME
                    WA_T_FINAL-LEVEL
                    WA_T_FINAL-POS
                    WA_T_FINAL-JOB
                    WA_T_FINAL-SECTION
                    WA_T_FINAL-DEPT
                    WA_T_FINAL-GROUP
                    WA_T_FINAL-EX_HEAD
                    WA_T_FINAL-SUPID
                    WA_T_FINAL-SUPNM
                    WA_T_FINAL-FHRNM
                    WA_T_FINAL-VACID
                    WA_T_FINAL-VAC_SECTION
                    WA_T_FINAL-VAC_DEPT
                    WA_T_FINAL-VAC_GROUP
                    WA_T_FINAL-VAC_EX_HEAD
                    WA_T_FINAL-VAC_FHRNM
        INTO T_FINAL3 SEPARATED BY CON_TAB.
        CONCATENATE CON_CRET T_FINAL3 INTO T_FINAL3.
        APPEND T_FINAL3.
      ENDLOOP.
*Fill the document data.
W_DOC_DATA-DOC_SIZE = 1.
*Populate the subject/generic message attributes
W_DOC_DATA-OBJ_LANGU = SY-LANGU.
W_DOC_DATA-OBJ_NAME = 'REPORT'.
W_DOC_DATA-OBJ_DESCR = LD_MTITLE . "mail description
W_DOC_DATA-SENSITIVTY = 'F'.
*Fill the document data and get size of attachment
CLEAR W_DOC_DATA.
READ TABLE T_FINAL1 INDEX W_CNT.
W_DOC_DATA-DOC_SIZE =
( W_CNT - 1 ) * 255 + STRLEN( T_FINAL1 ).
W_DOC_DATA-OBJ_LANGU = SY-LANGU.
W_DOC_DATA-OBJ_NAME = 'SAPRPT'.
W_DOC_DATA-OBJ_DESCR = LD_MTITLE.
W_DOC_DATA-SENSITIVTY = 'F'.
CLEAR T_ATTACHMENT.
REFRESH T_ATTACHMENT.
T_ATTACHMENT[] = PT_FINAL1[].
*Describe the body of the message
CLEAR T_PACKING_LIST.
REFRESH T_PACKING_LIST.
T_PACKING_LIST-TRANSF_BIN = SPACE.
T_PACKING_LIST-HEAD_START = 1.
T_PACKING_LIST-HEAD_NUM = 0.
T_PACKING_LIST-BODY_START = 1.
DESCRIBE TABLE IT_MESSAGE LINES T_PACKING_LIST-BODY_NUM.
T_PACKING_LIST-DOC_TYPE = 'RAW'.
APPEND T_PACKING_LIST.
*Create 1st attachment notification
T_PACKING_LIST-TRANSF_BIN = 'X'.
T_PACKING_LIST-HEAD_START = 1.
T_PACKING_LIST-HEAD_NUM = 1.
T_PACKING_LIST-BODY_START = 1.
DESCRIBE TABLE T_ATTACHMENT LINES T_PACKING_LIST-BODY_NUM.
T_PACKING_LIST-DOC_TYPE = LD_FORMAT.
T_PACKING_LIST-OBJ_DESCR = 'Application 1'.
T_PACKING_LIST-OBJ_NAME = 'Application 1'.
T_PACKING_LIST-DOC_SIZE = T_PACKING_LIST-BODY_NUM * 255.
APPEND T_PACKING_LIST.
CLEAR T_PACKING_LIST.
*Add the recipients email address
CLEAR T_RECEIVERS.
REFRESH T_RECEIVERS.
T_RECEIVERS-RECEIVER = LD_EMAIL.
T_RECEIVERS-REC_TYPE = 'U'.
T_RECEIVERS-COM_TYPE = 'INT'.
T_RECEIVERS-NOTIF_DEL = 'X'.
T_RECEIVERS-NOTIF_NDEL = 'X'.
APPEND T_RECEIVERS.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
    EXPORTING
      DOCUMENT_DATA              = W_DOC_DATA
      PUT_IN_OUTBOX              = 'X'
      SENDER_ADDRESS             = LD_SENDER_ADDRESS
      SENDER_ADDRESS_TYPE        = LD_SENDER_ADDRESS_TYPE
      COMMIT_WORK                = 'X'
    IMPORTING
      SENT_TO_ALL                = W_SENT_ALL
    TABLES
      PACKING_LIST               = T_PACKING_LIST
      CONTENTS_BIN               = T_ATTACHMENT
      CONTENTS_TXT               = IT_MESSAGE
      RECEIVERS                  = T_RECEIVERS
    EXCEPTIONS
      TOO_MANY_RECEIVERS         = 1
      DOCUMENT_NOT_SENT          = 2
      DOCUMENT_TYPE_NOT_EXIST    = 3
      OPERATION_NO_AUTHORIZATION = 4
      PARAMETER_ERROR            = 5
      X_ERROR                    = 6
      ENQUEUE_ERROR              = 7
      OTHERS                     = 8.
Edited by: Rahul Ghosh on Apr 6, 2009 6:42 AM

Problem export pdf table to excel spreadsheed

Hi, my name is Marco.
Last month a customer has bought a copy of Adobe Acrobat Professional 9 in my computer shop for edit some pdfs files.
After some days he told me that he need to export a table to excel's spreadsheet but the function "open table in excel spreadsheet" work ONLY for the page where i right-click. How can i copy all the document in excel (without lose the format)?
Sorry for the bad english, if you don't understand i try to rewrite it better or in Italian!
Thank you!

A lot depends on the structure of the PDF. I it has tags included that provide the format information, then the conversion may be easy. If the tags are not included, then retaining the format is almost impossible. This may even be a problem with recognizing columns. In that case, selecting columns with the ctrl key held during the selection. More information is available under "Copying Text" in the help menu (complete help). The help also talks about the ability to retain format as I have suggested.
To select items on multiple pages, you have to use continuous view.
It might be easier to the Save As to DOC and go from there. The backward conversion is not the forte or intent of Acrobat. In reality, one should never delete the original XLS (or other) file with the intent of going back in the future. Sounds like it is too late for your customer.

FM to download internal table to excel

Hi all,
 I want to download my internal table into excel sheet. For this i am using FM
GUI_DOWNLOAD. But in my internal table each record is of around 400 char. length. I think because of this the downloaded content is not proper i.e. in junk format. Please sugest some solution for this.
Regards,
Vinod.

Hi Vinod,
Try this program.Just copy and paste this program....
REPORT zpck_download_to_excel .
INCLUDE ole2incl.
DATA: w_cell1 TYPE ole2_object,
 w_cell2 TYPE ole2_object.
*--- Ole data Declarations
DATA: h_excel TYPE ole2_object, " Excel object
 h_mapl TYPE ole2_object, " list of workbooks
 h_map TYPE ole2_object, " workbook
 h_zl TYPE ole2_object, " cell
 h_f TYPE ole2_object, " font
 gs_interior TYPE ole2_object, " Pattern
 worksheet TYPE ole2_object,
 h_cell TYPE ole2_object,
 h_cell1 TYPE ole2_object,
 range TYPE ole2_object,
 h_sheet2 TYPE ole2_object,
 h_sheet3 TYPE ole2_object,
 gs_font TYPE ole2_object,
 flg_stop(1) TYPE c.
Internal table Declaration
DATA : t_excel_t076m LIKE t076m OCCURS 0 WITH HEADER LINE.
TYPES: data1(1500) TYPE c,
 ty TYPE TABLE OF data1.
DATA: it TYPE ty WITH HEADER LINE,
 it_2 TYPE ty WITH HEADER LINE.
DATA: rec TYPE sy-tfill,
 deli(1) TYPE c,
 l_amt(18) TYPE c.
DATA: BEGIN OF hex,
 tab TYPE x,
 END OF hex.
DATA: l_rc TYPE i.
FIELD-SYMBOLS: <fs> .
CONSTANTS cns_09(2) TYPE n VALUE 09.
ASSIGN deli TO <fs> TYPE 'X'.
hex-tab = cns_09.
<fs> = hex-tab.
DATA gv_sheet_name(20) TYPE c .
M A C R O Declaration
DEFINE ole_check_error.
if &1 ne 0.
 message e002(zz) with &1.
 exit.
endif.
END-OF-DEFINITION.
Fetching Data
SELECT * FROM t076m INTO TABLE t_excel_t076m.
LOOP AT t_excel_t076m.
CONCATENATE
 t_excel_t076m-parart
 t_excel_t076m-konto
 t_excel_t076m-mwart
 t_excel_t076m-mwsatz
 t_excel_t076m-land1
 t_excel_t076m-mwskz
 INTO it
 SEPARATED BY deli.
APPEND it.
CLEAR it.
ENDLOOP.
IF h_excel-header = space OR h_excel-handle = -1.
start Excel
CREATE OBJECT h_excel 'EXCEL.APPLICATION'.
ENDIF.
*--- get list of workbooks, initially empty
CALL METHOD OF h_excel 'Workbooks' = h_mapl.
SET PROPERTY OF h_excel 'Visible' = 1.
add a new workbook
CALL METHOD OF h_mapl 'Add' = h_map.
Name of the T076
gv_sheet_name = 'T076M'.
GET PROPERTY OF h_excel 'ACTIVESHEET' = worksheet.
SET PROPERTY OF worksheet 'Name' = gv_sheet_name .
CALL METHOD cl_gui_frontend_services=>clipboard_export
IMPORTING
 data = it[]
CHANGING
 rc = l_rc
EXCEPTIONS
 cntl_error = 1
 error_no_gui = 2
 OTHERS = 4.
Get the First row and col
CALL METHOD OF h_excel 'Cells' = w_cell1
EXPORTING
 #1 = 1
 #2 = 1.
Get the 255 row and col
CALL METHOD OF h_excel 'Cells' = w_cell2
EXPORTING
 #1 = 5000
 #2 = 6.
Select the Data
CALL METHOD OF h_excel 'Range' = range
EXPORTING
 #1 = w_cell1
 #2 = w_cell2.
CALL METHOD OF range 'Select'.
CALL METHOD OF worksheet 'Paste'.
*--- disconnect from Excel
FREE OBJECT h_zl.
FREE OBJECT h_mapl.
FREE OBJECT h_map.
FREE OBJECT h_excel.
Hope it helps you.
Reward points if helpful.
Regards,
Chitra.

Conversion of internal table into excel file format &put it on app server

Hi,
My requirement is to convert the internal table into excel file format and I have to store it on application server so that administrator can send the file thr e-mail attachment.
So, please let me know how to convert the records of internal table and store it on application server in Excel file format.
TIA,
Nitin

Hi,
Use FM GUI_DOWNLOAD to download the data from inernal table to excel sheet.
Then Using tcode CG3Z u can transfer file to application server.
*& Form sub_download
 text
--> p1 text
<-- p2 text
FORM sub_download.
CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
 BIN_FILESIZE =
 filename = p_path
 filetype = 'ASC'
 APPEND = ' '
 write_field_separator = 'X'
 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 = it_final
 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.
ENDIF.
ENDFORM. " sub_download
Otherwise use OPEN DATASET and TRANSFER statement to download data from internal table to direct application server
Regards,
Prashant

Export BSP Table to Excel

Hi,
I have made an application in BSP which reads a database table and fills up an internal table. I have displayed the result in a tableView <htmlb:tableView>
Now I have to export this list to an excel file.
How can I do it?
Kindly help me solve the problem.
Thanks,
Reema

check out the following threads
Re: File Upload & Download into excel
Re: export bsp-table to excel
Re: Download to Excel
and close your previous threads in BSP forum
BSP Application URL
Target Frame with navigation->next_page
Event Handling in treeNode
BSP Exception: CX_SY_CONVERSION_NO_NUMBER
Regards
Raja

Convert internal table to excel format

I have used GUI_DOWNLOAD function module to download an internal table to excel format.
Download the excel file.
CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
 filename = filename
 filetype = 'ASC'
 write_field_separator = 'X'
 TABLES
 data_tab = <tab>
 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.
And I am able to successfully download the excel file but the problem occurs when I try to open the file.
System throws the warning "The file you are trying to open, '[filename]', is in a different format than specified by the file extension. Verify that the file is not corrupted and is from a trusted source before opening the file. Do you want to open the file now?"
And if I click yes, it correctly displays the excel file.
I want to get rid of this warning. Is there any way I can code so that this warning does not occur. Kindly advise.

Hi,
Try Like This
data:begin of it occurs 0,
 grp type c,
 val type i,
 end of it.
data:begin of heading occurs 0,
 TEXT(10) type c,
 end of heading.
 it-grp = 'A'.
 it-val = 100.
 append it.
 it-grp = 'B'.
 it-val = 200.
 append it.
 heading-text = 'GROUP'.
 append heading.
 heading-text = 'VALUE'.
 append heading.
 call function 'GUI_DOWNLOAD'
 exporting
 filename = 'C:\text.xls'
 FILETYPE = 'DAT'
 WRITE_FIELD_SEPARATOR = '#'
 SHOW_TRANSFER_STATUS = 'X'
 tables
 data_tab = it[]
 FIELDNAMES = 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.

Download Internal table to Excel with different Tabs - ole2_object

Hi All,
I am using ole2_object to download the data from internal table to Excel file. As per different values in sorting key, data will be downloading in different tab in same Excel file.
In my internal table one field is of character type and some times contains number as value.
e.g. itab-code = 000002.
While downloading to Excel, Excel consider this value as numeric and remove the leading zero.
Any suggestions for how to set format property as Text for this cell, will highly appreciated.
Sample code -
 data: gs_excel type ole2_object,
 gs_wbooklist type ole2_object,
 gs_application type ole2_object,
 gs_wbook type ole2_object,
 gs_activesheet type ole2_object,
 gs_sheets type ole2_object,
 gs_newsheet type ole2_object,
 gs_cell type ole2_object.
 create object gs_excel 'EXCEL.APPLICATION'.
 get property of gs_excel 'workbooks' = gs_wbooklist.
 get property of gs_wbooklist 'Application' = gs_application.
 set property of gs_application 'SheetsInNewWorkbook' = 1.
 call method of gs_wbooklist 'Add' = gs_wbook.
 get property of gs_application 'ActiveSheet' = gs_activesheet.
 set property of gs_activesheet 'Name' = datasheet_name.
call method of gs_excel 'Cells' = gs_cell exporting #1 = v_row
 #2 = v_col.
set property of gs_cell 'value' = <f>.
GET PROPERTY OF gs_cell 'Font' = gs_Font.
SET PROPERTY OF gs_Font 'Bold' = 1 .
Thanks.
Regards,
Meenakshi.

Hello,
Just concatenate ' infont of the fields, which you want to treat as a text.
Like,
itab-code = '00002'.
concatenate '''' itab-code into itab-code.
modify itab.
You can also set the text properties of the cell by,
SET PROPERTY OF gs_cell 'NumberFormat' = '@' .
but, it will remove the leading zeros and set the format as text.
Regards,
Naimesh

Export internal table to Excel during debugging.

Similar Messages

Maybe you are looking for