Application Development Blog Posts
Learn and share on deeper, cross technology development topics such as integration and connectivity, automation, cloud extensibility, developing at scale, and security.
cancel
Showing results for 
Search instead for 
Did you mean: 
JerryWang
Advisor
Advisor
0 Kudos
For project reason I need to fill some excel.

The content of each column comes from content in SE11:

In order to avoid such boring task, I write a small ABAP class to automate it.

This class will first read corresponding database table name based on CRM settype id, then call function module DDIF_NAMETAB_GET to get all metadata of each table field, and then send the data to clipboard.

Once done, put the focus on the first cell of content row, press Ctrl+V, all the data from clipboard will be copied into excel automatically.

The source code could be found below:
class ZCL_EXCEL_TOOL definition
public
final
create public .

public section.

methods GET_SETTYPE_FIELDS
importing
!IV_SETTYPE_ID type COMT_FRGTYPE_ID default 'COMM_PR_SHTEXT' .
PROTECTED SECTION.
private section.

types:
BEGIN OF ty_column,
a_index TYPE char3,
b_table TYPE dd03l-tabname,
c_fieldname TYPE dd03l-fieldname,
d_element TYPE dd03l-rollname,
e_datatype TYPE x031l-dtyp,
f_length TYPE char4,
g_description TYPE char40,
END OF ty_column .
types:
tt_column TYPE STANDARD TABLE OF ty_column WITH KEY a_index b_table c_fieldname .
types:
BEGIN OF ty_clipdata,
data TYPE c LENGTH 500,
END OF ty_clipdata .
types:
tt_formatted TYPE STANDARD TABLE OF ty_clipdata .

data MT_COLUMN type TT_COLUMN .
data MT_FORMATTED type TT_FORMATTED .
constants C_TAB type CHAR1 value CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB ##NO_TEXT.

methods CONVERT .
methods GET_FIELD_LABEL
importing
!IV_TAB_NAME type DDOBJNAME
!IV_FIELD_NAME type DFIES-FIELDNAME
returning
value(RV_LABEL) type STRING .
ENDCLASS.



CLASS ZCL_EXCEL_TOOL IMPLEMENTATION.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZCL_EXCEL_TOOL->CONVERT
* +-------------------------------------------------------------------------------------------------+
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD convert.

LOOP AT mt_column ASSIGNING FIELD-SYMBOL(<raw>).
APPEND INITIAL LINE TO mt_formatted ASSIGNING FIELD-SYMBOL(<converted>).
CONCATENATE <raw>-a_index <raw>-b_table <raw>-c_fieldname <raw>-d_element <raw>-e_datatype
<raw>-f_length <raw>-g_description INTO <converted> SEPARATED BY c_tab.
ENDLOOP.
ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZCL_EXCEL_TOOL->GET_FIELD_LABEL
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_TAB_NAME TYPE DDOBJNAME
* | [--->] IV_FIELD_NAME TYPE DFIES-FIELDNAME
* | [<-()] RV_LABEL TYPE STRING
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD get_field_label.
CALL FUNCTION 'DDIF_FIELDLABEL_GET'
EXPORTING
tabname = iv_tab_name
fieldname = iv_field_name
langu = sy-langu
IMPORTING
label = rv_label.
ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_EXCEL_TOOL->GET_SETTYPE_FIELDS
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SETTYPE_ID TYPE COMT_FRGTYPE_ID (default ='COMM_PR_SHTEXT')
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD get_settype_fields.
DATA: lv_tab TYPE comc_settype-frgtype_tab,
lv_ret TYPE int4,
lt_list TYPE STANDARD TABLE OF x031l.

SELECT SINGLE frgtype_tab INTO lv_tab FROM comc_settype WHERE frgtype_id = iv_settype_id.
IF sy-subrc <> 0.
WRITE: / 'no database table maintained for settype: ', iv_settype_id.
RETURN.
ENDIF.

CALL FUNCTION 'DDIF_NAMETAB_GET'
EXPORTING
tabname = CONV ddobjname( lv_tab )
status = 'A'
TABLES
x031l_tab = lt_list
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
WRITE:/ 'table metadata parse error'.
RETURN.
ENDIF.

LOOP AT lt_list ASSIGNING FIELD-SYMBOL(<list>).
APPEND INITIAL LINE TO mt_column ASSIGNING FIELD-SYMBOL(<insert>).
<insert>-a_index = sy-tabix.
<insert>-b_table = lv_tab.
<insert>-c_fieldname = <list>-fieldname.
<insert>-d_element = <list>-rollname.
<insert>-e_datatype = <list>-dtyp.
<insert>-f_length = CONV i( <list>-exlength ). "cast CL_ABAP_ELEMDESCR( CL_ABAP_ELEMDESCR=>describe_by_name( <list>-rollname ) )->output_length.
<insert>-g_description = get_field_label( EXPORTING iv_tab_name = CONV #( lv_tab ) iv_field_name = <list>-fieldname ).
ENDLOOP.

convert( ).
cl_gui_frontend_services=>clipboard_export(
EXPORTING
no_auth_check = abap_true
IMPORTING
data = mt_formatted
CHANGING
rc = lv_ret
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
).

ENDMETHOD.
ENDCLASS.




Labels in this area