Приветствую, уважаемый автор!
попробовал применить твой способ, что-то не получается
в шаблоне проставил плайс холдэры(POSы в коде) и в экселе в "Имя дапазона" назвал строку.
в диспетчере имён названная строка отображается корректно! В шаблоне 2 вкладки(2 листа) каждая строка на отдельном листе
но эксель файл выгружается в первозданном состоянии, почему не пойму(
вот код
Code:
METHOD export_in_exel.
DATA:
lt_val TYPE TABLE OF zwww_values
, ls_val TYPE zwww_values
, lv_num_str TYPE i
, lv_num TYPE i
, ls_bud_plan TYPE zhr_t_bud_plan
, ls_bud_fact TYPE zhr_t_bud_fact
, vvn_openform_is_clear TYPE c VALUE 'X'.
.
DEFINE setval.
clear ls_val.
ls_val-var_name = &1.
ls_val-var_num = &2.
ls_val-find_text = &3.
ls_val-val_type = &4.
ls_val-value = &5.
append ls_val to lt_val.
END-OF-DEFINITION.
lv_num_str = 1.
LOOP AT mt_bud_plan INTO ls_bud_plan.
setval 'PLAN' lv_num_str '[POS3]' '' ls_bud_plan-fio.
* setval 'PLAN' lv_num_str '[POS4]' '' ls_bud_plan-key_id.
setval 'PLAN' lv_num_str '[POS4]' '' ls_bud_plan-time.
setval 'PLAN' lv_num_str '[POS5]' '' ls_bud_plan-grayd.
setval 'PLAN' lv_num_str '[POS6]' '' ls_bud_plan-rate.
setval 'PLAN' lv_num_str '[POS7]' '' ls_bud_plan-summ.
setval 'PLAN' lv_num_str '[POS8]' '' gv_plan.
ADD 1 TO lv_num_str.
ENDLOOP.
lv_num_str = 1.
LOOP AT mt_bud_fact INTO ls_bud_fact.
setval 'FACT' lv_num_str '[POS9]' '' ls_bud_fact-fio.
setval 'FACT' lv_num_str '[POS10]' '' ls_bud_fact-fa.
setval 'FACT' lv_num_str '[POS11]' '' ls_bud_fact-workdate.
setval 'FACT' lv_num_str '[POS12]' '' ls_bud_fact-fact.
setval 'FACT' lv_num_str '[POS14]' '' ls_bud_fact-bid_id.
setval 'FACT' lv_num_str '[POS15]' '' ls_bud_fact-key_id.
setval 'FACT' lv_num_str '[POS16]' '' ls_bud_fact-twork.
setval 'FACT' lv_num_str '[POS17]' '' ls_bud_fact-role_id.
setval 'FACT' lv_num_str '[POS18]' '' ls_bud_fact-grade.
setval 'FACT' lv_num_str '[POS20]' '' ls_bud_fact-rate.
setval 'FACT' lv_num_str '[POS21]' '' ls_bud_fact-summ.
setval 'FACT' lv_num_str '[POS22]' '' gv_fact.
ADD 1 TO lv_num_str.
ENDLOOP.
SET PARAMETER ID 'VVN_IS_CLEAR' FIELD vvn_openform_is_clear.
CALL FUNCTION 'ZWWW_OPENFORM'
EXPORTING
form_name = 'ZHR_ALSUBUDGET'
printdialog = ''
protect = ''
TABLES
it_values = lt_val
EXCEPTIONS
printcancel = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
ENDMETHOD. "export_in_exel
буду рад совету!