Доброе время суток!!! Я новичок! Перелапатил все что мог по выгрузке отчетов в exel. Но успеха не достиг((((.

Запускаю прогу.
И выходит ошибка такого типа
sslim_001:004sh1Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!!

Ниже привожу код:

REPORT Z001.

TABLES AUFK.

PARAMETERS: bukrs1 like AUFK-bukrs.



TYPES: BEGIN OF t1,
kostv_a1 like aufk-kostv,
aufnr_a1 like aufk-aufnr,
ktext_a1 like aufk-ktext,
astnr_a1 like aufk-astnr,
bukrs_a1 like AUFK-bukrs,

END OF t1.

DATA: a1 type t1 occurs 100 with header line, i(5).

SELECT * FROM AUFK WHERE bukrs = bukrs1.
.


a1-kostv_a1 = aufk-kostv.
a1-aufnr_a1 = aufk-aufnr.
a1-ktext_a1 = aufk-ktext.
a1-astnr_a1 = aufk-astnr.


ENDSELECT.

LOOP at a1.
WRITE: / a1-kostv_a1, a1-aufnr_a1, a1-ktext_a1, a1-astnr_a1.
ENDLOOP.

perform excel_print.

INCLUDE z_meir_include_export.

FORM excel_print.
CALL FUNCTION 'Z_T00_CHECK_ONE_TEMPLATE'
EXPORTING
template_id = 'SH1'
IMPORTING
RESULT = tcres
EXCEPTIONS
OTHERS = 1.
IF ( tcres GE 3 ) OR ( sy-subrc NE 0 ).
MESSAGE e004(zslim_001) WITH 'SH1'.
ENDIF.
PERFORM create_excel_visible USING 'SH1.xlt'.
CALL METHOD OF application 'Worksheets' = sheet
EXPORTING
#1 = 1.
CALL METHOD OF sheet 'Activate'.

i = 1.
loop at a1.
i = i + 1.
CALL METHOD OF application 'Run' NO FLUSH EXPORTING
#1 = 'SetOneCell' #2 = i #3 = 1 #4 = a1-bukrs_a1.
CALL METHOD OF application 'Run' NO FLUSH EXPORTING
#1 = 'SetOneCell' #2 = i #3 = 2 #4 = a1-kostv_a1.
CALL METHOD OF application 'Run' NO FLUSH EXPORTING
#1 = 'SetOneCell' #2 = i #3 = 3 #4 = a1-aufnr_a1.
CALL METHOD OF application 'Run' NO FLUSH EXPORTING
#1 = 'SetOneCell' #2 = i #3 = 4 #4 = a1-ktext_a1.
CALL METHOD OF application 'Run' NO FLUSH EXPORTING
#1 = 'SetOneCell' #2 = i #3 = 5 #4 = a1-astnr_a1.

endloop.

CALL FUNCTION 'FLUSH'.
PERFORM free_object_still_visible.
ENDFORM.


кажеться все дело в ->
IF ( tcres GE 3 ) OR ( sy-subrc NE 0 ).
MESSAGE e004(zslim_001) WITH 'SH1'.
ENDIF.
какая-то проверочка. А что она конкретно проверяет не знаю. Так как прогу я просто переделал из уже существующей в другом проекте. Exel файл просто не хочет появляться(((

Ниже привожу вложенный инклуд:
*&---------------------------------------------------------------------*
*& Include Z_MEIR_INCLUDE_EXPORT
*&---------------------------------------------------------------------*
INCLUDE ole2incl.




DATA: FLENGTH TYPE I. DATA: tcres TYPE i.
DATA: tpath(128), fieldtype.
DATA: application TYPE ole2_object,
workbook TYPE ole2_object,
sheet TYPE ole2_object.

FORM create_excel_visible USING templatename.
CREATE OBJECT application 'excel.application'.

SET PROPERTY OF application 'visible' = 1.

CALL METHOD OF application 'Workbooks' = workbook.

GET PROPERTY OF application 'TemplatesPath' = tpath.
CONCATENATE tpath templatename INTO tpath.
CALL METHOD OF workbook 'Add'
EXPORTING
#1 = tpath.
ENDFORM. "CREATE_EXCEL_VISIBLE
*&---------------------------------------------------------------------*
*& Form FREE_OBJECT_STILL_VISIBLE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM free_object_still_visible.
FREE OBJECT workbook.
FREE OBJECT application.
ENDFORM. " FREE_OBJECT_STILL_VISIBLE

ПОМОГИТЕЕЕЕЕЕЕЕЕЕ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!

Р Е Е С Т Р закрытых заказов
заказов по цеху № за __________ месяц 2008 года

№ п/п МВЗ ответственное № заказа Наименование заказа Статус





1 Отчет заполняется за определенный период
2 Форма выгружается в EXCEL для поледующей обработки специалистом

Отчет в ехеле должен выглядеть примерно так!

судя по названию ФМ:
CALL FUNCTION 'Z_T00_CHECK_ONE_TEMPLATE'

может проблема с шаблоном.

посмотрите в отладчике что делается в этом ФМ-е.