report  zru_aka_exel.

types: begin of my_data2,
name1(20) type c,
end of my_data2.

data: my_tables2 type my_data2 occurs 100 with header line.

my_tables2-name1 = 'Поле1'.
append my_tables2.
my_tables2-name1 = 'Поле2'.
append my_tables2.
my_tables2-name1 = 'Поле3'.
append my_tables2.
my_tables2-name1 = 'Поле4'.
append my_tables2.
my_tables2-name1 = 'Поле5'.
append my_tables2.
my_tables2-name1 = 'Поле6'.
append my_tables2.
my_tables2-name1 = 'Поле7'.
append my_tables2.
my_tables2-name1 = 'Поле8'.
append my_tables2.

data: all_customer like customers occurs 0
                       with header line.
select * from customers
   into corresponding fields of table all_customer.

call function 'EXCEL_OLE_STANDARD_DAT'
   exporting
     file_name  = 'C:/1'        " Путь к файлу
   tables
     data_tab   = all_customer  " Таблица из которой будут браться данные
     fieldnames = my_tables2.   "Табица имен столцов

if sy-subrc <> 0.
   message id sy-msgid type sy-msgty number sy-msgno
           with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.