Internal table to Excel

[Former Member]

what function module to use to download an internal table into an excel spread sheet.

thanks

[Former Member]

what function module to use to download an internal table into an excel spread sheet.

thanks

[Former Member]

Hi Krish,

Refer to below thread.

Reward points if useful.

Regards,

Atish

[Former Member]

Hi,

you can use 'ws_excel'.

check my program --

tables mara.

data itab like mara occurs 0 with header line.

select * from mara into corresponding fields of table itab up to 10 rows.

CALL FUNCTION 'WS_EXCEL'

EXPORTING

FILENAME = 'C:\Documents and Settings\psin3\Desktop\pan.xls '

• SYNCHRON = ' '

TABLES

DATA = itab

• EXCEPTIONS

• UNKNOWN_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.

regards,

pankaj

[Former Member]

Check With below code :

i used FM : EXCEL_OLE_STANDARD_DAT and it has very good functionality

• Tables

tables : zsdcarton,

ztruck,

ztruckstatus.

• Constants

constants: c_werks(4) type c value '1000'.

• Internal table for Ztruck

data : begin of i_ztruck occurs 0,

werks like ztruck-werks," Plant

vdatu like ztruck-vdatu, " Delivery date

ZZTRKNO like ztruck-ZZTRKNO, " Route #

ZZSHIPTIME like ztruck-ZZSHIPTIME, " Dispatch time

ZCLTIME like ztruck-ZCLTIME, " Truck close time

end of i_ztruck.

• Internal table for ZSDCARTON

data : begin of i_zsdcarton occurs 0,

lateflag like zsdcarton-lateflag,

zzslot like zsdcarton-zzslot,

status like zsdcarton-status,

end of i_zsdcarton.

• Internal table for Final output

data : begin of i_final occurs 0,

vdatu like ztruck-vdatu, " Delivery Date

ZZTRKNO like ztruck-ZZTRKNO, " Route #

ZZSHIPTIME like ztruck-ZZSHIPTIME, " Dispatch time

ZCLTIME like ztruck-ZCLTIME, " Truck close time

load_compl_c(5) type n , " Load Complted Time

status_s_total(5) type n, " No Scan/Load

status_l_total(5) type n, " Late Scan

end of i_final.

• Internal Table XLS File Header

DATA: BEGIN OF i_head OCCURS 0,

field(30) TYPE c,

END OF i_head.

• Variables

• status couter

data: status_total(5) type n,

• no scan / no load

status_s(3) type n,

status_s_total(5) type n,

• good

status_g(3) type n,

status_g_total(5) type n,

• late

status_l(3) type n,

status_l_total(5) type n,

• manual

status_m(3) type n,

status_m_total(5) type n,

• alternative

status_a(3) type n,

status_a_total(5) type n.

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

• S E L E C T I O N - S C R E E N *************************

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

selection-screen : begin of block blk with frame title text-001.

select-options : p_vdatu for zsdcarton-vdatu obligatory

default sy-datum.

selection-screen : end of block blk .

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

• S T A R T - O F - S E L E C T I O N ******************

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

start-of-selection.

• Get the data from ZTRUCK and

perform get_data_tables.

• Down load the data into XLS file

perform get_download.

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

• S T A R T - O F - S E L E C T I O N ******************

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

end-of-selection.

&----

---

*& Form get_data_tables

&----

---

*

----

---

FORM get_data_tables.

data : lv_time like sy-uzeit.

select werks

vdatu

zztrkno

zzshiptime

zcltime from ztruck into table i_ztruck

where werks = c_werks

and vdatu in p_vdatu.

if sy-subrc ne 0.

message e000(zwave) with 'No data found for given current date'.

endif.

loop at i_ztruck.

refresh : i_zsdcarton.

clear : i_zsdcarton,

lv_time.

• Get the Scan Status for Every route

select lateflag zzslot status from zsdcarton into table i_zsdcarton

where werks = i_ztruck-werks

and vdatu = i_ztruck-vdatu

and zztrkno = i_ztruck-zztrkno.

