嗨，

此功能模块使用ABAP内部表中的数据填充现有的excel工作表，并在excel下载中包含标题。请找到下面的代码，该代码显示如何声明和填充导入和重要参数。

报告ZEX_DATATOEXCEL。

参数：P_file，例如RLGRAP-FILENAME。

数据：int_head的开头出现0，

Filed1（20）类型c，"标头数据

int_head的结尾。

data：int_data的开头出现0，

Field1（20）类型c，"数据

Field2（20）类型c，

Field3（20）类型c，

Field4（20）类型c，

int_data的结尾。

int_head-Filed1 ='销售Ord'。

APPEND int_head。

清除int_head。

int_head-Filed1 ='已售给聚会'。

APPEND int_head。

清除int_head。

int_head-Filed1 ='购买订单'。

APPEND int_head。

清除int_head。

int_head-Filed1 ='舰队'。

APPEND int_head。

清除int_head。

int_data-field1 ='1JOHN'。

int_data-field2 ='2TOM'。

int_data-field3 ='3BRAD'。

int_data-field4 ='4PETER'。

附加int_data。

清除int_data。

CALL FUNCTION'MS_EXCEL_OLE_STANDARD_DAT'

导出

file_name = p_file"您需要下载的文件路径

• CREATE_PIVOT = 0

• DATA_SHEET_NAME =''

• PIVOT_SHEET_NAME =''

• PASSWORD =''

• PASSWORD_OPTION = 0

表格

• PIVOT_FIELD_TAB =

data_tab = int_data"具有数据的内部表

fieldnames = int_head"具有标题的内部表

例外

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。

• 消息ID SY-MSGID类型SY-MSGTY编号SY-MSGNO

• 带有SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4。

ENDIF。

此致

Shirisha