if sy-subrc eq 0.

loop at i_zsdcarton.

case i_zsdcarton-lateflag.

• late cartons

when 'X'.

• late and never loaded

if i_zsdcarton-zzslot = space.

add 1 to status_s.

else.

add 1 to status_l.

endif.

• all other exceptions

when space.

• check if scanned

case i_zsdcarton-zzslot.

• good scan

when 'S'.

add 1 to status_g.

• never scanned

when space.

if i_zsdcarton-status = space.

• no scan

add 1 to status_s.

else.

• no load -> no scan

add 1 to status_s.

endif.

• manual scanned

when 'M'.

if i_zsdcarton-status = 'M'.

add 1 to status_g.

elseif i_zsdcarton-status = 'E'.

• exceprtion -> manual

add 1 to status_g.

endif.

endcase.

endcase.

• add totals

add status_g to status_g_total.

• Late Scan

add status_l to status_l_total.

add status_a to status_a_total.

• No Scan and Load

add status_s to status_s_total.

clear : status_g,

status_l,

status_a,

status_s.

endloop.

else.

continue.

endif.

• Get the Load Complete Time

select single uzeit from ztruckstatus into lv_time

where werks = i_ztruck-werks

and lgnum = '100'

and vdatu = i_ztruck-vdatu

and zztrkno = i_ztruck-zztrkno

and tstat = 'L'.

if sy-subrc eq 0.

write: lv_time(5)

to i_final-load_compl_c using edit mask '__:__'.

endif.

• Delivery Date

i_final-vdatu = i_ztruck-vdatu.

• Route #

i_final-zztrkno = i_ztruck-zztrkno.

• Dispach time

i_final-zzshiptime = i_ztruck-zzshiptime.

• Truck Close Time

i_final-zcltime = i_ztruck-zcltime.

• No Scan/ Load

i_final-status_s_total = status_s_total .

• Late Scan

i_final-status_l_total = status_l_total.

append i_final.

clear : status_g_total,

status_l_total,

status_a_total,

status_s_total,

lv_time,

i_final.

endloop.

ENDFORM. " get_data_tables

&----

---

*& Form get_download

&----

---

• Download the data

----

---

FORM get_download.

data : lv_file like rlgrap-filename,

lv_date(8) type c.

lv_date = sy-datum.

concatenate 'C:/Truckload' lv_date into lv_file.

• Fill the Header Values

• Delivery Date

i_head-field = 'Delivery Date'.

append i_head.

• Route #

i_head-field = 'Route'.

APPEND i_head.

• Dispatch Time

i_head-field = 'Dispatch Time'.

append i_head.

• Closing Time

i_head-field = 'Closing Time'.

append i_head.

• Load Completed Time

i_head-field = 'Load Completed Time'.

append i_head.

• No Scan/Load

i_head-field = 'No Scan/Load'.

append i_head.

• Late Scan

i_head-field = 'Late Scan'.

append i_head.

CALL FUNCTION 'EXCEL_OLE_STANDARD_DAT'

EXPORTING

FILE_NAME = lv_file

• CREATE_PIVOT = 0

DATA_SHEET_NAME = 'TruckLoad'

• PIVOT_SHEET_NAME = ' '

• PASSWORD = ' '

• PASSWORD_OPTION = 0

TABLES

• PIVOT_FIELD_TAB =

DATA_TAB = i_final

FIELDNAMES = i_head

EXCEPTIONS

FILE_NOT_EXIST = 1

FILENAME_EXPECTED = 2

COMMUNICATION_ERROR = 3

OLE_OBJECT_METHOD_ERROR = 4

OLE_OBJECT_PROPERTY_ERROR = 5

INVALID_FILENAME = 6

INVALID_PIVOT_FIELDS = 7

DOWNLOAD_PROBLEM = 8

OTHERS = 9

.

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. " get_download

Thanks

Seshu

[Former Member]

If you are not really interested in a true excel file (with all the formatting, worksheets etc), then all you have to do is to download the data as either tab delimited or comma delimited with an .xls extension and then simply open with excel.